Help for this page

Select Code to Download


  1. or download this
    $mydata =~ s/([\w\s]+)\s([\w\d]+)\s(0000.*)/$1,$2,$3/g;
    $mydata =~ s/(:\d{2})\s0000/$1,$2/g;
    
  2. or download this
    #!/usr/bin/perl
    # NODE34853.pl
    ...
    #Bob Smith,bsmith,00001234567 01/01/1986 00:00:00
    #Mary Ann Doe,mdoe,00001234568 01/01/1986 00:00:01,00001234563 01/01/1
    +986 00:00:02,00001234563 01/01/1986 00:00:03
    #Gilligan Q Smith,gsmith,00001234569 01/01/1986 00:00:01,00001234569 0
    +1/01/1986 00:00:02