ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexander Bolotnov 2:5052/4.82 06 Nov 2000 14:58:53
To : All
Subject : дира...
--------------------------------------------------------------------------------
открываю диру с файлами.
arch_(\d{3}).txt
как найти файл с самыми большими циферками и прибавить еденичку.
может уже у кого-нить написанное это дело есть или модули?
opendir DR, "../arch/";
@files = readdir(DR);
for $file (@files){
$num = $file =~/arch_(\d{3})/;
$num++;
$new_file = "arch_".$num;
redo if exists($new_file); #???
}
closedir(DR);
короче что-то не получается...
[NewNet] Alexander Bolotnov.
---
* Origin: Вставить оригинальность по вкусу... (2:5052/4.82)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
