http://www.perlmonks.org?node_id=361444

Public Scratchpad

Download, Select Code To D/L

---

My Regex Commenting Convention:

Say i have a regex that might look pretty hairy to the uninitiated.

$calar =~ tr/\/{1,}//;
#############$1----###
[download]

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; 
}
[download]