Help for this page

Select Code to Download


  1. or download this
    perl -pi -e 's/[ ]*\~\t\~[ ]*/~/g' a.dat");
perl -pi -e 's\/^[ ]*\/\/g' a.dat");
perl -pi -e 's/\:000[A,P]M//g' a.dat");
perl -pi -e 's/99991231//g' a.dat");
perl -pi -e 's/Jan 1 1900 12:00:00//g' a.dat");
  2. or download this
    while (<IN_FILE>)
{
...
s/Jan 1 1900 12:00:00//g;
s/[ ]*\~\t\~[ ]*/~/g;
}
  3. or download this
    while (<IN_FILE>)
{
...
}
close(IN_FILE);
close(OUT_FILE);