String Zeichenkontrolle - #79516 (Allgemeines zu Perl)

Patrick

2004-01-27 08:25

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

[quote=Patrick,27.01.2004, 07:22]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??[/quote]
Alles geklärt!

Vielen lieben Dank an Alle!

mit diesem Code klappt es!

Code: (dl )

foreach $file (<*>)
{
   if ($termlist_file =~ m~^(?:\d{2}_)?\w+$~)
   {
      print "$file \n";
   }
}

Vielen lieben Dank nochmal!

Mfg
Paddy

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