问个perl正则问题 急

[tonyljl526]

"http://baidu.com/1441330475/yzPJvn4v3 http://baidu.com/1441330475/yzPJvn4v9 http://baidu.com/1441330475/yzPJvn4v1 http://baidu.com/1441330475/yzPJvn4v4 http://baidu.com/1441330475/yzPJvn4v2 http://baidu.com/1441330475/yzPJvn4v6"
这样一段字符串 我想提取出 里面所有的 yzPJvn4v3 组成一个数组
我的想法是 最后一个/和空格 之间 就是我想要的。。 可是怎么也写不出来 求帮助

[libralibra]

python测试版,正则表达式是通用的

>>> res = r'/([a-zA-z0-9]*?) '
>>> m = re.findall(res,s)
>>> m
['yzPJvn4v3', 'yzPJvn4v9', 'yzPJvn4v1', 'yzPJvn4v4', 'yzPJvn4v2']
>>> 

[tonyljl526]

findall 函数 perl中没有类似的啊。。

[tonyljl526]

引用 1 楼 libralibra 的回复:

python测试版,正则表达式是通用的

>>> res = r'/([a-zA-z0-9]*?) '
>>> m = re.findall(res,s)
>>> m
['yzPJvn4v3', 'yzPJvn4v9', 'yzPJvn4v1', 'yzPJvn4v4', 'yzPJvn4v2']
>>> 

findall 函数 perl中没有类似的啊。。

[bugs2k]

$_ = "http://baidu.com/1441330475/yzPJvn4v3 http://baidu.com/1441330475/yzPJvn4v9 http://baidu.com/1441330475/yzPJvn4v1 http://baidu.com/1441330475/yzPJvn4v4 http://baidu.com/1441330475/yzPJvn4v2 http://baidu.com/1441330475/yzPJvn4v6";
@res = m|/(\w+)\s+|g;
print join(", ", @res), "\n";

[bugs2k]