
Clear questions and runnable code get the best and fastest answer
	PerlMonks

grinder's scratchpad

by grinder (Bishop)

on Jun 01, 2004 at 17:46 UTC ( [id://358312]=scratchpad: print w/replies, xml )

Need Help??

Public Scratchpad

Download, Select Code To D/L

Help for this page

Select Code to Download

Select or download this

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();

Domain Nodelet^?

www.com | www.net | www.org

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others imbibing at the Monastery: (10)

As of 2024-04-23 08:18 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found