Skip to content

Instantly share code, notes, and snippets.

@tricker

tricker/gist:2414640

Created April 18, 2012 16:15
Download ZIP

Revisions

  1. tricker revised this gist Apr 18, 2012. 1 changed file with 9 additions and 1 deletion.
    10 changes: 9 additions & 1 deletion gistfile1.txt
    View file
    Original file line number Diff line number Diff line change
    @@ -1 +1,9 @@
    s/(\d{2}-\d{2}-\d{4})/$1 12:59:22/g
    #!/usr/bin/perl

    open INFILE, "fin2_tran.csv" or die $!;
    open OUTFILE, ">fin2_out.csv" or die $!;

    while (<INFILE>) {
    s/,(\d{4}-\d{2}-\d{2})(,[^,]+$)/,"$1 11:00:00"$2/;
    print OUTFILE;
    }
  2. tricker revised this gist Apr 18, 2012. 1 changed file with 1 addition and 1 deletion.
    2 changes: 1 addition & 1 deletion gistfile1.txt
    View file
    Original file line number Diff line number Diff line change
    @@ -1 +1 @@
    s/(\d{4}-\d{2}-\d{4})/$1 12:59:22/g
    s/(\d{2}-\d{2}-\d{4})/$1 12:59:22/g
  3. tricker created this gist Apr 18, 2012.
    1 change: 1 addition & 0 deletions gistfile1.txt
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1 @@
    s/(\d{4}-\d{2}-\d{4})/$1 12:59:22/g