[Perl] 取得電腦名稱

最近在做測試的時候，發現在做電腦名稱比對的時候，有些機器會出問題，後來發現是電腦名稱取太長，造成之前寫的code並沒有取得完整的電腦名稱。

之前在抓電腦名稱是用Win32::Nodename，結果會有長度15的限制，如果電腦名稱取太長，就會造成只抓到前15個字元。

use Win32;
my $host = Win32::Nodename;

後來找了另外的API來用，改成用Sys::Hostname就可以取得完整的電腦名稱。

use Sys::Hostname;
my $host = hostname();

以上經驗，提供給大家參考。