...#! /usr/bin/env perl package Foo; use strict; use warnings; sub new { bless {}, shift } sub uniq { shift; my %h; $h{$_}++ for @_; grep { $h{$_} == 1 } keys %h + } package main; print "@{[Foo->new->uniq(@ARGV)]}\n";
./11911 hi hi hi hey lo hey may ':-)' may lo :-)
In reply to Re: compile errors
by ayrnieu
in thread compile errors
by pglenski
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |