Quote

Code (perl): (dl )

1
2
3
4
5
6
7
8
9
10
11

my $cwd = getcwd;

       
        my ($oldlocation,$newlocation);
        $oldlocation = "$cwd";
        print "$oldlocation";
        $newlocation = "$cwd/$info[2] - $info[3]/$_";
        print "\n$newlocation\n";
        
        move($oldlocation, $newlocation) 
        or die "Could not move '$_' zu '$newlocation':$!";

File::Copy