#!/usr/bin/perl -w # # catnames      --crb3 27dec04/31mar07 # # do periodic accumulation of all the lovely # fictional-character names the spammers sent # to us. # This script is designed as a cron job, so # all the params are edited in. # # /home/edk/edk/names/ # /home/crb3/crb3/perl/f/ficnames # $echo="/bin/echo"; $sort="/bin/sort"; $cat="/bin/cat"; $dedupe="/usr/local/bin/dedupe"; $wc="/usr/bin/wc"; $workdir="/home/edk/edk/names"; $mask="fnames.*.txt"; $list="fnames-all.txt"; $ltmp="fnames-tmp.txt"; chdir $workdir; `$cat $mask | $sort | $dedupe >$ltmp`; ($wcv=`$wc -l $ltmp`) =~ s/^\s+//;              # -l: just 'linecount filename' $lcnt= substr($wcv,0,index($wcv,' '));          # 7-col-rjust leading-whsp `$echo $lcnt >$list`; `$cat $ltmp >>$list`; unlink($ltmp);	Grab the tarball here
Syntax highlighting using Syntax::Highlight::Engine::Kate