# # hahaha ? i wrote an irssi script.. # use strict; use vars qw ( $VERSION %IRSSI $random_caps ) ; use subs qw ( rand_cap) ; [...]
#!/usr/bin/env perl use Time: : Local; unless ( $ARGV [ 0 ] ) { print "Usage: merge_and_sort.pl <file1> <file2> <file3> <dst_file>\n" ; [...]
I don't think this ever worked, it was originally posted over at the mirapoint users group site and the archive was corrupt so it never worked. So here I am posting it again after all this time not realizing that invision power board messed up the upload (or something like that). You can see it with syntax highlighting by clicking here . Sorry for the mixup! --_- P.S. It's really cool, I wouldn't repost it if it weren't ;).. find out which RBLs are being bottlenecks! [...]