Re: How good is gzip data as digest?

I don't have a good answer to your question, but here's a tip:

if(defined($seen{$key})){
 next;
}else{
 $seen{$key} = 1;
 next;
}
[download]

can be written as

if(!defined($seen{$key})){
 $seen{$key} = 1;
}
next;
[download]

Or the faster, more concise

$seen{$key} = 1;
next;
[download]

Or the more informative

++$seen{$key};
next;
[download]

Comment on Re: How good is gzip data as digest? Select or Download Code

Replies are listed 'Best First'.
Re^2: How good is gzip data as digest? by codeacrobat (Chaplain) on Apr 02, 2009 at 19:16 UTC
Or the defined-or operator, more perl5.10ish ;-) `$seen{$key} //= 1; next;` [download] `print+qq(\L@{[ref\&@]}@{['@'x7^'!#2/"!4']});`	[reply] [d/l] [select]
Re^3: How good is gzip data as digest? by ikegami (Patriarch) on Apr 02, 2009 at 20:14 UTC
Why? That's a step backwards.	[reply]
Re^2: How good is gzip data as digest? by isync (Hermit) on Apr 02, 2009 at 17:52 UTC
:-)	[reply]