Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
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";
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
[jdporter]: let me google that for me ;-)
[jdporter]: hex points explicitly to oct, which does the job. :-D
[jdporter]: omg, I f love Perl!
[choroba]: say unpack 'H*', pack 'B*', $mask =~ /0b([01]+)/;
[choroba]: use C instead of H to get the decimal number
[erix]: ( no love like f love )
[choroba]: f* love

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (9)
As of 2018-02-20 16:35 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    When it is dark outside I am happiest to see ...














    Results (272 votes). Check out past polls.

    Notices?