APM: Variable to determine OS

Dennis Moore rainking at feeding.frenzy.com
Thu Jul 18 18:11:19 CDT 2002

On Thu, Jul 18, 2002 at 06:05:58PM -0500, David Bluestein II wrote:
> Okay, I know I've seen it, but can't remember it. What is the way to
> determine what OS Perl is running on? In particular, I want the script to
> determine if it is running on Windows or LInux, and do a different action
> depending on OS, but I can't remember the trick here.
> David


<BLINK> ;for (74,1970500640,1634627444,1751478816,1348825708,543711587,
1801810465){for($x=1<<1^1;$x>=1>>1;$x--) {$q=hex ff,$r=oct($x=~s,\d,$&*
10,e,$x),$x/=1/.1,$q<<=$r,$s.=chr (($_&$q)>>$r),$t++}}while($= ||= !$|)
{$o=$o?$?:$/;$|=1;print $o?$s:$"x$t if$;;print"\b"x$t;sleep 1} </BLINK>

More information about the Austin mailing list