perl 继续提有关文件抽取列的问题

aku1

上次多谢各位把问题解决了，现在有另一个需求，比如第四列有很多个kernel-firmware，但是我只想抽取日期最新的一行打印，这行包括第l列，第2列和第3列，我用shell可以简单实现，用awk抓出第4列，然后sort 排序和去掉重复，写个循环，然后grep partten each line |tail -n1，就搞定。 用perl在怎么实现，大家帮忙，多谢！

20150905        RHSA-2014:1167-01        kernel-firmware-2.6.32-431.29.2.el6          kernel-firmware                2.6.32-431.1.2.el6.x86_64 <  2.6.32-431.29.2.el6
20150905        RHSA-2014:1167-01        kernel-headers-2.6.32-431.29.2.el6          kernel-headers                 2.6.32-431.1.2.el6.x86_64 <  2.6.32-431.29.2.el6
20150905        RHSA-2014:1167-01        perf-2.6.32-431.29.2.el6          perf                           2.6.32-358.el6       <  2.6.32-431.29.2.el6
20150925        RHSA-2014:1319-01        xerces-j2-2.7.1-12.7.el6_5          xerces-j2                      2.7.1-12.6.el6_0     <  2.7.1-12.7.el6_5
20151009        RHSA-2014:1552-02        openssh-5.3p1-104.el6          openssh                        5.3p1-94.el6         <  5.3p1-104.el6
20151009        RHSA-2014:1552-02        openssh-askpass-5.3p1-104.el6          openssh-askpass                5.3p1-94.el6         <  5.3p1-104.el6
20151009        RHSA-2014:1552-02        openssh-clients-5.3p1-104.el6          openssh-clients                5.3p1-94.el6         <  5.3p1-104.el6
20151009        RHSA-2014:1552-02        openssh-server-5.3p1-104.el6          openssh-server                 5.3p1-94.el6         <  5.3p1-104.el6
20151009        RHSA-2014:1388-02        cups-1.4.2-67.el6          cups                           1.4.2-48.el6_3.3     <  1.4.2-67.el6
20151009        RHSA-2014:1388-02        cups-libs-1.4.2-67.el6          cups-libs                      1.4.2-48.el6_3.3     <  1.4.2-67.el6
20151010        RHSA-2014:1620-01        java-1.7.0-openjdk-1.7.0.71-2.5.3.1.el6          java-1.7.0-openjdk             1.7.0.9-2.3.4.1.el6_3 <  1.7.0.71-2.5.3.1.el6
20151010        RHSA-2014:1620-01        java-1.7.0-openjdk-devel-1.7.0.71-2.5.3.1.el6          java-1.7.0-openjdk-devel       1.7.0.9-2.3.4.1.el6_3 <  1.7.0.71-2.5.3.1.el6
20151012        RHSA-2014:1655-01        libxml2-2.7.6-17.el6_6.1          libxml2                        2.7.6-8.el6_3.4      <  2.7.6-17.el6_6.1
20151012        RHSA-2014:1655-01        libxml2-devel-2.7.6-17.el6_6.1          libxml2-devel                  2.7.6-8.el6_3.4      <  2.7.6-17.el6_6.1
20151012        RHSA-2014:1655-01        libxml2-python-2.7.6-17.el6_6.1          libxml2-python                 2.7.6-8.el6_3.4      <  2.7.6-17.el6_6.1
20151114        RHSA-2014:1873-01        libvirt-0.10.2-46.el6_6.2          libvirt                        0.10.2-18.el6        <  0.10.2-46.el6_6.2
20151114        RHSA-2014:1873-01        libvirt-client-0.10.2-46.el6_6.2          libvirt-client                 0.10.2-18.el6        <  0.10.2-46.el6_6.2
20151114        RHSA-2014:1873-01        libvirt-devel-0.10.2-46.el6_6.2          libvirt-devel                  0.10.2-18.el6        <  0.10.2-46.el6_6.2
20151114        RHSA-2014:1873-01        libvirt-python-0.10.2-46.el6_6.2          libvirt-python                 0.10.2-18.el6        <  0.10.2-46.el6_6.2
20151212        RHSA-2014:1999-01        mailx-12.4-8.el6_6          mailx                          12.4-6.el6           <  12.4-8.el6_6
20151212        RHSA-2014:1997-01        kernel-2.6.32-504.3.3.el6          kernel                         2.6.32-431.1.2.el6.x86_64 <  2.6.32-504.3.3.el6
20151212        RHSA-2014:1997-01        kernel-firmware-2.6.32-504.3.3.el6          kernel-firmware                2.6.32-431.1.2.el6.x86_64 <  2.6.32-504.3.3.el6
20151212        RHSA-2014:1997-01        kernel-headers-2.6.32-504.3.3.el6          kernel-headers                 2.6.32-431.1.2.el6.x86_64 <  2.6.32-504.3.3.el6
20151212        RHSA-2014:1997-01        perf-2.6.32-504.3.3.el6          perf                           2.6.32-358.el6       <  2.6.32-504.3.3.el6
20160117        RHSA-2015:0066-01        openssl-1.0.1e-30.el6_6.5          openssl                        1.0.1e-16.el6_5.7    <  1.0.1e-30.el6_6.5
20160117        RHSA-2015:0066-01        openssl-devel-1.0.1e-30.el6_6.5          openssl-devel                  1.0.1e-16.el6_5.7    <  1.0.1e-30.el6_6.5
20160123        RHSA-2015:0087-01        kernel-2.6.32-504.8.1.el6          kernel                         2.6.32-431.1.2.el6.x86_64 <  2.6.32-504.8.1.el6
20160123        RHSA-2015:0087-01        kernel-firmware-2.6.32-504.8.1.el6          kernel-firmware                2.6.32-431.1.2.el6.x86_64 <  2.6.32-504.8.1.el6
20160123        RHSA-2015:0087-01        kernel-headers-2.6.32-504.8.1.el6          kernel-headers                 2.6.32-431.1.2.el6.x86_64 <  2.6.32-504.8.1.el6
20160123        RHSA-2015:0087-01        perf-2.6.32-504.8.1.el6          perf                           2.6.32-358.el6       <  2.6.32-504.8.1.el6
20160206        RHSA-2015:0165-01        subversion-1.6.11-12.el6_6          subversion                     1.6.11-10.el6_5      <  1.6.11-12.el6_6
20160206        RHSA-2015:0165-01        subversion-javahl-1.6.11-12.el6_6          subversion-javahl              1.6.11-10.el6_5      <  1.6.11-12.el6_6
20160305        RHSA-2015:0672-01        bind-libs-9.8.2-0.30.rc1.el6_6.2          bind-libs                      9.8.2-0.30.rc1.el6_6.1 <  9.8.2-0.30.rc1.el6_6.2
20160305        RHSA-2015:0672-01        bind-utils-9.8.2-0.30.rc1.el6_6.2          bind-utils                     9.8.2-0.30.rc1.el6_6.1 <  9.8.2-0.30.rc1.el6_6.2
20160306        RHSA-2015:0674-01        kernel-2.6.32-504.12.2.el6          kernel                         2.6.32-431.1.2.el6.x86_64 <  2.6.32-504.12.2.el6
20160306        RHSA-2015:0674-01        kernel-firmware-2.6.32-504.12.2.el6          kernel-firmware                2.6.32-431.1.2.el6.x86_64 <  2.6.32-504.12.2.el6
20160306        RHSA-2015:0674-01        kernel-headers-2.6.32-504.12.2.el6          kernel-headers                 2.6.32-431.1.2.el6.x86_64 <  2.6.32-504.12.2.el6
20160306        RHSA-2015:0674-01        perf-2.6.32-504.12.2.el6          perf                           2.6.32-358.el6       <  2.6.32-504.12.2.el6
20160320        RHSA-2015:0715-01        openssl-1.0.1e-30.el6_6.7          openssl                        1.0.1e-16.el6_5.7    <  1.0.1e-30.el6_6.7
20160320        RHSA-2015:0715-01        openssl-devel-1.0.1e-30.el6_6.7          openssl-devel                  1.0.1e-16.el6_5.7    <  1.0.1e-30.el6_6.7
20160407        RHSA-2015:0797-01        xorg-x11-server-Xorg-1.15.0-26.el6_6          xorg-x11-server-Xorg           1.13.0-23.1.el6_5    <  1.15.0-26.el6_6
20160407        RHSA-2015:0797-01        xorg-x11-server-common-1.15.0-26.el6_6          xorg-x11-server-common         1.13.0-23.1.el6_5    <  1.15.0-26.el6_6

