| Rev 2 |
|
Rev 18 |
| Line 26... |
|
Line 26... |
my ($res, $lastnic); |
|
my ($res, $lastnic); |
my %nics = (); |
|
my %nics = (); |
my $i = 0; |
|
my $i = 0; |
my $portnum = "none"; |
|
my $portnum = "none"; |
|
|
|
$res=`$rtlbin $com-$host\@eth0 counters | grep ^eth | sed 's/://g' | sed 's/eth0\\///g'`; |
|
$res=`$rtlbin $com-$host\@eth0 show interface summary | grep ^eth | sed 's/://g' | sed 's/eth0\\///g'`; |
#print "tu je res \n$res \n"; |
|
#print "tu je res \n$res \n"; |
@pole_res = split("\n",$res); |
|
@pole_res = split("\n",$res); |
$pocet = scalar(@pole_res); |
|
$pocet = scalar(@pole_res); |
# print "Vysledek pro $_ je dlouhy $pocet \n"; |
|
# print "Vysledek pro $_ je dlouhy $pocet \n"; |
#vytvoreni asociativniho pole $nics s cislem portu a rychlostma |
|
#vytvoreni asociativniho pole $nics s cislem portu a rychlostma |
