如何使用 split 函数

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. while(<DATA>){
   
6.     my ($c) = /\w(.)/;   
   
7.     my @ary = split(/$c/);
   
8.     print("$c:$ary[1]\n");
   
9. }
   
10. 
    
11. __DATA__
    
12. a#b#c
    
13. a|b|c
    

复制代码

输出结果:


能不能让 m/pattern/ 别那么智能，可以吗？

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. while(<DATA>){
   
6.     my ($c, $mc) = map {$_, quotemeta($_)} /\w(.)/;
   
7.     my @ary = split(/$mc/);
   
8.     print("$c:$ary[1]\n");
   
9. }
   
10. 
    
11. __DATA__
    
12. a#b#c
    
13. a|b|c
    

复制代码

感觉有点啰嗦，大家有啥好办法 支一招，谢谢。

ulmer

回复 1# sunzhiguolu

split special char only
perl -le '$s="ab#cd|ef-hi"; @ary=split(/[^A-Za-z]/, $s); print "@ary"'
ab cd ef hi

split letter only
perl -le '$s="ab#cd|ef-hi"; @ary=split(/[A-Za-z]/, $s); print "@ary"'
  #  |  -

sunzhiguolu

回复 2# ulmer
谢谢您的回复，感觉还是我没有将自己的意思表达清楚。
每一行的记录都采用分隔符进行分割 (可能每行之间的分隔符不同，但是记录间用来分割字段的分隔符不会发生变化)。
由于有些分隔符 恰好与 perl 正则中的某些元字符使用相同的字符 导致在 split 进行分割时 正则按照元字符的含义进行解析。
如:'|' 字符，我希望将每行记录中的分隔符取出，并按照该字符的字面含义 交给 split 函数进行处理。取出该字符的原因是在后面可能被用到。

zhlong8

你知道　quotemeta 不知道一个意思的　"\Q$c\E" ?  　这是在正则表达式里插入字符串最严谨的方式，你用的没毛病

104359176

你的代码已经快成汇编了，还要不啰嗦，就变成加密了。

代码如果要维护，就要尽量容易看懂，不单单是对别人，也是对自己。

split  函数的 分隔符号 可以是正则，是 Perl 独有的特点，研究的越多，就中毒越深。

jason680

回复 1# sunzhiguolu

$ echo "1_2|3#4$" |
   perl -lane '{
      @data=split(/([\W_])/);
      @odd=map{$data[$_]}grep{$_%2==1}0..$#data;
      @even=map{$data[$_]}grep{$_%2==0}0..$#data;
      print "@even\n@odd\n"
  }'
1 2 3 4
_ | # $