At 11:15 AM 1/24/2008, Gary Yang wrote:
> Hi All,
> 
> I need to port my Perl script from Unix to Windows. Can someone tell 
> me how to figure out which platform I am on? i.e. I need to know 
> which Perl command can help me determin the platform. Once I know 
> the platform, I'll code my script as the example bellow. But, how to 
> figure out I am on Windows or Unix?
> 
> if ($usingUNIX)
>      {
>      $directory = `ls`;   #UNIX version.
>      $copyCommand = `cp`;   #UNIX version.
>      }
> else
>      {
>      $directory = `dir`;  #Win32 version.
>      $copyCommand = `COPY`;  #Win32 version.
>      }

C:\Documents and Settings\fmerrow\My Documents\Test> type os.pl
use strict;
use warnings;

use English;

print $OSNAME . "\n";

C:\Documents and Settings\fmerrow\My Documents\Test> os.pl
MSWin32

The O'Reilly Book Programming Perl is your friend.

Frank 

_______________________________________________
Perl-Win32-Porters mailing list
Perl-Win32-Porters@[...].com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs