 Datein filten und copieren
|
Seitenanfang |
| Ich möchte aus einem bestimmten verzeichniss alle *.h datein filtern und in ein anders verzeichniss copieren. Die Perl datein liegt auf der root und es wird mit absoluten Pfaden gearbeitet. Mein erster Ansatz... komme aber dann net weiter... use File::Copy; opendir(DIR,"c:/class/work/pid");
my @dateien = readdir(DIR);
closedir(DIR); my @hfile= grep (/\.h$/,@dateien); foreach $hfile (@hfile){
print "$hfile\n";
copy ....?????
}
Datum: 28.04.2009-08:13
|
re: Datein filten und copieren
|
Seitenanfang |
| Mir ist nicht so ganz klar, wo genau Dein Problem liegt... Du hast die absoluten Pfade in @hfiles. In der for-Schleife holst Du mit File::Basename den Dateinamen und setzt diesen mit dem Pfad zum neuen Verzeichnis zusammen. for my $file ( @files ) {
my $filename = File::Basename::basename( $file );
my $new_path = File::Spec->catfile( $new_dir, $filename );
copy $file, $new_path;
}
Datum: 28.04.2009-16:01
|
re: Datein filten und copieren
|
Seitenanfang |
hallo sir i like großen Dank für Ihre Nachricht Senden Sie uns Ihre Tipps großartige Arbeit, die von Ihnen:) Keep Rocking
---
StiveWaugh
---
<a href="http://www.legalx.net/directory/category/family-law">Family Law</a>--Family Law
Datum: 03.07.2009-20:56
|
