Help for this page

Select Code to Download


  1. or download this
    use strict;
open (INFILE, "<infile") or die "could not open file";
...
}
close INFILE;
close OUTFILE;
  2. or download this
    D:\minibuild\nbsssbs\appl\src\erlmtrihm.cxx 444912
D:\minibuild\nbsssbs\appl\src\erlmtrihm.cxx 966656
...
D:\minibuild\nbsssbs\appl\src\erlmtrihm.cxx 194417
D:\minibuild\nbsssbs\appl\src\erlmtrihm.cxx 916765
D:\minibuild\nbsssbs\appl\src\erlmtrihm.cxx 955515
  3. or download this
    perl -e '$,=" ";while (<>) {print ((split "~", $_)[0,3],"\n") if (/~/)
+}'<infile >outfile
  4. or download this
    perl -aF/~/ -ne '$,=" ";print (@F[0,3],"\n") if /~/' infile >outfile