четверг, 9 апреля 2009 г.

Скрипт на perl

Некий мой скрипт:
#!/usr/bin/perl
$counter=1;
while (<stdin>){
@Text=split (' ',);
$tempTrafic=$Text[4];
$tempName=$Text[6];
$tempName=~ m/[a-zA-Z0-9-]+\.[A-Za-z0-9]+[:\/]/;
$tempName=$&;
$i=0;
$flag=0;
while ($i < $counter){
if ($tempName eq $ServerName[$i]) {
$Trafic[$i]=$Trafic[$i]+$tempTrafic;
$flag=1;
$i=$counter;
}
else {
$i=$i+1;
}
}
if ($flag==0){
$ServerName[$counter]=$tempName;
$Trafic[$counter]=$tempTrafic;
$counter=$counter+1;
}
}
for (sort { $Trafic[$a] <=> $Trafic[$b] } 0..$#Trafic) {
print "$Trafic[$_] $ServerName[$_]\n";
}

Комментариев нет:

Отправить комментарий