Hi! I’m clsung

Hi! I’m clsung

clsung’s blog site

Hi! I’m clsung RSS Feed
 
 
 
 

[regex] match match 再 match

一定還有更好的方法…. *想*

話說我在進行某非常善良的project,需要做一些字串比對,想當然爾就是用 perl 囉。
正當我使用 REGular EXpression(簡稱 regex)很快樂的時候,發現有些詞沒有比對到,這真是怪事,檔案範例如下:

123JJJ456789JJJ123
456JJJ789

請問裡面有多少個 數字x3JJJ數字x3 咧?

foreach my $line (@lines) {
    my $tline = $line;
    while ($tline =~ m/(d{3}JJJd{3})/m) {
        print $1."n";
        $tline = $’;
    }
}

Leave a Reply

噗浪:

  • clsung 說 該來休息了 9 小時 之前
  • clsung 說 本週最後一個上班日囉 18 小時 之前
  • clsung 說 今天 2940, 看來昨天有量錯, 因為前天 2830, 昨天竟然報 2760 .... 2010-03-18

分類

Flickr

    clsung. Get yours at bighugelabs.com/flickr

Blogroll

    馬的警總回來了