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?

The usual way is to check $^O

     my $is_win32 = $^O =~ /Win32/i;


>   if ($usingUNIX)
>      {
>      $directory = `ls`;   #UNIX version.
>      $copyCommand = `cp`;   #UNIX version.
>      }
>  else
>      {
>      $directory = `dir`;  #Win32 version.
>      $copyCommand = `COPY`;  #Win32 version.
>      }

Unless you really want to manipulate commands, this code should be  
rewritten in real Perl, using opendir()/readdir() to list files and  
File::Copy to copy files.


-- 
Sébastien Aperghis-Tramoni

Close the world, txEn eht nepO.

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