problem mit mail senden - #83425 (Allgemeines zu Perl)

Dubu

2004-06-21 13:11

User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image

[quote=cc,16.06.2004, 16:34]

Code: (dl )

1
2
3

...
        my $check= grep /\Q$new\E/, $ftp->ls;
...

[/quote]
Keine gute Idee. Das prueft, ob der neue Dateiname als Teil eines vorhandenen Dateinames auftaucht. Warum kein Test auf Gleichheit? Perl kennt ja mehr als Regexen. :)

Code: (dl )

my $check = grep { $_ eq $new } $ftp->ls;