Good morning Salva,
I think you lead us to the correct track... :-)
open OUT, ">", "./trace.out";
my $line =0;
foreach (@cmdout) {
$line++;
my $bytes = print $line.": ".$_;
print OUT "$line: bytes: $bytes, err: $! \n";
}
close(OUT);
IF everything is fine trace looks like this for all lines:
...
1880: bytes: 1, err: Inappropriate ioctl for device
1881: bytes: 1, err: Inappropriate ioctl for device
1882: bytes: 1, err: Inappropriate ioctl for device
1883: bytes: 1, err: Inappropriate ioctl for device
1884: bytes: 1, err: Inappropriate ioctl for device
...
IF it starts to fail:
...
1891: bytes: 1, err: Inappropriate ioctl for device
1892: bytes: 1, err: Inappropriate ioctl for device
1893: bytes: , err: Resource temporarily unavailable
1894: bytes: , err: Resource temporarily unavailable
1895: bytes: , err: Resource temporarily unavailable
1896: bytes: , err: Resource temporarily unavailable
1897: bytes: , err: Resource temporarily unavailable
...
Does this ring a bell?
update caught it in strace:
write(1, "07651738\n1313: switchport acce"..., 4096) = 4096
write(1, ": interface Ethernet2/36\n1426: "..., 4096) = 4096
write(1, "ntrusted\n1539: service-policy "..., 4096) = 4096
write(1, "torm-control broadcast level 10."..., 4096) = 4096
write(1, "rol broadcast level 10.00\n1782: "..., 4096) = -1 EAGAIN (Re
+source temporarily unavailable)
write(1, "t level 10.00\n1894: service-po"..., 4096) = -1 EAGAIN (Re
+source temporarily unavailable)
write(1, "e-policy type queuing input N7K-"..., 4096) = -1 EAGAIN (Res
+ource temporarily unavailable)
write(1, "141: channel-group 1305 mode a"..., 4096) = -1 EAGAIN (Res
+ource temporarily unavailable)
write(1, "storm-control broadcast level 10"..., 4096) = -1 EAGAIN (Res
+ource temporarily unavailable)
|