Доброго времени суток!
У меня такая проблема! Всё до банального смешно.
| Код |
#!/usr/bin/perl
use Time::localtime;
use File::Copy;
my $times;
my $path1;
my $path2;
$times=sprintf("%02d%02d%02d",
localtime->mday(),
localtime->mon()+1,
localtime->year()-100
);
$path1="D:\ВПП.txt";
$path2="D:\".$times."_pays.txt";
copy($path1,$path2) or die "Copy failed: $!";
print "ready";
|
При копировании выдаёт ошибку:
| Код |
Bareword found where operator expected at D:\scripts\ftp_upload1.pl line 18, nea
r ""D:\".$times."_pays"
(Missing operator before _pays?)
String found where operator expected at D:\scripts\ftp_upload1.pl line 21, near
"copy($path1,$path2) or die ""
(Might be a runaway multi-line "" string starting on line 18)
(Missing semicolon on previous line?)
Bareword found where operator expected at D:\scripts\ftp_upload1.pl line 21, nea
r "copy($path1,$path2) or die "Copy"
String found where operator expected at D:\scripts\ftp_upload1.pl line 23, near
"print ""
(Might be a runaway multi-line "" string starting on line 21)
(Missing semicolon on previous line?)
Bareword found where operator expected at D:\scripts\ftp_upload1.pl line 23, nea
r "print "ready"
(Do you need to predeclare print?)
String found where operator expected at D:\scripts\ftp_upload1.pl line 23, at en
d of line
(Missing semicolon on previous line?)
syntax error at D:\scripts\ftp_upload1.pl line 18, near ""D:\".$times."_pays"
Can't find string terminator '"' anywhere before EOF at D:\scripts\ftp_upload1.p
l line 23.
|
если ставлю:
| Код |
$path2="D:\$times_pays.txt";
|
файл так и копируется (как $times_pays.txt).
Подскажите как правильно скопировать файл с переменной в имени?
|
