☰

Formatação Unix-CSV

tag-icon • tag-icon text-processing
Formatação Unix-CSV

Estou tentando converter o formato abaixo de A para B, onde você pode ver que as duas primeiras colunas são trocadas no formato final junto com seus dados intactos e canalizados entre elas e a parte complicada é a última onde o formato da data é alterado de 06/09/2016 08:49:00 a "06/09/2016 08:49:00". Estou usando o shell bash e preciso de um script para fazer o mesmo.

A:

Display Name,SAM Account Name,Distinguished Name,Last Logon Time Stamp
Yolanda Perez,yperez1,"CN=Yolanda Perez,OU=Users,OU=PR - Miami SPCG,OU=PR - Puerto Rico,OU=Puerto Rico,OU=Caribbean - Unified,DC=intl,DC=bns",2016-09-06 08:49:00

B:

"SAM Account Name"|"Display Name"|"Distinguished Name"|"Last Logon Time Stamp"
"yperez1"|"Yolanda Perez,CN=Yolanda Perez"|"OU=Users,OU=PR - Miami SPCG,OU=PR - Puerto Rico,OU=Puerto Rico,OU=Caribbean - Unified,DC=intl,DC=bns"|"09/06/2016 08:49:00 AM"

Responder1

Eu acho que tentar fazer isso puramente no bash seria bastante complicado.

Existe um programa csvfixque deve fazer a maior parte do trabalho para você:http://neilb.bitbucket.org/csvfix/

Responder2

A seguinte resposta é baseada emesseeesse.

#!/bin/bash

awk -vFPAT='([^,]*)|("[^"]+")' -vOFS=, '{
    if (NR == 1) {
        print "\""$2"\"" "|" "\""$1"\"" "|" "\"" $3 "\"" "|" "\""$4"\""
    } else {
        cmd ="date \"+%m/%d/%Y %H:%M:%S %p\" -d \""$4"\""
        cmd | getline var
        close(cmd)
        print "\""$2"\"" "|" "\""$1"\"" "|"$3"|" "\""var"\""
    }
}' data.csv

Aqui data.csvestá o arquivo de entrada ( Ano seu exemplo). Execute o script acima (nomeado csv2pipe.sh) como: bash csv2pipe.sh. A saída é mostrada abaixo.

"SAM Account Name"|"Display Name"|"Distinguished Name"|"Last Logon Time Stamp"
"yperez1"|"Yolanda Perez"|"CN=Yolanda Perez,OU=Users,OU=PR - Miami SPCG,OU=PR - Puerto Rico,OU=Puerto Rico,OU=Caribbean - Unified,DC=intl,DC=bns"|"09/06/2016 08:49:00 AM"

Responder3

Comperl

perl -MTime::Piece -F, -alne '
  print $.==1? "\"".join("\"|\"", $F[1], $F[0], @F[2..$#F])."\""
  : join("|", "\"".$F[1]."\"", "\"".join(",", $F[0], substr($F[2],1))."\"", "\"".join(",", @F[3..9]), Time::Piece->strptime($F[10], "%Y-%m-%d %H:%M:%S")->strftime("\"%m/%d/%Y %H:%M:%S %p\""))
' file.csv
"SAM Account Name"|"Display Name"|"Distinguished Name"|"Last Logon Time Stamp"
"yperez1"|"Yolanda Perez,CN=Yolanda Perez"|"OU=Users,OU=PR - Miami SPCG,OU=PR - Puerto Rico,OU=Puerto Rico,OU=Caribbean - Unified,DC=intl,DC=bns"|"09/06/2016 08:49:00 AM"

informação relacionada