~~遇到一個新問題，各位高手教教我吧！！

花蝴蝶456789

{:2_168:} 源代碼是這樣的數(shù)據(jù)：
    ##某一行源代碼包含了360lx_ ####      <td  class="td_0" align="center" valign="middle" width="12%"><a 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.#/或者是www.360.com#####     <td  class="td_0" align="center" valign="middle" width="12%"><a href='http://so.#/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.#/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.# </nobr></a></td>

{:3_201:} 我的程序是這樣寫的：

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

while (<> {
    while中，想生產(chǎn)這樣的數(shù)據(jù)。
    如果某一行包含“360lx_”且相鄰的下一行，包含so.#或者是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. }

復(fù)制代碼

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. }

復(fù)制代碼

花蝴蝶456789

回復(fù) 2# rubyish

太厲害了�。》浅８兄x您�。�！{:2_172:}
    謝謝��！

rubyish

回復(fù) 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. }

復(fù)制代碼

花蝴蝶456789

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