Perl tips, part 1
From Computing, Technology, HowTo Wiki
Contents |
Great resources
Modern Perl Book
Code snipets
To find unique elements in an array
my @array_items = (1,1,2,2,3,3,4,4,5,5,5);
%seen = ();
@unique_array = grep { ! $seen{$_} ++ } @array_items;
print @unique_array."\n";
# Should print 12345
Clear terminal
use Term::ANSIScreen qw(cls); cls();