String Zeichenkontrolle - #79515 (Allgemeines zu Perl)

Patrick

2004-01-27 08:22

User since
2004-01-07
56 Artikel
BenutzerIn
[default_avatar]

Tja, ich habe es mal mit folgenden Code versucht

Code: (dl )

foreach $file (<*>)
{
   if ($file =~ m~\d{2]_[^.]*$~)
   {
      print "$file \n";
   }
}

Erfolg aber == 0!

foreach $file (<*>) -> den * habe ich deswegen benutzt, da ich ja die Dateien ohne Endung suche und bei *.* würden diese wegfallen!

Wieso klappt diese Abfrage nun nicht??

Mfg
Paddy

Perl ist göttlich, die Kunst besteht darin Perl anwenden zu können.