Question

我有一个包含以下示例数据的输入文件。

kernel_version主机名

2.6.32-220.el6.x86_64 www01.dc1.domain.com
2.6.32-220.el6.x86_64 www02.dc1.domain.com
2.6.32-220.el6.x86_64 exc01.dc1.domain.com
2.6.32-220.el6.x86_64 exc02.dc1.domain.com
2.6.32-120.el6.x86_64 www03.dc2.domain.com
2.6.32-120.el6.x86_64 www04.dc2.domain.com
2.6.32-120.el6.x86_64 exc03.dc2.domain.com
2.6.32-120.el6.x86_64 exc04.dc2.domain.com
2.6.32-100.el6.x86_64 www05.dc3.domain.com
2.6.32-100.el6.x86_64 www06.dc3.domain.com
2.6.32-100.el6.x86_64 exc05.dc3.domain.com
2.6.32-100.el6.x86_64 exc06.dc3.domain.com
2.6.32-220.el6.x86_64 www07.dc4.domain.com
2.6.32-220.el6.x86_64 www08.dc4.domain.com
2.6.32-220.el6.x86_64 exc07.dc4.domain.com
2.6.32-220.el6.x86_64 exc08.dc4.domain.com

我想输出唯一的内核版本，以及正在运行哪些dcs。

例如;

2.6.32-220.el6.x86_64 dc1, dc4
2.6.32-120.el6.x86_64 dc2
2.6.32-100.el6.x86_64 dc3

实现这一目标的最佳方法是什么？

Answer 1

我会做这样的事情：

#!/usr/bin/perl
use warnings;
use strict;

my %kernels;
open INPUT,"<inputfile";

while (<INPUT>)
{
    my ($version, $hostname) = split(/\s+/,$_);
    if ($kernels{$version}) { $kernels{$version} .= ", $hostname" }
    else { $kernels{$version} = $hostname }
}
close INPUT;    

# Print the summary
foreach my $kernel (keys(%kernels)) {   print "$kernel\t$kernels{$kernel}\n"; }

警告：我没有测试此脚本。我不对可能由此代码引起的任何语法错误，竞争条件或速度快攻击负责......但它应该让你开始

编辑：我现在已经测试过了。一个已经纠正的语法错误，没有主要的快速恐龙攻击。

Answer 2

这可能对您有用：

sed 's/ [^\.]*\.\([^.]*\).*/ \1/' file |
sort -u |
sed ':a;$!N;s/^\(\(.*\) .*\)\n.*\2/\1,/;ta;P;D'

对于原始订单使用，这给出了结果但不是原始顺序：

sed 's/ [^\.]*\.\([^.]*\).*/ \1/' file |
cat -n - |
sort -uk2,3 |
sed ':a;$!N;s/^\(.\{7\}\(.*\) .*\)\n.*\2/\1,/;ta;P;D' |
sort -n | 
sed 's/^.\{7\}//'

uniq主机名的内核版本

2 个答案: