revamped source code
Peter Scott
Peter at PSDT.com
Thu Jun 20 16:37:28 CDT 2002
At 11:17 AM 6/20/02 -0700, nkuipers wrote:
>sub build_filter {
> my ($int, $href) = @_;
> while (my $key = each %$href) {
> delete $$href{$key} if $$href{$key} < $int;}
>}
Style suggestion: You'll find it easier to program with references if
you write
$href->{$key}
instead of
$$href{$key}
--
Peter Scott
Pacific Systems Design Technologies
http://www.perldebugged.com/
More information about the Victoria-pm
mailing list