Considere a saída do comando “ifconfig” em um sistema operacional Linux para responder à questão.
$ ifconfig
eth0 Link encap:Ethernet HWaddr 1c:6f:65:4c:71:25
inet addr:192.168.1.4 Bcast:192.168.1.255 Mask:255.255.255.0
inet6 addr: fe80::1e6f:65ff:fe4c:7125/64 Scope:Link
UP BROADCAST RUNNING MULTICAST MTU:1500 Metric:1
RX packets:369271 errors:0 dropped:0 overruns:0 frame:0
TX packets:714695 errors:0 dropped:0 overruns:0 carrier:0
collisions:0 txqueuelen:1000
RX bytes:37700499 (35.9 MiB) TX bytes:989648617 (943.8 MiB)
eth0 Link encap:Ethernet HWaddr 1c:6f:65:4c:71:25
inet addr:192.168.1.4 Bcast:192.168.1.255 Mask:255.255.255.0
inet6 addr: fe80::1e6f:65ff:fe4c:7125/64 Scope:Link
UP BROADCAST RUNNING MULTICAST MTU:1500 Metric:1
RX packets:369271 errors:0 dropped:0 overruns:0 frame:0
TX packets:714695 errors:0 dropped:0 overruns:0 carrier:0
collisions:0 txqueuelen:1000
RX bytes:37700499 (35.9 MiB) TX bytes:989648617 (943.8 MiB)
eth1 Link encap:Ethernet HWaddr 00:25:56:b2:16:3e
inet addr:192.168.10.78 Bcast:192.168.10.255 Mask:255.255.255.0
inet6 addr: fe80::225:56ff:feb2:163e/64 Scope:Link
UP BROADCAST RUNNING MULTICAST MTU:1500 Metric:1
RX packets:9970442 errors:1 dropped:0 overruns:0 frame:2735811
TX packets:7466676 errors:501 dropped:0 overruns:0 carrier:0
collisions:0 txqueuelen:1000
RX bytes:1991253521 (1.9 GB) TX bytes:594939490 (594.9 MB)
inet addr:192.168.10.78 Bcast:192.168.10.255 Mask:255.255.255.0
inet6 addr: fe80::225:56ff:feb2:163e/64 Scope:Link
UP BROADCAST RUNNING MULTICAST MTU:1500 Metric:1
RX packets:9970442 errors:1 dropped:0 overruns:0 frame:2735811
TX packets:7466676 errors:501 dropped:0 overruns:0 carrier:0
collisions:0 txqueuelen:1000
RX bytes:1991253521 (1.9 GB) TX bytes:594939490 (594.9 MB)
No mesmo sistema que gerou a saída apresentada foi criado o script a seguir.
#!/usr/bin/perl
my @lines = split /\n/, `ifconfig`;
my $intf = "";
foreach my $line (@lines) {
if ($line =~ /^[a-zA-Z]/){
$line =~ s/.*//g;
$intf = $line;
next;
}
if ($intf ne "" && $line =~ /RX bytes/){
$line =~ s/.*:([0-9]+).*:([0-9]+).*/\1+\2/g;
my $x = eval $line;
print "$intf = $x\n";
}
}
my @lines = split /\n/, `ifconfig`;
my $intf = "";
foreach my $line (@lines) {
if ($line =~ /^[a-zA-Z]/){
$line =~ s/.*//g;
$intf = $line;
next;
}
if ($intf ne "" && $line =~ /RX bytes/){
$line =~ s/.*:([0-9]+).*:([0-9]+).*/\1+\2/g;
my $x = eval $line;
print "$intf = $x\n";
}
}
Ao ser executado, esse script exibe
