Re: How to execute succcessful this Perl script in Linux, window and solaris?

in reply to How to execute succcessful this Perl script in Linux, window and solaris?

well, it is just a WARNING, and nothing you must care about. it' beacuse you are using require to import the module. There is already a bug-report-ticket issued on that "problem".

below, you find a cleaned up version.

#!/usr/bin/perl

use strict;
use warnings;

if ( $^O =~ /^(MS)?Win/ ) {
    eval {
        require Win32::DriveInfo;

        my $TotalNumberOfFreeBytes = (Win32::DriveInfo::DriveSpace('c:
+'))[6];
        my $TotalNumberOfBytes = (Win32::DriveInfo::DriveSpace('c:'))[
+5];

        print "This is $^O \n";
        print "Total Free: $TotalNumberOfFreeBytes\tTotal size: $Total
+NumberOfBytes\n";
    };
    print $@, "\ndone!";
}
elsif ( $^O =~ /^linux/ ) {
    print "This is Linux OS!!!\n";
}
[download]

In Section Seekers of Perl Wisdom