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

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

[Anatoly A. Ivanov]

Здравствуйте, 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

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

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

[Alexey Tourbin]

[-- Attachment #1: Type: text/plain, Size: 1204 bytes --]

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;

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]