Next The Perl Hardware Store DC.pm Version 56

Reference Operations

        sub unique_objects {
          my (%seen, @result);
          for my $obj (@_) {
            push @result, $obj unless $seen{$obj}++;
          }
          @result;
        }
        function("$x");


Next Copyright © 2003 M. J. Dominus