ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Comoderator of RU.CGI.PERL           2:5020/371.32  28 Aug 2000  09:55:59
 To : Dmitry Tyutyunnikov
 Subject : Moderatorial [*] (Re: Hекоторые операторы...)
 -------------------------------------------------------------------------------- 
 

 <Dmitry_Tyutyunnikov@p14.f183.n5010.z2.fidonet.org> wrote:
 
 DT>       Привет All !
 
 DT> Вот решить спросить что сие означает. Увидел в одном скрипте:
 DT> С этим вроде все понятно. Если файл есть - удаляем, нет -  создаем. Так?
 DT>   if (stat("$file")) { unlink("$file");}
 DT>   else { `touch $file`;}
 
 DT> А вот как работает вот этот кусок? Если можно то поподробнее. Я так понимаю 
 DT> он сортирует... sub readclicklog{  if (stat("$inlog")) {    @logfilein=`sort
 DT> -u $inlog | cut -f 2 -d '|' | sort | uniq -c`;    chomp (@logfilein);   
 DT> unlink("$inlog");  }
 
 DT>   if (stat("$outlog")) {
 DT>     @logfileout=`cat $outlog | awk -F '|' '{print \$1}' | sort | uniq -c`;
 DT>     chomp (@logfileout);
 DT>     @linktrack=`cat $outlog | awk -F '|' '{print \$2}' | sort | uniq -c`;
 DT>     chomp (@linktrack);
 DT>     unlink("$outlog");
 DT>   }
 DT> }
 
 Оффтопик. В RU.UNIX. Если что непонятно из man sort, man cut, man uniq, man
 cat, man awk.
 
 Своеобразный, надо сказать, способ использования перла...
 
 -- 
 Artem Chuprina        2:5020/371.32 AKA cmrcp@ran.pp.ru        Артём Чуприна
 Comoderator of FIDOnet conference         Комодератор эхоконференции FIDOnet
                                 RU.CGI.PERL
 
 --- ifmail v.2.14.os-p7-tma3
  * Origin: MemoNet (2:5020/371.32@fidonet)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Hекоторые операторы...   Dmitry Tyutyunnikov   26 Aug 2000 23:10:00   Re: Hекоторые операторы...   Artur Penttinen   28 Aug 2000 11:31:00   Moderatorial [*] (Re: Hекоторые операторы...)   Comoderator of RU.CGI.PERL   28 Aug 2000 09:55:59