Shell脚本编写求助，Help me.！

myster

我想实现文本筛选，假设文件内容有1000行，其中关键字是abc。
想实现：将所有abc前4行后18行的内容摘出来导入另一个文件当中。

请精通脚本的朋友给予帮助，现在非常着急用，先谢谢啊

dieken_qfz

Post by myster
我想实现文本筛选，假设文件内容有1000行，其中关键字是abc。
想实现：将所有abc前4行后18行的内容摘出来导入另一个文件当中。

请精通脚本的朋友给予帮助，现在非常着急用，先谢谢啊

perl a.pl < your_data

1. 
   
2. #! /usr/bin/perl
   
3. 
   
4. @data = <STDIN>;
   
5. 
   
6. for ($i = 0; $i <= $#data; ++$i) {
   
7.         if ( index($data[$i] , "abc") >= 0) {
   
8.                 #print "FOUND: $data[$i]";
   
9.                 for ($j = ($i -4 > 0 ? $i-4 : 0);  
   
10.                 $j <= ($i + 18 < $#data ? $i + 18 : $#data);
    
11.                 ++$j) {
    
12.                         #print $j, " ", $data[$j];
    
13.                         print $data[$j];
    
14.                 }
    
15.                 #print "END\n";
    
16.         }
    
17. }
    
18. 
    

复制代码

myster

未经调试，也是换了一种思路吧，请问如何输出结果至单独文件？
Perl脚本编程不是很熟。
经朋友相助，用cat file|grep -A18 -B4 "abc"实现比较简单快捷。

dieken_qfz

不错，grep的办法简明。

输出到文件？ perl a.pl < input  >output

myster

对于小型文件还可以，对于数据比较多的文件，比如几十M或几百M的文件，这样程序运行起来就很耗时。
有时间研究一下grep源码。
它的执行效率的确很快。

myster

现在假设我有一个文件中包括若干个随机生成的数字串,且不固定长度,但是位置固定.
我想统计有多少个,并且每个的数量有多少,看看有没有什么好的方法.