MMMIX

回复 1# aku1


    用个 hash 保存需要的结果即可:

1. 
   
2. my %r;
   
3. while (<>) {
   
4.     chomp;
   
5.     my @f = split;
   
6.     if (!(defined $r{$f[3]}) || $r{$f[3]}->[0] < $f[0]) {
   
7.         $r{$f[3]} = [ @f[0..2] ];
   
8.     }
   
9. }
   
10. 
    
11. while (my ($k, $v) = each %r) {
    
12.     say "@$v";
    
13. }
    

复制代码

jason680

回复 1# aku1

What You Want Is What You Code(WYWIWYC)

>> ...比如第四列有很多个kernel-firmware...,想抽取日期最新的一行打印，这行包括第l列，第2列和第3列，

1. one-line awk code
$ awk 'd<$1&&$4~/kernel-firmware/{NF=3;s=$0;d=$1}END{print s}' FILE20160306 RHSA-2015:0674-01 kernel-firmware-2.6.32-504.12.2.el6

2. one-line perl code
$ perl -lane '{if(d<$F[0]&&$F[3]=~m/kernel-firmware/){$#F=2;$s="@F";$d=$F[0]}}END{print $s}' FILE
20160306 RHSA-2015:0674-01 kernel-firmware-2.6.32-504.12.2.el6

3. perl code in a file
$ perl get_kernel-firmware.pl FILE
20160306 RHSA-2015:0674-01 kernel-firmware-2.6.32-504.12.2.el6

$ cat get_kernel-firmware.pl
use strict;
use warnings;

my $sDate = 0;
my $sKernel = "";
while(<>){
  my @aItem = split;

  if($sDate < $aItem[0] && $aItem[3] =~ m/kernel-firmware/){
    $#aItem = 2;
    $sKernel = "@aItem";
    $sDate = $aItem[0];
  }
}
print "$sKernel\n";


   

aku1

多谢两位，看样子还是没经常写

aku1

回复 2# MMMIX


    不错！

sunzhiguolu

1. perl -anle '{@a=@F[0..2] if($F[3] eq "kernel-firmware" and (!@a or $a[0]<$F[0]))}END{print "@a"}' f

复制代码

华小飞_Perl

写了一个~

1. #!/usr/bin/perl
   
2. 
   
3. use warnings;
   
4. use strict;
   
5. 
   
6. my @new_kernel;
   
7. while (<>) {
   
8.         chomp;
   
9.         if (/.*?\s+kernel\-firmware\s+.*/) {
   
10.                 push @new_kernel, $_;
    
11.         }
    
12. }
    
13. my %new_kernel = map { $_ =~ /^(\d+)(.*)$/m ? ($1 => $2) : exit; } @new_kernel;
    
14. my @sort = reverse sort { $a <=> $b } keys %new_kernel;
    
15. my $most = shift @sort;
    
16. print $most, $new_kernel{$most}, "\n";

复制代码