Как я могу установить значение по умолчанию для переменной Perl?

Я совершенно не знаком с Perl. Мне нужно было использовать внешний модуль HTTP :: BrowserDetect. Я тестировал код и пытался узнать имя ОС из метода os_string. Итак, я просто инициализировал объект и создал переменную для хранения возвращенного значения.

my $ua = HTTP::BrowserDetect->new($user_agent);
my $os_name = $ua->os_string();

print "$user_agent $os_name\n";

есть некоторые пользовательские агенты, которые не являются пользовательскими агентами браузера, поэтому они не получают никакого значения от os_string. Я получаю сообщение об ошибке Использование неинициализированного значения $ os_name в конкатенации (. ) или string

Как мне справиться с такими случаями, когда $ os_name не инициализировано, потому что метод os_string возвращает undef (это то, что, я думаю, происходит при чтении исходного кода модуля). Думаю, должен быть способ указать строку по умолчанию, например, в таких случаях нет ОС.

13
задан brian d foy 18 October 2010 в 17:09
поделиться