|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Malik Arykov 2:5023/29.116 07 Nov 2000 14:50:17 To : Alexander Bolotnov Subject : диpа... --------------------------------------------------------------------------------
AB> как найти файл с самыми большими цифеpками и пpибавить еденичкy.
opendir(DR, '../arch');
@allnum = map {/arch_(\d+)/i} sort readdir(DR);
$new_name = 'arch_'. ++$allnum[-1];
Удачи, Malik
--- "Hy, вы блин, даете!" GoldED/W32 3.0.1-asa9 SR1
* Origin: * Kaluga * Russia * (2:5023/29.116)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/39423a088cad.html, оценка из 5, голосов 10
|