Thread files a nach files b kopieren (8 answers)
Opened by Rambo at 2006-01-18 17:26

Rambo
 2006-01-18 18:04
#62032 #62032
User since
2003-08-14
803 articles
BenutzerIn

user image
@strat, werde deins nach her auch noch probieren ich habe
es jetzt auf die schnelle so gemacht
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
use strict;
use warnings;
use File::Copy;
use Cwd;

my $home_dir = getcwd;
$home_dir = "$home_dir/tangosimu";

opendir(DIR,$home_dir) or die $!;
while (my $filename = readdir DIR)
{
my $new_files = $home_dir . '/' . $filename;
next unless -f $new_files;
my $old = $new_files;
$new_files =~ s/2005/2006/g;
if ($old eq $new_files) {
}
else {
copy("$old", "$new_files") or die "Copy failed: $!";
}

}
closedir DIR;


habe dabei aus dem beitrag von esskar geklaut.
@esskar ich gelobe besserung


vielen dank

rambo

View full thread files a nach files b kopieren