☰

将数据传输到列中

tag-icon • tag-icon text-processing scripting
将数据传输到列中

输入文件包含：

dn: cn=wss_savvion 
cn: 用户
cn: avvionvc
所有者: cn=SSC_admin
所有者: uid=GNG2938427



dn: cn=Web_Admin, EN=OC1Test 
cn: 管理员



dn: cn=样本1, 
cn: 测试部分1,测试部分2

需要输出文件，例如：

DN CN1 CN2 所有者 OWNER1 OWNER2 OWNER3 
cn=wss_savvion 用户 avvionvc cn=SSC_admin uid=GNG2938427 
cn=Web_Admin, EN=OC1Test 管理员
cn=sample1, TestPart1,Testpart2

正如你所看到的，上面的数据是3组，少数组包含更多的cn，更多的所有者。每当有更多所有者或 cn 可用时，就需要将其复制到所有者 1 或所有者 2 .... 依此类推...

有人可以帮助我吗！

答案1

由于您在 Unix Stack Exchange 上，我假设您的系统运行 Perl。该脚本的唯一依赖项是 Perl 模块“Text::Table”，它可以安装在大多数系统上，如下所示：

cpan Text::Table

话虽这么说，假设该文件始终具有由空（无文本）行分隔的信息块，则下面的脚本可以工作。我尝试在这个脚本中比通常更详细，因此您可以尝试了解正在发生的事情或根据需要进行修改。除了模块之外的唯一要求是将该行替换my $file = '/path/to/inputfile'为输入文件的实际路径。

#!/usr/bin/perl
use strict;
use warnings;
use Text::Table;

my $file = '/path/to/inputfile';
my $table = process_file($file);
print $table;

sub process_file {
    my $file = shift;
    die "$file doesn't exist!" if ! -e $file;
    die "$file isn't readable" if ! -r $file;

    my @blocks;
    my $block = '';
    open(my $fh, "<", "$file") or die "Couldn't open $file: $!";
    while(<$fh>) {
        chomp $_;
        $block .= "$_\n" if $_ !~ /^\s*$/;
        if(($_ =~ m/^\s*$/ && $block ne '') || eof) {
            $block =~ s/\n$//g;
            push(@blocks, $block);
            $block = '';
        }
    }
    close $fh;

    my @rows; 
    my $max_cn = 0;    
    my $max_own = 0;
    foreach my $b (@blocks) {
        my %row = (
            'dn'    => '',
            'cn'    => [],
            'owner' => []
        );

        my @ba = split("\n", $b);
        for(@ba) {
            $_ =~ /^([a-z]+): (.+)$/;
            $row{dn} = $2 if $1 eq 'dn';
            push($row{cn}, $2) if $1 eq 'cn';
            push($row{owner}, $2) if $1 eq 'owner';
        }
        $max_cn = scalar @{$row{cn}} if $max_cn < @{$row{cn}};
        $max_own = scalar @{$row{owner}} if $max_own < @{$row{owner}};
        push(@rows, \%row);
    }

    my @headers = @{build_headers($max_cn, $max_own)};
    my $tb = Text::Table->new(@headers);
    my @inserts;
    foreach my $r (@rows) {
        push($r->{cn}, " ") until scalar @{$r->{cn}} == $max_cn;
        push($r->{owner}, " ") until scalar @{$r->{owner}} == $max_own;
        my @insert = ($r->{dn});
        push(@insert, $_) foreach @{$r->{cn}};
        push(@insert, $_) foreach @{$r->{owner}};
        push(@inserts, \@insert);
    }
    $tb->load(@inserts);
    return $tb;
}
sub build_headers {
    my $cn = shift;
    my $own = shift;
    my @headers = ("DN");
    for(my $i = 1; $i <= $cn; $i++) {
        push(@headers, "CN$i");
    }
    for(my $i = 1; $i <= $own; $i++) {
        push(@headers, "OWNER$i");
    }
    return \@headers;
}

相关内容