求助，多次匹配及查找出现的位置

wuling_wm

1^# wuling_wm 发表于 2007-12-10 16:55

有如下字符串
$str = " ......--------..........-......--.........--......"；
符号 - 在一行中出现的次数及个数都是随机的，请问怎么找到每次出现 - 的位置，连续的几个 - 算一个。
请高手赐教啊，谢谢了。

flw

2^# flw 发表于 2007-12-10 16:56

/-+/g

wuling_wm

3^# wuling_wm 发表于 2007-12-10 17:06

谢谢
可是还要返回位置啊

flw

4^# flw 发表于 2007-12-10 17:13

QUOTE:

原帖由 wuling_wm 于 2007-12-10 17:06 发表
谢谢
可是还要返回位置啊

perldoc -f pos
print pos;

wuling_wm

5^# wuling_wm 发表于 2007-12-10 17:19

ok 搞定了，多谢

lvlfforever

6^# lvlfforever 发表于 2007-12-10 17:22

$_ = "......--------..........-......--.........--......";
print pos() - length($&), $/ while (/-+/g);

Lonki

7^# Lonki 发表于 2007-12-10 18:47

pos是匹配的字符串的结束位置.
@-里面的$-[0]是匹配的字符串的起始位置.

wuling_wm

8^# wuling_wm 发表于 2007-12-10 19:44

多谢各位！