亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

Chinaunix

標(biāo)題: ~~遇到一個(gè)新問題，各位高手教教我吧！！ [打印本頁]
作者: 花蝴蝶456789    時(shí)間: 2013-12-13 17:40
標(biāo)題: ~~遇到一個(gè)新問題，各位高手教教我吧！！
本帖最后由 花蝴蝶456789 于 2013-12-13 17:43 編輯

{: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文件中。
   
}


我的問題描述清楚了嗎？請(qǐng)各位高手教教我。非常感謝�。�！) )
作者: rubyish    時(shí)間: 2013-12-14 02:23
本帖最后由 rubyish 于 2013-12-14 21:26 編輯

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    時(shí)間: 2013-12-14 09:46
回復(fù) 2# rubyish

太厲害了！！非常感謝您�。�！{:2_172:}
    謝謝��！
作者: rubyish    時(shí)間: 2013-12-15 01:23
回復(fù) 3# 花蝴蝶456789
sorry~ 錯(cuò)誤~
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    時(shí)間: 2013-12-23 14:25
十分感謝。你真好��！ {:2_172:}

   



歡迎光臨 Chinaunix (http://www.72891.cn/) Powered by Discuz! X3.2