c:\@Work\Perl\monks\rasy>perl -wMstrict -le "use List::MoreUtils qw(uniq); ;; my @uniques = uniq map { chomp; $_; } <>; print qq{(@uniques)}; " < words.txt (foo bar bax boff food wink wank fool zink zank)
words.txt:
foo bar foo bax boff foo foo food wink wank fool zink zank foo
Give a man a fish: <%-(-(-(-<
In reply to Re: unique words
by AnomalousMonk
in thread unique words
by rasy
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |