本來想要寫一隻取得OS的某些資料的script,找了cpan之後,看到Sys::Info 這個模組有這樣的功能
看了一下資料.就寫了一個簡單的範例
安裝Sys::Info  請到這裡去下載
在寫範例時,在用到version這個function時,出現了下面訊息,看來是少了 Linux::Distribution 這個模組,在安裝後就可以正常執行這個範例了
看來這個模組還提供了相當多的function,可以讓perl 去取得OS的很多訊息. 是個不錯的模組
而這個模組我只有在Linux 上面執行, 在Window上面沒有跑過 ^^
Can't locate Linux/Distribution.pm in @INC (@INC contains: /usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.7/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.6/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.8 /usr/lib/perl5/site_perl/5.8.7 /usr/lib/perl5/site_perl/5.8.6 /usr/lib/perl5/site_perl/5.8.5 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.8/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.7/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.6/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.8 /usr/lib/perl5/vendor_perl/5.8.7 /usr/lib/perl5/vendor_perl/5.8.6 /usr/lib/perl5/vendor_perl/5.8.5 /usr/lib/perl5/vendor_perl /usr/lib/perl5/5.8.8/i386-linux-thread-multi /usr/lib/perl5/5.8.8 .) at /usr/lib/perl5/site_perl/5.8.8/Sys/Info/Driver/Linux/OS.pm line 216.

#!/bin/perl
use Sys::Info;
my $info = Sys::Info->new;
my $os   = $info->os(%options);
if ($os->is_windows)
{
        print "OS is window\n";
}
else
{
        print "os is unix or others OS" ;
}
$version=$os->version;
print "OS Version is:$version\n" ;
$name=$os->login_name;
print "Login name is :$name\n" ;
               
arrow
arrow
    全站熱搜

    yuanann 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