Help for this page

Select Code to Download


  1. or download this
    # 123
rgrep  -e'->' * | perl -ne '/(\S{3,80}->\S{5,80})/;print $1,"\n"' | pe
+rl -pe's/^\(//' | perl -pe 's/^\+\+|^\-\-//' | sort | uniq
  2. or download this
    # 68
perl -ne's/^(\(|[+-]{2})//g,say for/(\S{3,80}->\S{5,80})/' *|sort -u
  3. or download this
    # 67
perl -ne's/^(\(|[+-]{2})//g,say for/\S{3,80}->\S{5,80}/g' *|sort -u