[Comm] Re: Как переместить файл с кривым именем через perl
Anatoly A. Ivanov
=?iso-8859-1?q?anatol_=CE=C1_fxp=2Eru?=
Пт Дек 17 22:39:21 MSK 2004
Здравствуйте, community.
Я ничего не понимаю, не хочет он копироваться и все :(
Если запускаю сам из консоли, все нормально. Но тут приходиться
экранировать символы либо брать имя в одинарные кавычки.
Если его запускает другой процесс, то фиг вам...
sub move_file {
my ($file, $dir) = @_;
my $status;
# copy($file,$dir) or die "Copy failed: $!";
$status= system('mv', $file, $dir);
open(FILE, ">/tmp/test_error.txt");
print FILE "$status";
close(FILE);
}
с copy из перл, очень долго работает, как ведет себя с запускои из
другого процесс - не знаю.
параметры передаются правильно, но в перменой с именем оно как есть
т.е может содеражать пробелы и другие символы
#примерно так
$file="file name(rus)']['";
как видно из кода, заисываю статус возврата.
в последний неудавшийся раз, там содержиться число 256
Может кто подскажет что это значит. И как все же сделать чтоб
работало?
Подробная информация о списке рассылки community