wieder einmal matching

[hotti]

moin,

Ich schnall das nicht

Ich schnalle das mal so:

  
use strict;  
my $res = {};            # Results  
while( my $line = <DATA>){  
	my ($k, $v) = split ":", $line;	  
	$k =~ s/^\s+//;        # Leerzeichen am Anfang raus  
	$k = unpack "A*", $k;  # Leerzeichen und Newlines am Ende raus  
	$v =~ s/^\s+//;        # Leerzeichen am Anfang raus  
	$v = unpack "A*", $v;  # Leerzeichen und Newlines am Ende raus  
	$k = lc $k;            # alle Keys sind jetzt kleingeschrieben  
	$res->{$k} = $v;       # Schreibe Resultate  
}  
  
print $res->{fold};  
  
__END__  
Fold: 123  
GFFold: 123  
FREE:345  

Schönen Sonntag,
Horst