* [Comm] Re: Как переместить файл с кривым именем через perl
@ 2004-12-17 19:39 Anatoly A. Ivanov
2004-12-21 12:59 ` Alexey Tourbin
0 siblings, 1 reply; 2+ messages in thread
From: Anatoly A. Ivanov @ 2004-12-17 19:39 UTC (permalink / raw)
To: community
Здравствуйте, 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
Может кто подскажет что это значит. И как все же сделать чтоб
работало?
^ permalink raw reply [flat|nested] 2+ messages in thread
* [Comm] Re: Как переместить файл с кривым именем через perl
2004-12-17 19:39 [Comm] Re: Как переместить файл с кривым именем через perl Anatoly A. Ivanov
@ 2004-12-21 12:59 ` Alexey Tourbin
0 siblings, 0 replies; 2+ messages in thread
From: Alexey Tourbin @ 2004-12-21 12:59 UTC (permalink / raw)
To: community
[-- 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 --]
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2004-12-21 12:59 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2004-12-17 19:39 [Comm] Re: Как переместить файл с кривым именем через perl Anatoly A. Ivanov
2004-12-21 12:59 ` Alexey Tourbin
ALT Linux Community general discussions
This inbox may be cloned and mirrored by anyone:
git clone --mirror http://lore.altlinux.org/community/0 community/git/0.git
# If you have public-inbox 1.1+ installed, you may
# initialize and index your mirror using the following commands:
public-inbox-init -V2 community community/ http://lore.altlinux.org/community \
mandrake-russian@linuxteam.iplabs.ru community@lists.altlinux.org community@lists.altlinux.ru community@lists.altlinux.com
public-inbox-index community
Example config snippet for mirrors.
Newsgroup available over NNTP:
nntp://lore.altlinux.org/org.altlinux.lists.community
AGPL code for this site: git clone https://public-inbox.org/public-inbox.git