求助perl6的正则

w123456_cu

想把记录中的学校依次抠出来。具体来说，匹配每个 [ ] 后与第一个逗号，之间的内容。


希望输出：

1. Sichuan Normal Univ, Guangdong Polytech Normal Univ, Tsinghua Univ, Zhejiang Wanli Univ
   
2. Sichuan Normal Univ, Chongqing Univ
   
3. Xiamen Univ, Xiamen Univ, Sichuan Normal Univ
   
4. Sichuan Normal Univ

复制代码

1. use v6;
   
2.   for 'data.txt'.IO.lines -> $_ is copy {
   
3.        .chomp;
   
4.        $_ ~~ m:g/']'\s+(.*?)','/;   
   
5.        say $/;
   
6. }      

复制代码

我的不得行，请大家帮忙。

---data.txt---
1   [Lue, Fan] Sichuan Normal Univ, Dept Math, Chengdu 610066, Peoples R China; [Lou, Man-Li] Guangdong Polytech Normal Univ, Dept Math, Guangzhou 510665, Guangdong, Peoples R China; [Wen, Zhi-Ying] Tsinghua Univ, Dept Math, Beijing 100084, Peoples R China; [Xi, Li-Feng] Zhejiang Wanli Univ, Inst Math, Ningbo 315100, Zhejiang, Peoples R China
2  [Li, Yuhuan] Sichuan Normal Univ, Dept Math, Chengdu 610066, Peoples R China; [Lin, Ke; Mu, Chunlai] Chongqing Univ, Coll Math & Stat, Chongqing 401331, Peoples R China
3  [Wu, Jiangtao; Xu, Jun; Li, Nan; Jiang, Yaqi; Xie, Zhaoxiong] Xiamen Univ, State Key Lab Phys Chem Solid Surface, Coll Chem & Chem Engn, Xiamen 361005, Peoples R China; [Wu, Jiangtao; Xu, Jun; Li, Nan; Jiang, Yaqi; Xie, Zhaoxiong] Xiamen Univ, Dept Chem, Coll Chem & Chem Engn, Xiamen 361005, Peoples R China; [Wu, Jiangtao] Sichuan Normal Univ, Coll Chem & Mat Sci, Chengdu 610068, Peoples R China
4  [Wen, Rui; Zhou, Lin; Zou, Xiao; Luo, Lingling; Jiang, Na; Zheng, Qiaoji; Liao, Jie; Xu, Chenggang; Lin, Dunmin] Sichuan Normal Univ, Coll Chem & Mat Sci, Chengdu 610066, Peoples R China
5  [Tian, Mijie; Zhou, Lin; Zou, Xiao; Zheng, Qiaoji; Luo, Lingling; Jiang, Na; Lin, Dunmin] Sichuan Normal Univ, Coll Chem & Mat Sci, Chengdu 610066, Peoples R China

sunzhiguolu

回复 1# w123456_cu
我没有学习过 Perl 6, 对其正则表达式的语法也不理解.
您能否将其转换成 Perl 5 的正则. 谢谢.

   

sunzhiguolu

回复 1# w123456_cu
以下我是猜的, 您可以试下:

$_ ~~ m:g/']'\s+(.*)','/;

[^,]+

   

yakczh_cu

perl6是不是已经over了?

104359176

这种简单的匹配何须动用 Perl6:

1. #!perl
   
2. 
   
3. use 5.020;
   
4. 
   
5. my $str = "[Lue, Fan] Sichuan Normal Univ, Dept Math,";
   
6. if ($str =~ /\] ([^,]+)/) { say $1 }

复制代码

ba_du_co

1. #!perl6
   
2. 
   
3. for $=finish.lines {
   
4.     # TRY THIS
   
5.     # my @univ = .comb(/<after ']'\s*> \S .+? <before ','>/);
   
6.     my @univ = .comb: /<after \]\s*> \S <-[,]>+/;
   
7.     say join ', ', @univ;
   
8. 
   
9.     # OR TRY THIS
   
10.    
    
11.     $_ ~~ m:g/ ']' \s* (.+?) ',' /;
    
12.     say $/.map(*.[0]).join(', ');
    
13. }
    
14. 
    
15. 
    
16. =finish
    
17. 1   [Lue, Fan] Sichuan Normal Univ, Dept Math, Chengdu 610066, Peoples R China; [Lou, Man-Li] Guangdong Polytech Normal Univ, Dept Math, Guangzhou 510665, Guangdong, Peoples R China; [Wen, Zhi-Ying] Tsinghua Univ, Dept Math, Beijing 100084, Peoples R China; [Xi, Li-Feng] Zhejiang Wanli Univ, Inst Math, Ningbo 315100, Zhejiang, Peoples R China
    
18. 2  [Li, Yuhuan] Sichuan Normal Univ, Dept Math, Chengdu 610066, Peoples R China; [Lin, Ke; Mu, Chunlai] Chongqing Univ, Coll Math & Stat, Chongqing 401331, Peoples R China
    
19. 3  [Wu, Jiangtao; Xu, Jun; Li, Nan; Jiang, Yaqi; Xie, Zhaoxiong] Xiamen Univ, State Key Lab Phys Chem Solid Surface, Coll Chem & Chem Engn, Xiamen 361005, Peoples R China; [Wu, Jiangtao; Xu, Jun; Li, Nan; Jiang, Yaqi; Xie, Zhaoxiong] Xiamen Univ, Dept Chem, Coll Chem & Chem Engn, Xiamen 361005, Peoples R China; [Wu, Jiangtao] Sichuan Normal Univ, Coll Chem & Mat Sci, Chengdu 610068, Peoples R China
    
20. 4  [Wen, Rui; Zhou, Lin; Zou, Xiao; Luo, Lingling; Jiang, Na; Zheng, Qiaoji; Liao, Jie; Xu, Chenggang; Lin, Dunmin] Sichuan Normal Univ, Coll Chem & Mat Sci, Chengdu 610066, Peoples R China
    
21. 5  [Tian, Mijie; Zhou, Lin; Zou, Xiao; Zheng, Qiaoji; Luo, Lingling; Jiang, Na; Lin, Dunmin] Sichuan Normal Univ, Coll Chem & Mat Sci, Chengdu 610066, Peoples R China
    

复制代码

w123456_cu

@ba_du_co 谢谢。

w123456_cu

ba_du_co 发表于 2015-11-17 10:43

学习了。老师能加我QQ 38552109 吗？ 有一项目邀请您有偿指导下

ba_du_co

回复 8# w123456_cu


    我沒有 QQ

w123456_cu

回复 9# ba_du_co
邮箱呢
38552109@qq.com