Hallo zusammen,

ich bin dabei, mich ein wenig intensiver mit Perl auseinanderzusetzen und will mich deshalb auch nicht mit meinem Workaround zufrieden geben.

Es geht darum, dass alle Dateien, die ein bestimmtes Suffix tragen, von einem Verzeichnis in ein anderes verschoben werden sollen:

Code

#!/usr/bin/perl -w 
 
my $bindir = "/bin/"; 
my $indir = "/Volumes/Daten/Skripte/_TEST/test/"; 
my $outdir = "/Volumes/Daten/Skripte/_TEST/test2/"; 
my $suffix = ".pdf"; 
 
print "1.\n"; 
system($bindir."mv", "$indir*$suffix", "$outdir"); 
 
print "2.\n"; 
system($bindir."mv", $indir."*".$suffix, "$outdir"); 
 
print "3.\n"; 
system("${bindir}mv $indir*$suffix $outdir"); 

Die ersten beiden Versuche schlagen fehl mit der Meldung "No such file or directory". Die dritte Variante funktioniert.

Soweit ich das verstanden habe, macht es einen Unterschied, ob ich beim Aufruf von system() einen String, oder ein Array übergebe, wobei hier(http://www.perlhowto.com/...ng_external_commands) beschrieben wird, der Weg über ein Array sei der bessere.

Was mache ich dabei falsch?

Viele Grüße
Florian

Im Fall 1 und 2
wird direkt das Verzeichnis bzw. die Datei '/Volumes/Daten/Skripte/_TEST/test/*.pdf' gesucht.

Im Fall 3
wird der string '/bin/mv /Volumes/Daten/Skripte/_TEST/test/*.pdf /Volumes/Daten/Skripte/_TEST/test2/' an die shell übergeben und interpretiert.

---

Grüße Oesi
Ich weiß, dass ich nicht weiß... (Sokrates)