Didn't Randall do a voting script for an article in Linux Journal/Mag or
TPJ recently? You might want to look at that.
Thanks,
Tom
--
#!/usr/bin/perl -w # 526-byte qrpff, Keith Winstein and Marc Horowitz
<[EMAIL PROTECTED]> # MPEG 2 PS VOB file on stdin -> descrambled output
on stdout # arguments: title key bytes in least to most-significant order
$_='while(read+STDIN,$_,2048){$a=29;$c=142;if((@a=unx"C*",$_)[20]&48){$h=5;
$_=unxb24,join"",@b=map{xB8,unxb8,chr($_^$a[--$h+84])}@ARGV;s/...$/1$&/;$d=
unxV,xb25,$_;$b=73;$e=256|(ord$b[4])<<9|ord$b[3];$d=$d>>8^($f=($t=255)&($d
>>12^$d>>4^$d^$d/8))<<17,$e=$e>>8^($t&($g=($q=$e>>14&7^$e)^$q*8^$q<<6))<<9
,$_=(map{$_%16or$t^=$c^=($m=(11,10,116,100,11,122,20,100)[$_/16%8])&110;$t
^=(72,@z=(64,72,$a^=12*($_%16-2?0:$m&17)),$b^=$_%64?12:0,@z)[$_%8]}(16..271))
[$_]^(($h>>=8)+=$f+(~$g&$t))for@a[128..$#a]}print+x"C*",@a}';s/x/pack+/g;eval
On Fri, 20 Jul 2001, Jim Conner wrote:
> What is the best way to compare hash of arrays against each
> other? Actually, a better way to ask my question would be...
>
> I have a hash called %player_info that contains 4 elements per hash
> reference. I want to compare just the key of the hash against against
> another hash that I will build from replies from the client (yes's and
> no's). Difficult to follow? Let me explain what I am trying to accomplish:
>
> I am building a voting script. This is particularly tough because of the
> things I need to pay attention to such as disallowing corrupt votes by
> someone voting multiple times. What I want to do is allow players to
> revote. Their new vote will simply overwrite the first vote. There is a
> list of other things I want to do but these things all pivot around how I
> am going to do comparisons.
>
> I perhaps haven't asked this question in the best way but I hope the
> question is understood. Any thoughts and assistance would be greatly
> appreciated.
>
> TIA!
>
>
>
> - Jim
>
> -~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-
> http://www.perlmonks.org/index.pl?node_id=67861&lastnode_id=67861
>
> -----BEGIN PERL GEEK CODE BLOCK----- ------BEGIN GEEK CODE BLOCK------
> Version: 0.01 Version: 3.12
> P++>*@$c?P6?R+++>++++@$M GIT/CM/J d++(--) s++:++ a-
> >++++$O!MA->++++E!> PU-->+++BD C++++(+) UB++++$L++++$S++++$
> $C-@D!>++++(-)$S++++@$X?WP+>++++MO!>+++ P++(+)>+++++ L+++(++++)>+++++$ !E*
> +PP+++>++++n-CO?PO!o >++++G W++(+++) N+ o !K w--- PS---(-)@ PE
> >*(!)$A-->++++@$Ee---(-)Ev++uL++>*@$uB+ Y+>+++ PGP t+(+++)>+++@ 5- X++ R@
> >*@$uS+>*@$uH+uo+w-@$m! tv+ b? DI-(+++) D+++(++) G(++++)
> ------END PERL GEEK CODE BLOCK------ ------END GEEK CODE BLOCK------
>
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]