Really?? I am not familiar with the magazine (well, at least not with a
site for the magazine). Gotta URL?
Thanks!
- Jim
At 09:30 AM 07.20.2001 -0500, Tom Yarrish wrote:
>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]
- 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]