Help for this page

Select Code to Download


  1. or download this
    perl -ne ... | sort | uniq
  2. or download this
    perl -ne ... | sort -u
  3. or download this
    perl -ne 's/\W+/ /g; for $w (split){$u{$w}++} END{print join $/,sort k
+eys %u,""}'