Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

RE: RE: RE: Post Election Day Perl

by amelinda (Friar)
on Nov 09, 2000 at 23:11 UTC ( [id://40778]=note: print w/replies, xml ) Need Help??


in reply to RE: RE: Post Election Day Perl
in thread Post Election Day Perl

No, but this one does. Based on the "ass-u-me everything" one above, it also includes a bugfix so that it shouldn't break if there is more than one instance of Bush|Gore and appends to the logfile instead of overwriting. 485 bytes.
#!/usr/bin/perl -w open I,"lynx -dump http://www.cnn.com/ELECTION/2000/results/FL/index.h +tml|";while(<I>){@j=split;if($j[1]){$j[1]=~s/,//g;}if(/\]Bush/){$b=$j +[1];}elsif(/\]Gore/){$g=$j[1];}}close I;$l=`tail -n1 log`;@l=split / +/,$l;$d=abs($b-$g);if($l[1]==$d){die"same\n";}if($b==$g){$r="tied!\n" +;}$b<$g ? $r="Gore: $d\n" : $r="Bush: $d\n";open O,">>out";print O "$ +r";close O;open F,"mfile";$m=<F>;close F;open(M,"|sendmail -t");print + M <<E; Subject: results Cc: $m $r E close M;exit;

Replies are listed 'Best First'.
RE: RE: RE: RE: Post Election Day Perl
by Fastolfe (Vicar) on Nov 09, 2000 at 23:14 UTC
    Oh well sure if I knew we were allowed to just use any old `external program` output, I could half the size of mine too...

    (I'm just giving you a hard time.. :)

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://40778]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others pondering the Monastery: (2)
As of 2025-06-21 23:59 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?
    erzuuliAnonymous Monks are no longer allowed to use Super Search, due to an excessive use of this resource by robots.