入力ファイルには以下が含まれます。
dn: cn=wss_savvion CN:ユーザー cn: avvionvc 所有者: cn=SSC_admin 所有者: uid=GNG2938427dn: 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=OC1テストマネージャ cn=サンプル1、テストパート1、テストパート2
ご覧のとおり、上記のデータは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;
}