ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Dmitry Tyutyunnikov 2:5010/183.14 26 Aug 2000 23:10:00
To : All
Subject : Hекоторые операторы...
--------------------------------------------------------------------------------
Вот решить спросить что сие означает. Увидел в одном скрипте:
С этим вроде все понятно. Если файл есть - удаляем, нет - создаем. Так?
if (stat("$file")) { unlink("$file");}
else { `touch $file`;}
А вот как работает вот этот кусок? Если можно то поподробнее. Я так понимаю он
сортирует...
sub readclicklog{
if (stat("$inlog")) {
@logfilein=`sort -u $inlog | cut -f 2 -d '|' | sort | uniq -c`;
chomp (@logfilein);
unlink("$inlog");
}
if (stat("$outlog")) {
@logfileout=`cat $outlog | awk -F '|' '{print \$1}' | sort | uniq -c`;
chomp (@logfileout);
@linktrack=`cat $outlog | awk -F '|' '{print \$2}' | sort | uniq -c`;
chomp (@linktrack);
unlink("$outlog");
}
}
C уважением, Дмитрий.
[Now work: Ремонт] [Team CJ] [Team Perl]
---
* Origin: <!--#include virtual="origin.html" --> (FidoNet 2:5010/183.14)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
