如何让这段 perl 代码, 在 linux, solaris, window 中运行?

wxfjordan

如何让这段代码在  linux , solaris, window 三大系统中运行?　如何修改呢?　　

#!/usr/bin/perl -w

use Win32:riveInfo;

if ( $^O =~ /^(MS)?Win/ )
{

$TotalNumberOfFreeBytes = (Win32:riveInfo:riveSpace('c:'))[6];
$TotalNumberOfBytes = (Win32:riveInfo:riveSpace('c:'))[5];

print "This is $^O \n";
print "Total Free: $TotalNumberOfFreeBytes\tTotal size: $TotalNumberOfBytes\n";

}
elsif ( $^O =~ /^linux/ )
{
print "This is Linux OS!!!\n";
}

海天

if ( $^O eq 'MSWin32' ){
                    ........
}elsif($^O eq 'linux' ){
                   .....
}elsif{
.....
}
这样应该可以正确的判断是哪个操作系统。

莫愁

UNIX/LINUX 下可以用 df。

hezhiroy

foreach (`df -lm | grep '^\\\/'`)
{
        @field=split /[\t ]+/,$_;
        print "Total Free:",$field[3],"\t","Total Free:",$field[1],"\n";
}

wxfjordan

问题是 这段代码 在linux 下不能运行,  原因是 linux 下没有 Win32:riveInfo 这个module,  这个模块只有 window 才有,

我想在 linux 下, 这段代码可以避开 @INC 数组的检验, 而运行, 如何修改实行呢?

莫愁

原帖由 wxfjordan 于 2006-6-26 22:46 发表
问题是 这段代码 在linux 下不能运行,  原因是 linux 下没有 Win32:riveInfo 这个module,  这个模块只有 window 才有,

我想在 linux 下, 这段代码可以避开 @INC 数组的检验, 而运行, 如何修改实行呢?

那就把 use 那一行挪到 if ( $^O =~ /^(MS)?Win/ ) 后面的那个花括弧里面去。
没有人规定 use 一定要写在开始处。