新人问问如何提取文件里字符

522468522

文件如下所示:



我要提取的是两个"""中间的内容

比如第一对""" """ 中的内容与第二对""" """中的内容

用foreach while听文件好像都 是一行一行打印的，
想到的方法是， 把一个文件读进一个变量
再(""".*?""")(""".*?""")， 之后打印$1, $2, 好像不行~~~
把文件读进一个变量提示很多错误~~

522468522

写了一个这样的， 关键是"""之后与另一个"""之前的要怎么提取？

sunzhiguolu

这里是 perl 板块, python 问题应该去 python 板块提问.

RE_HASH

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

sunzhiguolu

回复 4# RE_HASH
大神, 向您请教个问题: (我开始理解错了, 以为是问 python 问题了)
比如只提取 第一对 """ 到 第二对 """ 之间的文本, 如果按行读取的话, 咋整啊. 谢谢...

   

522468522

回复 4# RE_HASH

只看了小骆驼， 请问$/=....这个什么意思？

   

522468522

回复 4# RE_HASH
请问可否详细说说？
现在新人学PERL都不知去哪学习了， 都英文资料。。。。。
提问都不知去哪提问。。。

   

RE_HASH

前两句把文件整个读入到$_, 第三句匹配三个引号之间的内容并打印。单行处理较罗嗦，你的数据是源代码所以不会太长，一并处理方便些。

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

复制代码

grshrd49

我把换行符替换成 --NEWLINE-- ，然后用正则抓取抓完就清除掉 这样避免第二个符合和第三个符号中间的字符串被抓出来
抓取后再把 --NEWLINE-- 替换成 换行符
记录都在 @recode 中