急，这个文本要截取多个字符串

wzltian

有个文本 a.txt，内容如下

-rwxr-xr-x   3 nign nign     29378 2017-07-09 02:30 /data1/asb/mobile/23/t_mobbae/year=2017/month=201707/day=20170708a/ngin.log.access.2017070833
-rwxr-xr-x   3 nign nign     29435 2017-07-10 02:37 /data1/a12/yidong/33/t_mobbae/year=2017/month=201707/day=20170709b/ngin.log.access.20170709123
-rwxr-xr-x   3 nign nign     12312 2017-07-10 02:37 /data1/a12/yidong/33/liantong/year=2017/month=201707/day=20170709/dbamysql.log.access.201707091
说明： 日志是空格分隔符，这个日志中一定有year，month，day这3个字符串，取第5列的值，然后截取最后一列的year前的字符串及day 的值，最后是日志的名称
希望的结果如下  b.txt：
               29378  t_mobbae   day  20170708a ngin
               29435  t_mobbae   day  20170709b ngin
               12312  liantong      day  20170709 dbamysql

moperyblue

1. awk '{match($NF,"([^/]+)/year=.*/(day)=([^/]+)/([^.]+)",a);print $5,a[1],a[2],a[3],a[4]}' a.txt

复制代码

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. while(<DATA>){
   
6.         (my $a, local $_) = map {$_->[4], $_->[-1]} [split];
   
7.         my $b = $1 if(m{(\w+)/year});
   
8.         my $c = "day $1" if(/day=(\w+)/);
   
9.         my $d = $1 if(m{/(\w+)[^/]+\z});
   
10.         print("$a $b $c $d\n");
    
11. }
    
12. 
    
13. __DATA__
    
14. -rwxr-xr-x   3 nign nign     29378 2017-07-09 02:30 /data1/asb/mobile/23/t_mobbae/year=2017/month=201707/day=20170708a/ngin.log.access.2017070833
    
15. -rwxr-xr-x   3 nign nign     29435 2017-07-10 02:37 /data1/a12/yidong/33/t_mobbae/year=2017/month=201707/day=20170709b/ngin.log.access.20170709123
    
16. -rwxr-xr-x   3 nign nign     12312 2017-07-10 02:37 /data1/a12/yidong/33/liantong/year=2017/month=201707/day=20170709/dbamysql.log.access.201707091

复制代码

wzltian

回复 2# moperyblue

  感谢，匹配的那段没看懂

wzltian

回复 3# sunzhiguolu
   不好意思，我没有说清楚，我是要用shell来解决这个问题

sunzhiguolu

PowerShell Codes, 测试环境 Windows:

1. $wkPath = 'yourWorkPath:'
   
2. foreach($line in Get-Content -Encoding UTF8 -Filter log* -Path $wkPath\*){
   
3.     $a, $o = @(-split $line)[4, -1]
   
4.     if($o -match "(?<B>\w+)/year[^.]+\b(?<E>\w+)"){
   
5.         $b = $Matches.B
   
6.         $e = $Matches.E
   
7.     }
   
8.     if($o -match "(?<C>day)=(?<D>\w+)"){
   
9.         $c = $Matches.C
   
10.         $d = $Matches.D
    
11.     }
    
12.     Write-Host $a $b $c $d $e
    
13. }

复制代码

moperyblue

回复 4# wzltian


没看懂就补补 正则 和 awk相关的知识