如何匹配一个或多个/

noexcuse

1^# noexcuse 发表于 2008-08-26 16:37

[Copy to clipboard] [ - ]

CODE:

my $filestore = <STDIN>;
if($filestore =~ /\//){
print "a";
}

这样是不行的，只要包含/ 就过不去
现在只希望用户输入/,//,///等类似时，才提示
该怎么写？
thx

lvlfforever

2^# lvlfforever 发表于 2008-08-26 16:45

没问题啊

noexcuse

3^# noexcuse 发表于 2008-08-26 16:53

有点问题，和我预想的不同。。。
现在是/ //是输出a
但是/a /abc /a/b也是输入a，这不是我希望的

9119111

4^# 9119111 发表于 2008-08-26 16:58

my $filestore = '/a /abc /a/b';
if($filestore =~ /\/\W/){
print "a";
}

cobrawgl

5^# cobrawgl 发表于 2008-08-26 17:47

建议 lz 把自己的问题描述的详细些，最好连测试数据及结果都带上

ly5066113

6^# ly5066113 发表于 2008-08-26 17:58

估计是这意思：

/^\/+$/

cobrawgl

7^# cobrawgl 发表于 2008-08-26 18:02

忍不住提醒大家一句
其实用不着用 \ 来转义的

/\// 跟 m{/}　是一样的，还是后者看着舒服

forlorngenius

8^# forlorngenius 发表于 2008-08-26 18:31

这种问题cu最在行了。

aboy11

9^# aboy11 发表于 2008-08-26 19:38

[Copy to clipboard] [ - ]

CODE:

my $filestore = <STDIN>;
if($filestore =~ /\/.+\/.*/){
print "a";
}

不知道楼主是不是这个意思..

zzyong08

10^# zzyong08 发表于 2008-08-27 09:33

楼主的问题没说清楚,要大家猜你的意思,实在太难了.
应该写个例子看看,告诉大家,想要什么,不想要什么.