|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Mihail Kapitanov 2:465/239 21 Mar 2001 03:01:58
To : Vladimir Podgorny
Subject : Проверка наличия файлов
--------------------------------------------------------------------------------
20 Mar 01 21:07, you wrote to all:
>> my @count=grep(/\.tic$/,readdir(DIR));
VP> my @count=grep(/^$_[0]$/i,readdir(DIR));
Я сделал так: grep(/\.TIC/i, readdir(TICD)) - работает 8-)
>> И что означает /\.tic$/ ?
VP> А это - в сад...
Уже разобрался. Удобная вешь. Доки - рулез 8-)
Кстати, правильно ли я сортирую тексовый файл или нет (сильно не Ы, я только
учусь):
if(-e "X:\\ETC\\fe.conf")
{
open FE, "+<X:\\ETC\\fe.conf";
while(<FE>)
{
@mas=(@mas, $_);
}
@mas=sort @mas;
seek FE, 0, 0;
foreach(@mas)
{
printf(FE "%s", $_);
}
close(FE);
}
Mihail
--- GoldED+/W32 1.1.4.7
* Origin: Storm Station 380-62-3821639 (20:00-06:00) (2:465/239)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
