Community  »  Perl/CGI: Scripts des Perl-Archiv

Dateien in einem Verzeichnis lesen,auswählen und kopieren	Seitenanfang
Hallo. Ich bin Neueinsteiger und brauche ein Script um in einem Verzeichnis nach Dateien zu suchen, wenn Dateien da sind muss aus dem Dateinamen gelesen werden ob die Datei "brauchbar" ist (es muss an einer bestimmten Stelle im Dateinamen "detail" stehen) und diese Dateien sollen dann in ein anderes Verzeichnis kopiert werden. Danach das erste Verzeichniss leeren, also alle Dateien löschen. Kann mir jemand helfen? Vielen Dank! Datum: 09.01.2009-10:20
re: Dateien in einem Verzeichnis lesen,auswählen und kopieren	Seitenanfang
#!/usr/bin/perl # strict und warnings sollten # in jedem Perl-Programm # vorhanden sein use strict; use warnings; # File::Copy laden zum kopieren der # Dateien use File::Copy qw(copy); # File::Spec laden zum Zusammensetzen # der Pfadangaben use File::Spec; # Pfad, in dem die Dateien liegen my $source_dir = '/path/to/directory'; # Pfad, in den die Dateien kopiert werden my $target_dir = '/path/to/other/dir'; # auslesen des Verzeichnisses # siehe auch perldoc -f opendir # perldoc -f closedir, perldoc -f readdir opendir my $dirh, $source_dir or die $!; # . und .. aussortieren # gleichzeitig die Dateinamen auslesen my @files = grep{ ! /^\.\.?$/ }readdir $dirh; closedir $dirh; for my $filename ( @files ){ my $old = File::Spec->catfile( $source_dir, $filename ); # wenn "detail" vorkommt, dann kopieren if( $filename =~ /detail/ ){ my $new = File::Spec->catfile( $target_dir, $filename ); copy $old, $new; } # löschen der Datei unlink $old; } # Skript ist ungetestet Datum: 10.01.2009-11:32
re: Dateien in einem Verzeichnis lesen,auswählen und kopieren	Seitenanfang
Vielen lieben Dank. Es funktioniert super. Habe nur noch einen Zähler eingebaut um ausgeben zu können wie viele Dateien kopiert wurden. Danke! Datum: 12.01.2009-09:00