split的问题求解

belial_g

$str = "abc|1:=|1:=abc|
my ($f1, $f2, $f3) = split /[^\\]\|/, $str;

print "$f1 $f2 $f3\n";

得到是
abc 1: 1:=ab

最后一个字符没了,  我如何让正则表达式里的[^\\]不被当做分割符号

[ 本帖最后由 belial_g 于 2009-3-22 12:29 编辑 ]

churchmice

没看明白你想干啥

1. 
   
2. use strict;
   
3. use warnings;
   
4. my $str = "abc|1:=|1:=abc|";
   
5. my ($f1, $f2, $f3) = split /\|/, $str;
   
6. print "$f1 $f2 $f3\n";
   

复制代码

这样不就可以了？