Моя программа Perl считывает данные с последовательного устройства, подключенного через USB.Заголовки моего скрипта на псевдо-Perl:
use warnings;
use strict;
use Device::SerialPort;
my $PortObj = tie( *$handle , "Device::SerialPort" , $PortName ) or die "Cannot open serial port: $!\n";
while ( 1 ) {
my $readLength = read( $handle , my $frameData , $frameLength )
}
Все работает нормально, и даже когда я отключаю устройство от USB, я могу выйти из той ситуации, когда файл устройства исчезает и появляется снова. Я могу отловить все ошибки, порожденные моим собственным скриптом, но загруженные модули (Device::SerialPort) также порождают предупреждения, и я не хочу, чтобы они появлялись в моем журнале.
Могу ли я добавить какой-либо флаг в свой код, чтобы я не видел эти конкретные предупреждения? Для меня важно, чтобы подавлялись только предупреждения от модулей, а не предупреждения от моего собственного скрипта. В настоящее время это выглядит так:
[/dev/ttyUSB1] 0x0020 : 00 00 00 00 00 00 00 00 00 AA 93 82 73 68 5E 58 : ............sh^X [/dev/ttyUSB1] 0x0030 : 55 54 52 52 4F 4E 50 51 50 00 00 00 00 00 00 00 : UTRRONPQP....... Use of uninitialized value $count_in in addition (+) at /usr/lib/perl5/Device/SerialPort.pm line 2214. Use of uninitialized value $string_in in concatenation (.) or string at /usr/lib/perl5/Device/SerialPort.pm line 2232. [/dev/ttyUSB1] Restart required! [/dev/ttyUSB1] Cannot open serial port: No such file or directory [/dev/ttyUSB1] Cannot open serial port: No such file or directory [/dev/ttyUSB1] Cannot open serial port: No such file or directory [/dev/ttyUSB1] 0x0000 : 41 42 01 40 71 01 1C E4 80 99 80 80 80 80 00 00 : AB.@q........... [/dev/ttyUSB1] 0x0010 : 00 03 00 00 83 00 01 01 00 00 00 00 00 00 00 00 : ................
Итак, речь идет о двух Use of uninitialized value
предупреждениях, от которых я хочу избавиться. Другие предупреждения являются моей собственной записью.