|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexander V. Gaiduk 2:5020/400 21 Mar 2001 11:54:49
To : All
Subject : Re: Проверка наличия файлов
--------------------------------------------------------------------------------
>Кстати, правильно ли я сортирую тексовый файл или нет (сильно не Ы, я
только
>учусь):
>
>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);
}
=GAV
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
