Документ взят из кэша поисковой машины. Адрес оригинального документа : http://crydee.sai.msu.ru/ftproot/users/asv/nftp/tools/nftpstat.pl.gz Дата изменения: Sun Mar 11 22:11:00 2001 Дата индексирования: Mon Dec 24 05:48:11 2007 Кодировка:

#!/usr/bin/perl

use strict;

### todo:
### - do monthly stats
###
### comments/bugs: fejf@gmx.de

my($line,$dummy);
my($day,$time,$size,$bps,$file,$server);
my(%traffic,%speed);
my($totaltrf,$totalspd);

{ # main
print "NFtpStat V0.1 by FEJF\n\n";
if ($#ARGV != 0 ) { die "Usage: nftpstat.pl \n\n" };
open INPFILE, "<$ARGV[0]" or die "Can't open '$ARGV[0]'";
while ($line=)
{
chop $line;
$line =~ s/\(/ /;
$line =~ s/\)/ /;
($day,$time,$size,$bps,$dummy,$dummy,$file) = split / +/, $line;
($server,$dummy) = split /:/, $file;
$traffic{$server}+=$size;
$speed{$server}=($speed{$server}+$bps)/2;
}
close INPFILE;
$totaltrf=0;
$totalspd=0;
print " Server | Traffic | Speed\n";
print "--------------------------------+-----------+--------------\n";
foreach $dummy (keys %traffic)
{
$traffic{$dummy}/=1048576;
$totaltrf+=$traffic{$dummy};
$speed{$dummy}/=1024;
$totalspd=($totalspd+$speed{$dummy})/2;
print sprintf "%31s | %6i mb | %8.3f kb/s\n",$dummy,$traffic{$dummy},$speed{$dummy};
}
print "--------------------------------+-----------+--------------\n";
print sprintf "Totals: | %6i mb | %8.3f kb/s\n",$totaltrf,$totalspd;
}