新人問(wèn)問(wèn)如何提取文件里字符

522468522

文件如下所示:



我要提取的是兩個(gè)"""中間的內(nèi)容

比如第一對(duì)""" """ 中的內(nèi)容與第二對(duì)""" """中的內(nèi)容

用foreach while聽(tīng)文件好像都 是一行一行打印的，
想到的方法是， 把一個(gè)文件讀進(jìn)一個(gè)變量
再(""".*?""")(""".*?""")， 之后打印$1, $2, 好像不行~~~
把文件讀進(jìn)一個(gè)變量提示很多錯(cuò)誤~~

522468522

寫(xiě)了一個(gè)這樣的， 關(guān)鍵是"""之后與另一個(gè)"""之前的要怎么提�。�

sunzhiguolu

這里是 perl 板塊, python 問(wèn)題應(yīng)該去 python 板塊提問(wèn).

RE_HASH

$/=undef; $_ = <>; print join "\n--\n", /\s(["]{3}.+?["]{3})/sg

sunzhiguolu

回復(fù) 4# RE_HASH
大神, 向您請(qǐng)教個(gè)問(wèn)題: (我開(kāi)始理解錯(cuò)了, 以為是問(wèn) python 問(wèn)題了)
比如只提取 第一對(duì) """ 到 第二對(duì) """ 之間的文本, 如果按行讀取的話, 咋整啊. 謝謝...

   

522468522

回復(fù) 4# RE_HASH

只看了小駱駝， 請(qǐng)問(wèn)$/=....這個(gè)什么意思？

   

522468522

回復(fù) 4# RE_HASH
請(qǐng)問(wèn)可否詳細(xì)說(shuō)說(shuō)？
現(xiàn)在新人學(xué)PERL都不知去哪學(xué)習(xí)了， 都英文資料。。。。。
提問(wèn)都不知去哪提問(wèn)。。。

   

RE_HASH

前兩句把文件整個(gè)讀入到$_, 第三句匹配三個(gè)引號(hào)之間的內(nèi)容并打印。單行處理較羅嗦，你的數(shù)據(jù)是源代碼所以不會(huì)太長(zhǎng)，一并處理方便些。

grshrd49

1. use strict;
   
2. 
   
3. my $s;
   
4. my @recode;
   
5. while(<DATA>){
   
6.         chomp($_);
   
7.         $s = $s . $_ . "--NEWLINE--";
   
8. }
   
9. 
   
10. while(1){
    
11.         if($s =~ /"""(.*?)"""/){
    
12.                 my $t = $1;
    
13.                 $t =~ s/--NEWLINE--/\n/g;
    
14.                 unshift @recode, $t;
    
15.                 $s =~ s/""".*?"""//;
    
16.                 next;
    
17.         }
    
18.         last;
    
19. }
    
20. 
    
21. for(@recode){
    
22.         print "\ndebug-- ".$_."\n";
    
23. }
    
24. 
    
25. 
    
26. __DATA__
    
27. adfadf
    
28. adfasdfa
    
29.   """
    
30.   yxm.hah
    
31.   123
    
32.   fdfdf
    
33.   """
    
34. adfadfadfgagsa
    
35. """yxmyxm"""
    
36. fsadfasdfa

復(fù)制代碼

grshrd49

我把換行符替換成 --NEWLINE-- ，然后用正則抓取抓完就清除掉 這樣避免第二個(gè)符合和第三個(gè)符號(hào)中間的字符串被抓出來(lái)
抓取后再把 --NEWLINE-- 替換成 換行符
記錄都在 @recode 中