求助:split 忽略双引号中的分割符

a_pathy

$_=111 222 333 444 "WIDTH" "Unknow    "  "1.jpg 2.jpg 3.jpg"
分割成
111
222
333
444
"WIDTH"
"Unknow    "
"1.jpg 2.jpg 3.jpg"

如何写正则表达式,效率比较高,因为数据量比较大,谢谢le!

jason680

$_=111 222 333 444 "WIDTH" "Unknow    "  "1.jpg 2.jpg 3.jpg"
分割成
111
222
333
444
"WIDTH"
" ...
a_pathy 发表于 2011-04-01 14:21

1. $_='111 222 333 444 "WIDTH" "Unknow    "  "1.jpg 2.jpg 3.jpg"';
   
2. # 1
   
3. @items = (m/(\w+|"[^"]+?")\s*/g);
   
4. # do something for @items ...
   
5. 
   
6. 
   
7. # 2
   
8. while(m/(\w+|"[^"]+?")\s*/g){
   
9.     # do something for $1 ...
   
10.     print "$1\n";
    
11. }
    

复制代码

a_pathy

好像不可以阿.
能解释一下吗?

a_pathy

试了Text:arseWords模块, 但是效率很低,比自己写的函数效率低.
还有没有效率高的方式

iLRainyday

1. my $foo = '111 222 333 444 "WIDTH" "Unknow    "  "1.jpg 2.jpg 3.jpg"';
   
2. my @words = split /(?:\d|")\K\s+/, $foo;
   
3. 
   
4. local $" = "\n";
   
5. print "@words";

复制代码

x9x9

回复 5# iLRainyday


    这个很强，楼上能给解释下吗？

zhlong8

如果里面有个字段是 "a.mp3 " 就悲剧了

iLRainyday

如果里面有个字段是 "a.mp3 " 就悲剧了
zhlong8 发表于 2011-04-01 22:10

嘿~~lz就给了一个样本，我就只针对这个样本了，没考虑太多。

iLRainyday

回复  iLRainyday


    这个很强，楼上能给解释下吗？
x9x9 发表于 2011-04-01 21:57

\K : Keep the stuff left of the \K, don't include it in $&

你再想想

a_pathy

还是不可以阿
,其中有字段是0.0563 被split 成了0 0563