文本查找求助

bikkuri

[ 本帖最后由 bikkuri 于 2017-03-03 22:49 编辑 ]\n\n大家好！我有一个问题向大家请教。有这样一个文本：
[root@shinagawa:/tmp]# grep -A4 -B4 "Resolution" output.SAMPTS-183104
                    </div>
    </li>
                                <li class="item item-right">
            <div class="wrap">
                <strong class="name">Resolution:</strong>
                <span id="resolution-val" class="value unresolved" >
                                    Unresolved
                                </span>
            </div>
[root@shinagawa:/tmp]#
想要查找的内容在关键字"Resolution:"出现后下面的第三行，在这里是“Unresolved”。请问用perl怎么写这个查找命令呢？
我用下面的命令得到的是错误结果</strong>。
if (open (FH, "$ptsoutput")) {
while ( <FH> ) {
if (/Resolution\s*:\s*(.+)$/)   { $res = $1; }
}
}
close FH;

谢谢！

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my $cnt = 0;
   
6. while (<DATA>){
   
7.         if (/Resolution/){
   
8.                 $cnt++;
   
9.                 next;
   
10.         }
    
11.         $cnt and $cnt++;
    
12.         print if ($cnt == 3);
    
13. }
    
14. 
    
15. __DATA__
    
16. </div>
    
17.     </li>
    
18.                                 <li class="item item-right">
    
19.             <div class="wrap">
    
20.                 <strong class="name">Resolution:</strong>
    
21.                 <span id="resolution-val" class="value unresolved" >
    
22.                                     Unresolved
    
23.                                 </span>
    
24.             </div>

复制代码

bikkuri

谢谢您的答复。
能不能把得到的结果Unresolved的第一个字母U赋值给变量res呢？


回复 2# sunzhiguolu

sunzhiguolu

回复 3# bikkuri

1. if ($cnt == 3){
   
2.         my ($res) = split;
   
3.         print substr ($res, 0, 1), "\n";
   
4.     }
   

复制代码

bikkuri

非常感谢！

回复 4# sunzhiguolu