larsen's scratchpad

Select or download this

use strict;
use warnings;
...
ok( compare_strings( 'b4rsen',        'larsen' ) );
ok( compare_strings( 'b4rsen',        'larsen' ) );
ok( compare_strings( 'm@rc0m4r0n91u', 'marcomarongiu' ) );

Select or download this

$_ = qq|
1
...
s{\b(\d+)\b}{\1.}g;

print;

Select or download this

use strict;

...
    print "<h1>Fetch_image mode</h1>\n";
}

Select or download this

# Modified by larsen - Nov 17 2001

...

Select or download this

#!/usr/bin/perl

...
# Leggi la doc (e il codice) di Attribute::Curried, oltre
# a perldoc perlref (Ќп"Function Templates")

Select Code to Download