@strat, werde deins nach her auch noch probieren ich habe
es jetzt auf die schnelle so gemacht
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