Public Scratchpad

Select Code to Download

use File::Watch;

...
    do_something( $w->get );
    sleep 10;
}

Select or download this

#! /usr/local/bin/perl -w

...
(?:3(?:7[012346789]?|8[234589]?|0\d?|1\d?|2\d?|3\d?|4\d?|5\d?|6\d?|9\d
+?)|1(?:0\d?|1\d?|2\d?|3\d?|4\d?|5\d?|6\d?|7\d?|8\d?|9\d?)|2(?:0\d?|1\
+d?|2\d?|3\d?|4\d?|5\d?|6\d?|7\d?|8\d?|9\d?)|4(?:0\d?|1\d?|2\d?|3\d?|4
+\d?|5\d?|6\d?|7\d?|8\d?|9\d?)|5(?:[01256789]|3[01234]?|4[123]?)|7(?:[
+123456789]|0[01234789]?)|6(?:[023456789]|1[89]?)|8\d|9\d)
% ./ra | wc -c
     335

Select or download this

my $foo = [
  1,
...
1 3 4 5
1 3 4 6
1 3 4 7

Select or download this

<head>
<script language="javascript">
...
<img border="0" name="oleane-th" src="oleane-thumb.png"/><br />
<img border="0" name="completel-th" src="completel-thumb.png" />
</body></html>

Select or download this

#! /usr/bin/perl -w

...
        $sdump->finish;
        print "\n";
}

Select or download this

my @friends = ("merlyn","nate", "vroom", "neshura", "chromatic", "seta
+ntae", "btrott","stephen","lhoward","ZZamboni","kudra","tilly","cogen
+t");
my $friend;
$friend ||= $friends[rand(@friends)];
$query->textfield("usersearch", $friend);

Select or download this

#! /usr/bin/perl -w

...
openlog( basename($0), 'pid', 'daemon' );
syslog('err', 'this is a test');
closelog();