Beefy Boxes and Bandwidth Generously Provided by pair Networks DiBona
XP is just a number
 
PerlMonks  

fraterm's scratchpad

by fraterm (Scribe)
on Jun 05, 2004 at 10:09 UTC ( #361444=scratchpad: print w/ replies, xml ) Need Help??

My Regex Commenting Convention:
Say i have a regex that might look pretty hairy to the uninitiated.
$calar =~ tr/\/{1,}//; #############$1----###

Might need some clarification but, this is a scratchpad after all...
Tricking the File::Find::dir "&wanted" routine Dynamically:

One Liner to get the size of a file in bytes.
perl -e '$size=(stat("/etc/profile"))[7];' -e 'print "size:[".$size."]bytes\n";'
MIME::Base64 basic use
use warnings; use strict; use MIME::Base64; sub mimencode($); my $inputstring = $ARGV[0]; my $outputstring = mimencode($inputstring); print "input:$inputstring\n"; print "output:$outputstring\n"; sub mimencode($){ my $in = shift; my $out = ''; $out = MIME::Base64::encode_base64($in); return $out; }
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (11)
As of 2014-04-20 17:45 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (485 votes), past polls