linux - 如何使用单行 Perl 命令在 Linux 中将数据转换为列并创建 CSV 文件

Question

我有类似这样的文本文件

Name : Harsha
Class : 12
Hobby : dance 
Name : Nikhil
Class : 11
Hobby : sing
Name : akhil
Class :10
Hobby : Gym

如何使用 Perl -0pe command one-liner 创建包含三列的 CSV 文件 - name、class 和 hobby。

Answer 1

这是一个例子:

perl -F'/\s*:\s*/' -E'
    chomp $F[1]; 
    /^Name/ && push @name, $F[1];
    /^Class/ && push @class, $F[1];
    /^Hobby/ && push @hobby, $F[1];
    END {say join ",", $name[$_], $class[$_], $hobby[$_] for 0..$#name}
' input.txt

或者:

perl -nE '
    ($_, $v) = /^(\S+)\s*:\s*(\S+)/;
    /Name/ && push @name, $v;
    /Class/ && push @class, $v;
    /Hobby/ && push @hobby, $v; 
    END {say join ",", $name[$_], $class[$_], $hobby[$_] for 0..$#name}
' input.txt

输出:

Harsha,12,dance 
Nikhil,11,sing
akhil,10,Gym