Re: Questions on porting Perl from Unix to Windows

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.