请教一个字符串处理的问题

thsniperwolf

请教一下大家这样一个问题，一个字符串teststring = "/product/test/",perl里面有什么简便的方法或者函数把字符串里面的"/"全部替换成"#"吗？ 一开始我用的是sed，但是sed是linux的命令，还得借助system()来执行，而且sed "s/\//\#" teststring
也没成功，因为老把要替换的"/"当成sed的分隔符了。。。

我对perl不是很熟悉，最近工作需要涉及到这个改动，弄了很久没弄出来。希望有高人帮下忙，谢谢

leigh111

s{\/}{#};

leigh111

my $teststring = "/product/test/";
$teststring =~ s{\/}{#}g;
print $teststring;
不好意思，望写了，后面再加一个g

wdl111

s?/?#?g

thsniperwolf

为什么我照你这样做后，打印出来的是一串数字呢
$test ="/product/test/";
$test =~s{\/}{#}g;
print $test;

打印出来一串数字4294967295  .........

leigh111

我在我的机子上运行时正常的，结果是#product#test#

你看看是不是其他的问题

thsniperwolf

谢谢4楼，原来分隔符可以用其他符号啊，我一直以为只能用"/"。。。
也谢谢3楼，虽然不对，但是提醒了我

cobrawgl

原帖由 thsniperwolf 于 2009-11-12 10:41 发表
为什么我照你这样做后，打印出来的是一串数字呢
$test ="/product/test/";
$test =~s{\/}{#}g;
print $test;

打印出来一串数字4294967295  .........

s{/}{#}g;

x9x9

原帖由 thsniperwolf 于 2009-11-12 10:41 发表
为什么我照你这样做后，打印出来的是一串数字呢
$test ="/product/test/";
$test =~s{\/}{#}g;
print $test;

打印出来一串数字4294967295  .........

应该没问题，这只是一个简单的替换。。。
写法虽然不对，在windows上测试{\/} 和 {/}都能过...

[ 本帖最后由 x9x9 于 2009-11-12 10:55 编辑 ]

thsniperwolf

可能是机器问题，后来我那样做也能正确显示，有点莫名其妙了，不管怎样谢谢大家