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