~~遇到一个新问题，各位高手教教我吧！！

花蝴蝶456789

{:2_168:} 源代码是这样的数据：
    ##某一行源代码包含了360lx_ ####      <td  class="td_0" align="center" valign="middle" width="12%"><a href='http://university.bailitop.com/Universities-index-id-255.html?360lx_13730' title='http://university.bailitop.com/Universities-index-id-255.html?360lx_13730' target="_blank"><nobr>http://university.bailitop.com/Universities-index-id-255.html?360lx_13730</nobr></a></td>


    ##另一行源代码包含了so.360.cn/或者是www.360.com#####     <td  class="td_0" align="center" valign="middle" width="12%"><a href='http://so.360.cn/s?ie=utf-8&amp;src=know_side_nlp&amp;q=%E5%89%91%E6%A1%A5%E5%A4%A7%E5%AD%A6&amp;from=know_side_nlp' title='http://so.360.cn/s?ie=utf-8&amp;src=know_side_nlp&amp;q=%E5%89%91%E6%A1%A5%E5%A4%A7%E5%AD%A6&amp;from=know_side_nlp' target="_blank"><nobr>so.360.cn </nobr></a></td>

{:3_201:} 我的程序是这样写的：

@ARGV = <$dir/新建文件夹/*.html>;
open (ORR,">123.txt";

while (<> {
    while中，想生产这样的数据。
    如果某一行包含“360lx_”且相邻的下一行，包含so.360.cn或者是www.360.com。将这两行合并为一行，用制表符分开。且输出至123.txt文件中。
   
}


我的问题描述清楚了吗？请各位高手教教我。非常感谢！！！) )

rubyish

biru:
bad:

1. my $so = qr/(?:so|www).360.c(?:n|om)/;
   
2. while (<>) {
   
3.     if (/360lx_/) {
   
4.         my $next = <>;
   
5.         if ( !eof and $next =~ /$so/ ) {
   
6.             chomp;
   
7.             print "$_\t$next";
   
8.         }
   
9.     }
   
10. }

复制代码

better:

1. my $so = qr/(?:so|www)\.360\.c(?:n|om)/;
   
2. my $before;
   
3. while (<>) {
   
4.     if ( $before and /$so/ ) {
   
5.         chomp $before;
   
6.         print "$before\t$_";
   
7.         $before = '';
   
8.     }
   
9.     elsif (/360lx_/) {
   
10.         last if eof;
    
11.         my $next = <>;
    
12.         if ( $next =~ /$so/ ) {
    
13.             chomp;
    
14.             print "$_\t$next";
    
15.         }
    
16.         elsif ( $next =~ /360lx_/ ) {
    
17.             $before = $next;
    
18.         }
    
19.     }
    
20. }

复制代码

花蝴蝶456789

回复 2# rubyish

太厉害了！！非常感谢您！！！{:2_172:}
    谢谢！！

rubyish

回复 3# 花蝴蝶456789
sorry~ 错误~
better

1. my $so = qr/(?:so|www)\.360\.c(?:n|om)/;
   
2. my $before;
   
3. while (<>) {
   
4.     if ( $before and /$so/ ) {
   
5.         chomp $before;
   
6.         print "$before\t$_";
   
7.         $before = '';
   
8.     }
   
9.     elsif (/360lx_/) {
   
10.         last if eof;
    
11.         my $next = <>;
    
12.         if ( $next =~ /$so/ ) {
    
13.             chomp;
    
14.             print "$_\t$next";
    
15.         }
    
16.         elsif ( $next =~ /360lx_/ ) {
    
17.             $before = $next;
    
18.         }
    
19.     }
    
20. }

复制代码

花蝴蝶456789

十分感谢。你真好！！ {:2_172:}