Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid

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?

What's my password?
Create A New User
[LanX]: oh I meant fixed amount
[LanX]: every path must have l left and r right edges and l and r are fixed and l+r is the height
[LanX]: simple recursive function which goes left and right till l or r are exhausted
LanX #solved
[oiskuu]: I must watch Police Academy again sometime.

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (7)
As of 2018-03-19 11:24 GMT
Find Nodes?
    Voting Booth?
    When I think of a mole I think of:

    Results (239 votes). Check out past polls.