|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexey G.Polosoff 2:5020/600.69 14 Jan 2001 01:53:00
To : Vladimir Podgorny
Subject : Коротенькая программка
--------------------------------------------------------------------------------
(А) 20:28 Thu Jan 11 2001
Vladimir Podgorny (2:5020/400) wrote to All:
>> Хотел написать коротенькую программку, которая
>> все файлы в текущем каталоге переименовывает
>> на номера, начиная с 00000001.ext (с сохранением
>> исходных расширений), но никак не получается добиться
АДДДДДДДДДДДДДДДДДДДДДДДДДДДД
>> доступа к именам файлов и нулей, предшествующих цифре... :(((
ДДДДДДДДДДДДДДДДДДДДДДДДДДЩ
>> Может, кто подбросит идею? Pls.
VP>
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> }
Спасибо.
VP> @filelist я думаю найдешь сам...
:?
Better Bye than ever before.
--- Автосигнализация-автосигнализация, сколько лет мне жить осталось?
* Origin: єіЫ іє ЮєііЭіЫєіЭє Штриховой Кот (2:5020/600.69)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
