ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Artur Penttinen 2:5020/400 28 Aug 2000 11:31:00
To : Dmitry Tyutyunnikov
Subject : Re: Hекоторые операторы...
--------------------------------------------------------------------------------
Dmitry Tyutyunnikov <Dmitry.Tyutyunnikov@p14.f183.n5010.z2.fidonet.org> wrote:
DT> Привет All !
DT>
DT> Вот решить спросить что сие означает. Увидел в одном скрипте:
DT> С этим вроде все понятно. Если файл есть - удаляем, нет - создаем. Так?
DT> if (stat("$file")) { unlink("$file");}
DT> else { `touch $file`;}
DT>
DT> А вот как работает вот этот кусок? Если можно то поподробнее. Я так понимаю
DT> он сортирует... sub readclicklog{ if (stat("$inlog")) { @logfilein=`sort
DT> -u $inlog | cut -f 2 -d '|' | sort | uniq -c`; chomp (@logfilein);
DT> unlink("$inlog"); } if (stat("$outlog")) { @logfileout=`cat $outlog |
DT> awk -F '|' '{print \$1}' | sort | uniq -c`; chomp (@logfileout);
DT> @linktrack=`cat $outlog | awk -F '|' '{print \$2}' | sort | uniq -c`;
DT> chomp (@linktrack); unlink("$outlog"); } }
man 1 sort cut uniq awk cat
WBW, Artur
--
Hа фотографическом снимке видно каким Вы были,
а на рентгеновском - каким Вы будете.
--- ifmail v.2.15dev5
* Origin: Sonera Ltd. (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: Hекоторые операторы... 