* [Comm] Как переместить файл с кривым именем через perl
@ 2004-12-14 6:32 Anatoly A. Ivanov
2004-12-14 9:14 ` Maxim Bodyansky
2004-12-15 10:06 ` Alexey Tourbin
0 siblings, 2 replies; 4+ messages in thread
From: Anatoly A. Ivanov @ 2004-12-14 6:32 UTC (permalink / raw)
To: community
Здравствуйте, community.
Подскажите, пожалуйста, как правильно переместить файл с кривым именем
(содеражащий: пробелы, одинарные кавычки, скобки круглые и квадратные)
из perl cкрипта
Сейчас делаю:
$new_file=~ s/['\"]//g;
$new_file=~ s/\s/_/g;
system ('mv', $file, $dir);
вырезаю кавычки и пробелы, но как кажется, нужно просто граммотно
экранировать. Как это сделать - не знаю.
Помогите пожалуйста.
^ permalink raw reply [flat|nested] 4+ messages in thread* Re: [Comm] Как переместить файл с кривым именем через perl
2004-12-14 6:32 [Comm] Как переместить файл с кривым именем через perl Anatoly A. Ivanov
@ 2004-12-14 9:14 ` Maxim Bodyansky
2004-12-15 10:01 ` [Comm] " Alexey Tourbin
2004-12-15 10:06 ` Alexey Tourbin
1 sibling, 1 reply; 4+ messages in thread
From: Maxim Bodyansky @ 2004-12-14 9:14 UTC (permalink / raw)
To: community
"Anatoly A. Ivanov" <anatol@fxp.ru> writes:
> Здравствуйте, community.
>
> Подскажите, пожалуйста, как правильно переместить файл с кривым именем
> (содеражащий: пробелы, одинарные кавычки, скобки круглые и квадратные)
> из perl cкрипта
>
> Сейчас делаю:
> $new_file=~ s/['\"]//g;
> $new_file=~ s/\s/_/g;
> system ('mv', $file, $dir);
>
>
> вырезаю кавычки и пробелы, но как кажется, нужно просто граммотно
> экранировать. Как это сделать - не знаю.
может быть имеет смысл использовать перловую ф-цию rename вместо
вызова mv? Посмотрите perldoc -f rename
^ permalink raw reply [flat|nested] 4+ messages in thread* [Comm] Re: Как переместить файл с кривым именем через perl
2004-12-14 9:14 ` Maxim Bodyansky
@ 2004-12-15 10:01 ` Alexey Tourbin
0 siblings, 0 replies; 4+ messages in thread
From: Alexey Tourbin @ 2004-12-15 10:01 UTC (permalink / raw)
To: community
[-- Attachment #1: Type: text/plain, Size: 554 bytes --]
On Tue, Dec 14, 2004 at 12:14:00PM +0300, Maxim Bodyansky wrote:
> > Сейчас делаю:
> > $new_file=~ s/['\"]//g;
> > $new_file=~ s/\s/_/g;
> > system ('mv', $file, $dir);
> >
> > вырезаю кавычки и пробелы, но как кажется, нужно просто граммотно
> > экранировать. Как это сделать - не знаю.
>
> может быть имеет смысл использовать перловую ф-цию rename вместо
> вызова mv? Посмотрите perldoc -f rename
А также File::Copy::move() -- rename может не работать при перемещении
между фаловыми системами, хотя в данном случае этого не требуется.
[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]
^ permalink raw reply [flat|nested] 4+ messages in thread
* [Comm] Re: Как переместить файл с кривым именем через perl
2004-12-14 6:32 [Comm] Как переместить файл с кривым именем через perl Anatoly A. Ivanov
2004-12-14 9:14 ` Maxim Bodyansky
@ 2004-12-15 10:06 ` Alexey Tourbin
1 sibling, 0 replies; 4+ messages in thread
From: Alexey Tourbin @ 2004-12-15 10:06 UTC (permalink / raw)
To: community
[-- Attachment #1: Type: text/plain, Size: 539 bytes --]
On Tue, Dec 14, 2004 at 09:32:38AM +0300, Anatoly A. Ivanov wrote:
> Здравствуйте, community.
>
> Подскажите, пожалуйста, как правильно переместить файл с кривым именем
> (содеражащий: пробелы, одинарные кавычки, скобки круглые и квадратные)
> из perl cкрипта
>
> Сейчас делаю:
> $new_file=~ s/['\"]//g;
s/[])'"([]//g
> $new_file=~ s/\s/_/g;
> system ('mv', $file, $dir);
>
>
> вырезаю кавычки и пробелы, но как кажется, нужно просто граммотно
> экранировать. Как это сделать - не знаю.
>
> Помогите пожалуйста.
[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]
^ permalink raw reply [flat|nested] 4+ messages in thread
end of thread, other threads:[~2004-12-15 10:06 UTC | newest]
Thread overview: 4+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2004-12-14 6:32 [Comm] Как переместить файл с кривым именем через perl Anatoly A. Ivanov
2004-12-14 9:14 ` Maxim Bodyansky
2004-12-15 10:01 ` [Comm] " Alexey Tourbin
2004-12-15 10:06 ` 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