bash + 将文本文件转换为 csv 文件 [关闭]

Question

关闭。 这个问题需要更加集中。 它目前不接受答案。

---

想改善这个问题吗？ 更新问题，使其仅通过编辑这篇文章来关注一个问题。

去年关闭。

改进这个问题

我们有以下文件 - info.txt

该文件包括Linux 机器的名称以及每个 Linux 名称和值的相关参数

more info.txt

LINUX_NAME=linux_machine_1
param.avarge.com 3443
param.no.com 43
param.lol.com 54
param.tis.com 24
param.er.com 254
param.nh.com 13
param.pl.com 456
param.nm.com 534
param.asd.com 236
LINUX_NAME=linux_machine_2
param.avarge.com 12
param.no.com 1
param.lol.com 2
param.tis.com 3
param.er.com 254
param.nh.com 13
param.pl.com 456
param.nm.com 534
param.asd.com 236
LINUX_NAME=linux_machine_3
param.avarge.com 13
param.no.com 100
param.lol.com 101
param.tis.com 102
param.er.com 254
param.nh.com 13
param.pl.com 456
param.nm.com 534
param.asd.com 236

.
.
.

我们要将info.txt转换为 csv 文件，如下所示

预期成绩

PARAMETER,param.avarge.com,param.no.com,param.lol.com,param.tis.com,param.er.com,param.nh.com,param.pl.com,param.nm.com,param.asd.com
linux_machine_1,3443,43,54,24,254,13,456,534,236
linux_machine_2,12,1,2,3,254,13,456,534,236
linux_machine_3,13,100,101,102,254,13,456,534,236
.
.
.

.

关于如何使用bash,awk/sed, perl one liner执行它的任何建议

示例它应该如何来自 csv 文件

Answer 1

这是在假设每台机器的主机列表在所有机器上都是相同的（并且顺序相同）的情况下工作的。

use warnings;
use strict;

my @machines;

while (<>)
{
    if ( / LINUX_NAME = (.+) /x )
    {
        push @machines, { name => $1, hosts => [] };
    } 
    else
    {
        chomp;
        my ( $host, $port ) = split / /;
        push @{ $machines[-1]->{hosts} }, { host => $host, port => $port };
    }
}

print join( ",", "PARAMETER", map { $_->{host} } @{ $machines[-1]->{hosts} } ), "\n";

foreach my $machine ( @machines )
{
    print join( ",", $machine->{name}, map { $_->{port} } @{ $machine->{hosts} } ), "\n";
}