Opened by la_dy82 at 2010-12-14 18:12
User since
2010-08-29
373 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2010-08-29
373 Artikel
BenutzerIn
Die Abfragen if (!exists...) kannst Du weglassen.
genügt.
Wenn es die Hash-Einträge $data{$model} und $data{$model}->{$color} noch nicht gibt, legt Perl sie automatisch an.
Code (perl): (dl
)
1 2 3
if( my ( $model , $color ) = ( $line =~ m/^\d{4}\.\d{2}\.\d{2}\s+\d{2}:\d{2}:\d{2}\s+(\S+)\s+(\S+)/ ) ) { $data{$model}->{$color}++ ; }
Wenn es die Hash-Einträge $data{$model} und $data{$model}->{$color} noch nicht gibt, legt Perl sie automatisch an.