- 论坛徽章:
- 0
|
给你个完整版...我也算写个简单版iptraf了- -
- #!/usr/bin/perl
- use strict;
- use warnings;
- my @trafout;
- my @trafin;
- my @eth0;
- $trafout[0] = 0;
- $trafin[0] = 0;
- my $traffico;
- my $traffici;
- my $count = 0;
- while (1) {
- open (TF, "/proc/net/dev") or die $!;
- while(<TF>) {
- if (/eth0/) {
- @eth0 = split;
- $eth0[0] =~ s/^eth0\:(.*)/$1/;
- push @trafout, $eth0[9];
- push @trafin, $eth0[0];
- $traffico = $trafout[1] - $trafout[0];
- $traffici = $trafin[1] - $trafin[0];
- $traffici = int($traffici/1024);
- $traffico = int($traffico/1024);
- shift @trafout;
- shift @trafin;
- print "trafficin\ ${traffici}kB\n" unless ($count == 0);
- print "trafficout\ ${traffico}kB\n" unless ($count == 0);
- }
- }
- $count++;
- close TF;
- sleep 1;
- }
复制代码
我真蛋疼... |
|