Shell 脚本编写

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my @aData = (-1, -1, undef);
   
6. 
   
7. while (<>){
   
8.     my ($c1, $c2, $c3) = split;
   
9.     my ($v) = $c1 =~ /\d+/g;
   
10.     $aData[-1] ||= $c3;
    
11.     if ($aData[-1] eq $c3){
    
12.         @aData[0, 1, -1] = ($v, $c2, $c3) if ($aData[0] <= $v);
    
13.         next;
    
14.     }
    
15.     print "@aData\n";
    
16.     @aData = ();
    
17.     @aData[0, 1, 2] = ($v, $c2, $c3);
    
18. }
    
19. print "@aData\n";
    

复制代码

perl abc.pl abc
------------------------------------------
4 498048 00:08:30
10 420104 00:08:31
12 420104 00:08:32

Jason_0316

回复 8# haooooaaa


awk -vs="000829" -ve="000833" -F'[ :]+' '{m=+($3$4$5)}m>+s && m<+e{f=+substr($1,3);g=$3":"$4":"$5;if(a[g]<=f){a[g]=f;b[g]=$2}}END{for(i in a)print a,b,i}'  a.txt
4-GID0 498048 00:08:30
9-GID0 420104 00:08:31
9-GID0 420104 00:08:32

应输出
4-GID0 498048 00:08:30
10-GID0 420104 00:08:31
12-GID0 420104 00:08:32

Jason_0316

回复 8# haooooaaa


awk -vs="000829" -ve="000833" -F'[ :]+' '{m=+($3$4$5)}m>+s && m<+e{f=+substr($1,3);g=$3":"$4":"$5;if(a[g]<=f){a[g]=f;b[g]=$2}}END{for(i in a)print a,b,i}'  a.txt
4-GID0 498048 00:08:30
9-GID0 420104 00:08:31
9-GID0 420104 00:08:32
-应输出
4-GID0 498048 00:08:30
10-GID0 420104 00:08:31
12-GID0 420104 00:08:32

Jason_0316

回复 11# sunzhiguolu


大师给力啊，运行结果正确，不过我对perl不熟悉，学习啦！谢谢！

Jason_0316

回复 11# sunzhiguolu


大师，如果我加上起始和结束时间段读取源文件，脚本怎么修改下吗？

比如 这个文件一天内时间，只取某一段时间的。

谢谢！

sunzhiguolu

回复 15# Jason_0316
试下,
perl abc.pl abc

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my @aData = (-1, -1, undef);
   
6. my $regx = qr /(?<=\d)(?=(?:\d\d)+\z)/;
   
7. 
   
8. print "Enter begin time:";
   
9. chomp (my $bt = <STDIN>);
   
10. print "Enter end time:";
    
11. chomp (my $et = <STDIN>);
    
12. 
    
13. $bt =~ s/$regx/:/g;
    
14. $et =~ s/$regx/:/g;
    
15. 
    
16. while (<>){
    
17.     my ($c1, $c2, $c3) = split;
    
18.     if ($c3 gt $bt and $c3 lt $et){
    
19.         my ($v) = $c1 =~ /\d+/g;
    
20.         $aData[-1] ||= $c3;
    
21.         if ($aData[-1] eq $c3){
    
22.             @aData[0, 1, -1] = ($v, $c2, $c3) if ($aData[0] <= $v);
    
23.             next;
    
24.         }
    
25.         print "@aData\n";
    
26.         @aData = ();
    
27.         @aData[0, 1, 2] = ($v, $c2, $c3);
    
28.     }
    
29. }
    
30. print "@aData\n";
    

复制代码

sunzhiguolu

你再验证下, (输入的时间需要完整输入, 如: 000120 而不能 00120)

perl abc.pl abc
Enter begin time:000830
Enter end time:000832
-----------------------------------------------
10 420104 00:08:31

perl abc.pl abc
Enter begin time:000830
Enter end time:000833
-----------------------------------------------
10 420104 00:08:31
12 420104 00:08:32

Jason_0316

回复 17# sunzhiguolu


    大师，我验证了下，输入时间000829 和 00:08:29 都可以，另外时间输入，可以这样写：perl abc.per abc.txt 00:08:29 00:08:35 ？ 这样可以写到命令行脚本了！


    非常感谢，谢谢！

sunzhiguolu

回复 19# Jason_0316
再试下,
perl abc.pl abc 000830 000833

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

my @aData = (-1, -1, undef);
my $regx = qr /(?<=\d)(?=(?:\d\d)+\z)/;

my ($bt, $et) = splice (@ARGV, 1);
s/$regx/:/g for ($bt, $et);

while (<>){
    my ($c1, $c2, $c3) = split;
    if ($c3 gt $bt and $c3 lt $et){
        my ($v) = $c1 =~ /\d+/g;
        $aData[-1] ||= $c3;
        if ($aData[-1] eq $c3){
            @aData[0, 1, -1] = ($v, $c2, $c3) if ($aData[0] <= $v);
            next;
        }
        print "@aData\n";
        @aData[0, 1, -1] = ($v, $c2, $c3);
    }
}
print "@aData\n";