ALT Linux Community general discussions
 help / color / mirror / Atom feed
* [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