Substituindo uma coluna de "tempo" por valores correspondentes

Question

Eu tenho um arquivo no seguinte formato:

"2004-04-19 12:25:57" 44 44
"2004-04-19 13:39:32" 36 36
"2004-04-19 14:00:53" 34 34

Eu preciso de dois novos arquivos:

a) Um arquivo que substituirá os valores de "tempo" da primeira coluna do meu arquivo por números a partir de 1, assim:

1 44 44
2 36 36
3 34 34

b) Outro arquivo que substituirá os valores de "tempo" da primeira coluna do arquivo com números unix tamestamp, assim:

1082377557 44 44
1082381972 36 36
1082383253 34 34

    

Answer 1

Você pode usar este forro bash one:

i=1; while IFS=' ' read a b c; do echo "$i $c" >>foo.txt; ((i+=1)); \
     echo "$(date -d "${a#\"} ${b%\"}" '+%s')" "$c" >>bar.txt; done <file.txt

Formulário expandido:

i=1
while IFS=' ' read a b c; do 
    echo "$i $c" >>foo.txt
    ((i+=1))
    echo "$(date -d "${a#\"} ${b%\"}" '+%s')" "$c" >>bar.txt
done <file.txt

Após a operação foo.txt terá:

1 44 44
2 36 36
3 34 34

e bar.txt terão:

1082377557 44 44
1082381972 36 36
1082383253 34 34

    

Answer 2

awk:

awk '{
    # store the time value (first 2 words)
    timestamp = $1 " " $2

    # shift the other fields 2 places (I wish this was simpler in awk)
    for (i=3; i<=NF; i++) $(i-2) = $i
    NF -= 2

    # print to the line-numbers file
    print NR, $0  > "file1"

    # convert the timestamp and print to that file
    gsub(/[-:"]/, " ", timestamp)
    print mktime(timestamp), $0   > "file2"
}' file

mktime requer o GNU awk (eu acho).

perl:

perl -MTime::Piece -anE '
    BEGIN {
        $, = " "; 
        open $f1, ">", "file1"; 
        open $f2, ">", "file2"
    } 
    $date = shift @F; 
    $time = shift @F; 
    say $f1 $., @F; 
    say $f2 Time::Piece->strptime("$date $time", "\"%Y-%m-%d %H:%M:%S\"")->epoch, @F
' file

    

Answer 3

Bem, correndo o risco de fazer sua lição de casa para você. Você está aqui.

Supondo que seus dados estão em um arquivo chamado YOURFILENAME, este primeiro oneliner adiciona os números de linha e os dois últimos campos do arquivo

count=1;cut -d" " -f 3,4 YOURFILENAME| while read line ; do echo $count $line;((++count)); done

Este segundo one-liner irá converter as datas em épocas e imprimir o resto da linha (teve que adicionar mais um sed para se livrar das aspas, mas eu fiz isso rápido e sujo)

cut -d"\"" -f2 YOURFILENAME| while read line; do SWAP=$(date -d "$line" +\%s); sed -i "s/$line/$SWAP/g" YOURFILENAME;done ; sed 's/"//g' YOURFILENAME

Por favor, perceba que esta é apenas uma maneira de fazer isso. Existem provavelmente muito mais alguns.

    

Answer 4

Eu faria assim em perl:

#!/usr/bin/env perl
use strict;
use warnings;
use Time::Piece;

#open our files for output
open( my $output1, '>', "output_file_one.txt" ) or die $!;
open( my $output2, '>', "output_file_two.txt" ) or die $!;

#iterate the magic filehandle - <> - which reads either data piped from
#stdin, or opens files specified on command line. (Just like grep/awk/sed)
while (<>) {

    #regex match the values out of your source file.
    my ( $t, @values ) = m/^\"(.*)\" (\d+) (\d+)/;

    #convert $t into a time object.
    $t = Time::Piece->strptime( $t, "%Y-%m-%d %H:%M:%S" );

    #use the "epoch" method to extract the numeric time from $t
    print {$output1} join( " ", $t->epoch, @values );

    # $. is the perl special var for current line number.
    print {$output2} join( " ", $., @values );
}

close($output1);
close($output2);