Help for this page

Select Code to Download


  1. or download this
    perl -nle"my %seen; print grep !$seen{$_}++, /./g"
    
  2. or download this
    perl -nle"my %seen; print sort grep !$seen{$_}++, /./g"
    
  3. or download this
    >perl -MO=Deparse -nle"foo()"
    BEGIN { $/ = "\n"; $\ = "\n"; }
    ...
        foo();
    }
    -e syntax OK