|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Konstantin Stupnik 2:5020/400 21 Mar 2001 14:52:49
To : All
Subject : Re: Проверка наличия файлов
--------------------------------------------------------------------------------
"Alexander V. Gaiduk" <gav@lesobank.ru> wrote in message
news:3ab85c03.0@194.186.184.1...
> >Кстати, правильно ли я сортирую тексовый файл или нет (сильно не Ы, я
> только
> >учусь):
> >
> >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
> >
>
>
> if(-e "X:\\ETC\\fe.conf")
> {
> open FE, "+<X:\\ETC\\fe.conf";
> @mas=<FE>;
> @mas=sort @mas;
> seek FE, 0, 0;
> print FE @mas;
> close(FE);
> }
if(-e 'X:/ETC/fe.conf')
{
open FE, '+<X:/ETC/fe.conf';
print FE sort (<FE>,(seek FE, 0, 0)?'':'');
close(FE);
}
:)
Михаил - не обращай на это внимания.
Предидущий ответ был верен.
--
Best regards,
Konstantin.
Brainbench MVP for perl.
Отправлено через сервер Talk.Ru - http://www.talk.ru
--- ifmail v.2.15dev5
* Origin: Talk.Ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
