#!/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"; }
In reply to Re: How to execute succcessful this Perl script in Linux, window and solaris?
by esskar
in thread How to execute succcessful this Perl script in Linux, window and solaris?
by wxfjordan
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |