橫軸 Tab 選單

2010/6/23

[Perl] 取得電腦名稱

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

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

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

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

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

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

沒有留言:

張貼留言