Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

myocom's scratchpad

by myocom (Deacon)
on Jun 13, 2004 at 18:49 UTC ( #366312=scratchpad: print w/replies, xml ) Need Help??

Here, hacker - try this standalone script:
my $beamable = $ARGV[0]; if ($beamable && ($beamable =~ /(1|true|yes)/i)) { $beamable = '--beamable'; $beamable_msg = "Yes, beamable"; print "In clause 1\n"; } elsif ($beamable && ($beamable =~ /(0|false|no)/i)) { $beamable = '--not-beamable'; $beamable_msg = "No, copy-protected"; print "In clause 2\n"; } else { $beamable = ''; $beamable_msg = "Unspecified, defaults to beamable"; print "In clause 3\n"; } print "At the end, beamable is $beamable and the msg is $beamable_msg\ +n";