On Sun, 5 Feb 2006 16:37:52 +0100 (CET)
"M. Csabi" <[EMAIL PROTECTED]> írta:
> Sziasztok,
>
> Nemsokara szeretnek forgalomaranyos ADSL csomagra valtani. Olyan
> programot szeretnek futtatni a gepemen, amely adott idoponttol
> adott idopontig mutatja nekem a letoltott adatmennyiseget (hany
> MB jott le)...
Kezdésnek talán megteszi, aztán faraghatod kedvedre:
****************************************************************
#!/usr/bin/perl -w
use strict;
my $time = 0;
my $kuldott = 0;
my $fogadott = 0;
my $osszes = 0;
printf("%15s\t%10s\t%10s\t%10s\n", "dátum", "idő", "küldött",
"fogadott");
while(<>)
{
if($_ =~ m/^([a-zA-Z]{3} ?\d\d? \d\d?:\d\d?:\d\d?).*pppd.*[cC]onnect
time ([0-9]+\.[0-9]+)/) {
#print "$_\n";
printf("%s\t%10.1f", $1, $2);
$time += "$2";
}
if($_ =~ m/.*pppd.*[sS]ent ([0-9]+).*.[rR]eceived ([0-9]+)/)
{
#print "$_\n";
printf("\t%10d\t%10d\n", ,$1 ,$2);
$kuldott += $1;
$fogadott += $2;
}
}
$osszes = $kuldott + $fogadott;
print "idő $time fogadott:$fogadott küldött:$kuldott
összesen:$osszes\n";
*******************************************************
ezt meg a /etc/ppp/ip-down.d-be
*******************************************************
#!/bin/sh
su LOG_USER -c 'tail /var/log/messages |
~LOG_USER/bin/kapcsolat_l.pl >>
~LOG_USER/ppp_kapcsolat/kapcsolat.log'
#eof
******************************************************
Ez utóbbi sor feltételezi, hogy az előbbi pár perl sort a kapcsolat.pl
néven mented el. A sortöréseket majd igazítsd ki, az használ neki.
Üdv:
Zs.
--
Minden rendes programban van legalább: 1 ciklus, 1 elágazás, és 1 HIBA!
_________________________________________________
linux lista - [email protected]
http://mlf2.linux.rulez.org/mailman/listinfo/linux
