Leser: 1
![]() |
|< 1 2 3 4 5 >| | ![]() |
41 Einträge, 5 Seiten |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
use strict;
use warnings;
use Cwd;
use File::Copy;
use File::NCopy qw(cp);
my $home_dir = getcwd;
my $dir = "c:/temp";
my $version = "2.0.04.00.01";
my $str2 = "our new Build";
my $str = "$home_dir/$version/$str2";
print "copy $str to $dir\n";
cp \1, "$str", "$dir", or die "geht nicht: $!";
![]() |
|< 1 2 3 4 5 >| | ![]() |
41 Einträge, 5 Seiten |