Regex matched nicht - #107214 (Allgemeines zu Perl)

Gast Gast

2008-03-19 00:51

Direkt ins Auge gestochen sind mir Dinge wie:

Code: (dl )

1
2

if ( $silent eq '-s' ) { }
else { ... }

Das sieht imo so besser aus:

Code: (dl )

if ( $silent ne '-s' ) { ... }

Und:

Code: (dl )

1
2
3

foreach ( ... ) {
    my $line = $_;
    ...

Das kann ( und sollte ) man auch so schreiben:

Code: (dl )

1
2

foreach my $line ( ... ) {
    ...

Aber auch:

Code: (dl )

1
2

if   ( $sendnone == 1 ) { $gotnew = 1; }
else                    { $gotnew = 0; }

Das kann man imho so besser ausdrücken:

Code: (dl )

$gotnew = $sendnone == 1 ? 1 : 0;

Ausserdem ist es ratsam lexikalische Filehandles zu verwenden und du solltest FILE explizit schließen ( oder hab ich das übersehen? ).
Ein paar mehr Leerzeilen würden die Leesbarkeit fördern und du brauchst das /g Flag bei deinen regulären Ausdrücken nicht.

MfG