Dateiliste auslesen

[Ralph Schuler]

Hallo ist irgendein Perl Spezialist da draussen, der mir weitherhelfen kann?

Folgende zwei Code-Ausschnitte illustrieren mein Problem:

chdir( "D:\verzeichnis\mit\textfiles\" );

local( @files ) = <*96961_B.dat>;   ###### mit der direkten Bezeichnung funktioniert es.
                       foreach $file( @files ) {           ###### hier werden z.B. 3 Files gefunden.
                               if( !-d $file ) {
                               print "$file<br>\n";
                               &extract; #Daten werden weiterverarbeitet
                               }
                       }

chdir( "D:\verzeichnis\mit\textfiles\" );

$adrnr = "96961";
                       $kategorie = "B";
                       $filename = join "","*","$adrnr","_","$kategorie",".dat";

local( @files ) = <$filename.>;     ###### wenn der String mit join zusammengeführt wurde geht es nicht.
                       foreach $file( @files ) {
                               if( !-d $file ) {
                               print "$file<br>\n";
                               &extract; #Daten werden weiterverarbeitet
                               }
                       }

Hat jemand eine Idee, wie man im zweiten Ausschnitt das ganz mit Variablen hinkriegt? Besten Dank.

MfG
Ralph