Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
![[gelöst]](/battie/theme/default/icons/tick.png "gelöst"){kind=icon}
Leser: 16
+3 replies![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
+2 replies![[Homepage]](/battie/theme/default/homepage.gif)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
use Data::Dumper; my %hash; open my $fh, '<', $logfile or die $!; while my $line ( <$fh> ) { if ( $line =~ /\[x\]/ .. $line =~ /\[y\]/ ) { my ($key,$value) = split /:/, $line; next unless $key && $value; $hash{$key} = $value; } } close $fh; print Dumper \%hash;
Schrift
Tipp zum Debugging
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
![[Powered by Battie]](/battie/img/powered.png)
