Столбец Extracting от запятой разделил текст

Я соглашаюсь, что awk является лучшим решением. Можно сделать это только в ударе с несколькими другими инструментами:

cut -d , -f 2,6,7,8 filename | {
    read header
    tr , $'\t' <<< "$header"
    while IFS=, read -r id num4 num5 num6; do
        # bash can only do integer arithmetic
        if [[ $(bc <<< "$num4 >= 4.0") = 1 ]]; then
           printf "%s\t%s\t%s\t%s\n" "$id" "$num4" "$num5" "$num6"
        fi
    done
}

Действительно не может разбить awk сценарий выше, но здесь рубиновое решение,

#!/usr/bin/ruby1.9.1

puts "id\tnumber4\tnumber5\tnumber6"

ARGF.each_line do |line|
  arr = line.split(',')
  puts "#{arr[1]}\t#{arr[5]}\t#{arr[6]}\t#{arr[7]}" if arr[5].to_f > 4.0
end

Для использования сценария называют его с именем файла или передают файл по каналу в него.

Решение Perl:

perl -F, -le '$, = "\t"; print @F[1,5,6,7] if $F[5] > 4 || $. == 1' file

-F, задает шаблон для разделения. -F неявно устанавливает -a

-a включает режим автоматического разделения при использовании с -n . Неявная команда разделения массива @F выполняется в первую очередь внутри неявного цикла while, созданного с помощью -n . -a неявно устанавливает -n

-n заставляет Perl использовать цикл вокруг вашей программы, что заставляет его перебирать аргументы имени файла примерно как sed -n или awk

-l включает автоматическую обработку окончания строки. Он имеет два отдельных эффекта. Во-первых, он автоматически обрабатывает разделитель входных записей ( \ n ). Во-вторых, он назначает разделитель выходной записи на \ n .

-e используется для ввода одной строки программы

Итак, perl -F, -le '$, = "\ t"; напечатайте @F [1,5,6,7], если $ F [5]> 4 || $. == 1 ' сделайте что-то вроде этого:

use English;

$OUTPUT_RECORD_SEPARATOR = $INPUT_RECORD_SEPARATOR;

while (<>) { # iterate over each line of the each file
    chomp;
    @F = split(',');
    $OUTPUT_FIELD_SEPARATOR = "\t";
    print @F[1,5,6,7] if $F[5] > 4 || $INPUT_LINE_NUMBER == 1;
}