كيف يمكنني تنفيذ مهلة لـ QX (أمر)؟
سؤال
كيف يمكنني التنفيذ في هذا الجزء من الكود مهلة: إذا لم ترد "Hwinfo-USB"-أي شيء بعد فترة زمنية معينة ، (أوقف الأمر و) القيام بالعودة أو الموت من sub _usb_device.
#!/usr/bin/env perl
use warnings;
use strict;
sub _usb_device {
my @array;
{
local $/ = "";
@array = qx( hwinfo --usb );
}
...
...
}
المحلول
عادة ما تتم مهلة مع إنذار.
sub _usb_device
{
# Scope array
my @array;
# Try shell command
eval
{
local $SIG{ALRM} = sub { die "timeout\n" };
local $/ = "";
alarm 10;
@array = qx( hwinfo --usb );
alarm 0;
};
# Catch and rethrow non timout errors
die $@ if $@ && $@ ne "timeout\n";
# Done
return @array;
}
لا تنتمي إلى StackOverflow