Questão de Informática

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"; } } Ao ser executado, esse script exibe