[lug] evolution signature script

Jason Davis mohadib at openactive.org
Thu Nov 4 16:08:49 MST 2004


On Thu, 2004-11-04 at 15:19, John Hernandez wrote:
> A simplistic workaround might be to call perl from bash ;)

I tried that too ... didnt work :( 

here is the script

#!/usr/bin/perl -w
my $sf='signatures.txt';
my $sd='<|||>';
$/ = $sd;
open FILE,$sf;
$_ = $con[(rand(@con = <FILE>))];
close FILE;
chomp;
print;


my sig file looks like

sig1
<|||>
sig2
<|||>
sig 3

evo version:1.4.6-5

thanks
jd




More information about the LUG mailing list