$^O
if($^O!~m/Win32/){
#This is NOT Windows
}
else{
#This is Windows
}
________________________________
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Gary
Yang
Sent: Thursday, January 24, 2008 2:17 PM
To: [email protected]
Subject: Questions on porting Perl from Windows to Unix
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.
}
Second question:
The UNIX #!/usr/bin/perl notation does not work with Perl scripts on
Windows. How should I code if it is Unix I place "#!/usr/bin/perl" at
the very first line of the script? But, I do not place it at the first
line of code if it is not Unix? How should I do it?
Your answers are greatly appreciated.
Thanks,
Gary
________________________________
Never miss a thing. Make Yahoo your homepage.
<http://us.rd.yahoo.com/evt=51438/*http:/www.yahoo.com/r/hs>
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
