一個(gè)抽取的問題

bikong0411

回復(fù) 20# MMMIX

1. cat 1.pl
   
2. $str='02/07/2015  *    L    2014:0306.1  [RHSA-2014:0159-01] Important: kernel
   
3. security and bug fix update';
   
4. 
   
5. print split(/[][]/, $str)[1];
   
6. $perl 1.pl
   
7. syntax error at 1.pl line 4, near ")["
   
8. Execution of 1.pl aborted due to compilation errors.
   
9. $ perl -v
   
10. 
    
11. This is perl 5, version 18, subversion 2 (v5.18.2) built for darwin-thread-multi-2level
    
12. (with 2 registered patches, see perl -V for more detail)
    
13. 
    
14. Copyright 1987-2013, Larry Wall
    
15. 
    
16. Perl may be copied only under the terms of either the Artistic License or the
    
17. GNU General Public License, which may be found in the Perl 5 source kit.
    
18. 
    
19. Complete documentation for Perl, including FAQ lists, should be found on
    
20. this system using "man perl" or "perldoc perl".  If you have access to the
    
21. Internet, point your browser at http://www.perl.org/, the Perl Home Page.

復(fù)制代碼

flyhigh318

[oss@localhost log]$ cat line.log
02/07/2015  *    L    2014:0306.1  [RHSA-2014:0159-01] Important: kernel security and bug fix update
10/12/2015       L    2014:2962.1  [RHSA-2014:1655-01] Moderate: libxml2 security update
[oss@localhost log]$ perl -e '{@t=`cat line.log`;grep{if($_=~/(^\d.*?\d{4}).*?(\[.*\]).*/){print "$1\t$2\n";};}@t}'
02/07/2015      [RHSA-2014:0159-01]
10/12/2015      [RHSA-2014:1655-01]

sunzhiguolu

bikong0411 發(fā)表于 2015-07-23 11:17
回復(fù) 20# MMMIX

你寫的代碼有問題, 肯定會(huì)報(bào)錯(cuò)啊!

sunzhiguolu

1. perl -ple '($_)=/\[([^]]+)/' f

復(fù)制代碼

華小飛_Perl

1. #!/usr/bin/perl
   
2. 
   
3. use warnings;
   
4. use strict;
   
5. 
   
6. while (<>) {
   
7.         chomp;
   
8.         if (/(\d+\/\d+\/\d+).*?(\[\S+\])/) {
   
9.                 print $1, "\t", $2, "\n";
   
10.         }
    
11. }

復(fù)制代碼