Início / unix / Perguntas / 503096
Accepted
Duck
Asked: 2019-02-27 02:03:36 +0800 CST

Classificando elementos de um arquivo CSV

  • 772

Eu tenho um arquivo csv com sete números por linha assim:

1083,20,28,42,23,10,43
1084,20,5,29,59,40,33
1085,39,50,21,12,40,55
1086,45,4,6,23,10,2
1087,36,46,28,32,3,20

Eu quero manter o primeiro número no lugar (coluna 1) e classificar as colunas de 2 a 7, tornando o arquivo como

1083,10,20,23,28,42,43
1084,5,20,29,33,40,59
1085,12,21,39,40,50,55
1086,2,4,6,10,45,23
1087,3,20,28,32,36,46

Como posso fazer isso com awk, sedou qualquer outra coisa?

Obrigado

awk sed

4 respostas

  1. Com perl:

    perl -F, -lape '$_ = join ",", shift @F, sort {$a <=> $b} @F' < input.csv

    Com GNU awk:

    gawk -F, '
  {
    split($0, a)
    printf "%s", a[1]
    delete a[1]
    n = asort(a)
    for (i = 1; i <= n ; i++) printf "%s", FS a[i]
    print ""
  }' < input.csv

    Ou usando a join.awkbiblioteca (obrigado @WeijunZhou)

    gawk -i join -F, -v OFS=, '
  {
    split($0, a)
    first = a[1]
    delete a[1]
    n = asort(a)
    print first, join(a, 1, n, OFS)
  }'
    • 2
  2. Best Answer

    O problema que você está enfrentando é que você tem arquivos com finais de linha MAC (\r), enquanto os comandos que você está executando estão assumindo finais de linha Unix (\n).

    Usar Perl:

    $ perl -l015 -F, -0015 -pae '$_ = join ",", shift @F, sort { $a <=> $b } @F' input.csv

    Opções:

    • -ldefine ORSpara \r= octal 15.
    • -0define RSpara \r= octal 15.
    • -pfará um loop através do seu arquivo csv por registro. Um registro é separado do arquivo de entrada pelo RS, que é \rdefinido pela -0opção.
    • -Fdefinirá o separador de campo como vírgula para cada registro à medida que for lido.
    • -airá dividir cada registro conforme ele está sendo lido em campos e armazenado em array @F.
    • Nota: a ordem de fornecimento das opções é importante.

    Portanto, a saída que você obterá também terá finais de linha MAC. É por isso que você NÃO está vendo sua saída esperada, em vez disso, todos os seus registros de saída aparecem compactados em uma única linha com base em todas as soluções fornecidas aqui.

    • 1

  3. Para simples csvsem citar, tente isto:

    while IFS= read -r l; do
    col1=$(printf '%s' "$l" | cut -d, -f1)
    printf '%s,' "$col1"
    printf '%s' "$l" | cut -d, -f2- | grep -o "[0-9]*" | sort -n | paste -sd,
done < file
    • -2

  4. Tentei com a combinação do método abaixo de awk e sed

    j=awk '{print NR}' filename | sort -nr| sed -n '1p'

    for ((i=1;i<=$j;i++)); do k=`awk -F "," -v  i="$i" 'NR==i {print $1}' i.txt` ;echo $k;awk -F "," -v i="$i" 'NR==i {$1=" ";print $0}' i.txt| sed -r "s/^\s+//g"| perl -pne "s/ /\n/g"| sort -n| perl -pne "s/\n/ /g";echo " "| sed "s/.*/&\n/g";done|sed '/^$/d'| sed "N;s/\n/ /g"| sed "s/ /,/g"| sed "s/\,*$//g"

    resultado

    1083,10,20,23,28,42,43
1084,5,20,29,33,40,59
1085,12,21,39,40,50,55
1086,2,4,6,10,23,45
1087,3,20,28,32,36,46
    • -2

relate perguntas