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>; ###############natürlich muss hier der . nach $filename weg (Tippfehler) ###### 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