|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Artem Chuprina 2:5020/371.32 18 Jan 2001 19:41:58
To : Alexey G.Polosoff
Subject : Re: Коротенькая программка
--------------------------------------------------------------------------------
В твоём письме от Sun, 14 Jan 2001 00:53:00 +0300 написано:
>>> Хотел написать коротенькую программку, которая
>>> все файлы в текущем каталоге переименовывает
>>> на номера, начиная с 00000001.ext (с сохранением
>>> исходных расширений), но никак не получается добиться
AGP> АДДДДДДДДДДДДДДДДДДДДДДДДДДДД
>>> доступа к именам файлов и нулей, предшествующих цифре... :(((
AGP> ДДДДДДДДДДДДДДДДДДДДДДДДДДЩ
>>> Может, кто подбросит идею? Pls.
VP>> foreach (0..$#filelist) {
VP>> ( -f $filelist[$_] ) ? (my $ext=$1 if $filelist[$_]=~/\.([^\.+])$/) :
VP>> next; my $name=sprintf("%u0.8",$_+1); rename($filelist[$_],"$name.$ext");
VP>> }
AGP> Спасибо.
VP>> @filelist я думаю найдешь сам...
AGP> :?
perldoc -f opendir и все связанное.
--
Artem Chuprina E-mail: ran@ran.pp.ru
Programmer FIDO: 2:5020/371.32
Memonet Ltd. Phone: +7-095-284-1356
--- slrn/0.9.6.3-as (Linux)
* Origin: AKA с подствольным плюсомётом (2:5020/371.32)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
