From pug at taut.oau.org  Thu Aug 31 22:42:40 2000
From: pug at taut.oau.org (Perl Monger)
Date: Thu Aug  5 00:08:25 2004
Subject: Roll Call
Message-ID: <200009010342.XAA07322@taut.oau.org>


PerlMongers,

Is anyone working on anything important?

I got a shell script that could be converted to do backups using the tar
command.

Have you found any cool hacks?

regards,

// David //
--
#!/usr/bin/perl -iake_one_down_pass_it_around:_bottles_of_beer:_on_the_wall:99
for(($t,$a,$b,$i)=split/:/,$^I;$i;print){$_="-$i$a$b,-$i$a,-T$t,-".--$i."$a$b-";
s/(-1_.*?e)s/$1/g; y/_-/ \n/ } # by Randolph Chung and Joey Hess