Opened by Max86 at 2008-10-01 12:26
User since
2008-10-01
7 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2008-10-01
7 Artikel
BenutzerIn
Guten Morgen Perl-Gemeinde.
Ich habe folgendes Problem und hoffe das ihr mir helfen könnt.
Ich habe ein Skript geschrieben mit welchem man in einen beliebigen Verzeichnissen nach beliebigen Dateien oder Dateitypen suchen kann. Es werden auch alle Unterverzeichnisse durchsucht.
Soweit funktioniert das Skript auch, die entsprechenden Dateien werden gefunden und ich kann mir diese Anzeigen lassen.
Weiterhin sollen dann die gefundenen Dateien in einen neuen Ordner kopiert werden. Hier liegt das Problem. Die Dateien die sich im obersten angegeben Verzeichnis befinden werden auch kopiert aber die aus den Unterverzeichnissen nicht. Das Problem liegt meiner Meinung nach bei den Pfad angaben aber ich komm irgendwie auf keine Lösung.
Für die Suche verwende ich File::Find und fürs kopieren File::Copy
$verzeichnis ist das Verzeichnis welches man zu beginn des Skriptes Angibt
$folder ist ein Ordner welcher bereits erstellt worden ist.
Die Frage ist also. Wie kann ich auch die Dateien die in den Unterverzeichnissen gefunden wurden kopieren.
Grüße Max
Ich habe folgendes Problem und hoffe das ihr mir helfen könnt.
Ich habe ein Skript geschrieben mit welchem man in einen beliebigen Verzeichnissen nach beliebigen Dateien oder Dateitypen suchen kann. Es werden auch alle Unterverzeichnisse durchsucht.
Soweit funktioniert das Skript auch, die entsprechenden Dateien werden gefunden und ich kann mir diese Anzeigen lassen.
Weiterhin sollen dann die gefundenen Dateien in einen neuen Ordner kopiert werden. Hier liegt das Problem. Die Dateien die sich im obersten angegeben Verzeichnis befinden werden auch kopiert aber die aus den Unterverzeichnissen nicht. Das Problem liegt meiner Meinung nach bei den Pfad angaben aber ich komm irgendwie auf keine Lösung.
Für die Suche verwende ich File::Find und fürs kopieren File::Copy
Code: (dl
)
1
2
3
4
5
6
7
8
9
foreach my $files(@files)
{
print "$files\n";
my $quelle = "./$verzeichnis";
my $ziel = "./$folder";
copy("$quelle/$files","$ziel/$files");
}
$verzeichnis ist das Verzeichnis welches man zu beginn des Skriptes Angibt
$folder ist ein Ordner welcher bereits erstellt worden ist.
Die Frage ist also. Wie kann ich auch die Dateien die in den Unterverzeichnissen gefunden wurden kopieren.
Grüße Max