- or download this
sub dgrep (&+) {
my $code = shift;
...
__END__
goners: (moon address buddy geese)
array: (fruit join say gone)
- or download this
for server in serverList:
...
_result.append(k + ";" + user)
- or download this
$::Given.Surname (m?!\)Oo. M z ___ cel +49.123.456.7890:
+:$
$::Street #11 G°\ \ / / mail ----> me@foo.tld:
+:$
...
$::--------------------- \__(m.===·==· -)--])?);sub AUTOLOAD{map{print
+&&
select($,,$,,$,,$|/++$-)}map{pack c,($|++?1:13)+ord}split//,shift||ESE
+L}
alarm if$Herl.Pack("\cG"x4 ."Itrs\c_`mnsgdq\c_Gdbj\c_O`qk"),er(qq.dq\t
+.)
- or download this
package Foo;
require Exporter;
...
sub foo { print "Foo::foo\n" }
1;
- or download this
#!/usr/bin/perl
#
...
use pragmatic Foo;
foo;
- or download this
package pragmatic;
...
}
}
1;
- or download this
use Date::Birth::Stone;
use Date::Birth::Flower;
use Date::Birth::DayStone;
use Date::Birth::ZodiacStone;
- or download this
#!/usr/bin/perl
...
__END__
yup
- or download this
<script type="text/javascript">
item = document.evaluate("//center/table/tbody/tr/td`[1]/table`[1]/tbo
+dy/tr/td`[2]/table/tbody/tr`[4]/td`[2]/b",document, null, XPathResult
+.ORDERED_NODE_SNAPSHOT_TYPE,null).snapshotItem(0);
if(item) item.innerHTML = "0x" + parseInt(item.innerHTML).toString(16)
+;
</script>
- or download this
#!/usr/bin/perl
# file fusselkerl
...
}
print join (", ",@l), $/ if @l;
}
- or download this