Randal,
I actually looked at Stonehenge (I would have gone to some of the
Chicago.pm things, but it's a bit too advanced yet). But my understanding
was that you either go out there (which my company won't do) or you come
here (which my company isn't big enough to really make it worthwhile).
Or am I wrong in that?
Thanks,
Tom
P.S. - I'm basically hoping to get out of this a week of "only Perl", as
opposed to trying to go through the O'Reilly books while people come up to
me with different problems.
--
#!/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 8 Jun 2001, Randal L. Schwartz wrote:
> >>>>> "Tom" == Tom Yarrish <[EMAIL PROTECTED]> writes:
>
> Tom> Just a throw out question. My company is paying for me to go to a Sun Ed
> Tom> Perl class next week. I'm excited to go, since I haven't had a lot of
> Tom> time to learn on my own (wife has a problem when I'm at the computer too
> Tom> much). Anyway, I was wondering if anyone has ever taken this class, and
> Tom> if there are any opinions on it?
>
> I heard they're OK, but you might also look into our open-enrollment
> classes as well. Then you can learn directly from the guys who
> literally "wrote the book" on Perl.
>
>
