[Comm] Re: Как переместить файл с кривым именем через perl

[Alexey Tourbin]

On Fri, Dec 17, 2004 at 10:39:21PM +0300, Anatoly A. Ivanov wrote:
> Здравствуйте, 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 из перл, очень долго работает, как ведет себя с запускои из
> другого процесс - не знаю.

Какой такой "copy из перл"?  В перле нет встроенного copy.

> параметры передаются правильно, но в перменой с именем оно как есть
> т.е может содеражать пробелы и другие символы
> 
> #примерно так
> $file="file name(rus)']['";
> 
> как видно из кода, заисываю статус возврата.
> в последний неудавшийся раз, там содержиться число 256

Да???

> Может кто подскажет что это значит. И как все же сделать чтоб
> работало?

use File::Copy qw(mv);
mv $file1 => $file2;
----------- следущая часть -----------
Было удалено вложение не в текстовом формате...
Имя     : отсутствует
Тип     : application/pgp-signature
Размер  : 189 байтов
Описание: отсутствует
Url     : http://lists.altlinux.ru/pipermail/community/attachments/20041221/1f51f0a6/attachment.bin