請教一個字符串處理的問題

thsniperwolf

請教一下大家這樣一個問題，一個字符串teststring = "/product/test/",perl里面有什么簡便的方法或者函數(shù)把字符串里面的"/"全部替換成"#"嗎？ 一開始我用的是sed，但是sed是linux的命令，還得借助system()來執(zhí)行，而且sed "s/\//\#" teststring
也沒成功，因?yàn)槔习岩�替換的"/"當(dāng)成sed的分隔符了。。。

我對perl不是很熟悉，最近工作需要涉及到這個改動，弄了很久沒弄出來。希望有高人幫下忙，謝謝

leigh111

s{\/}{#};

leigh111

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

wdl111

s?/?#?g

thsniperwolf

為什么我照你這樣做后，打印出來的是一串?dāng)?shù)字呢
$test ="/product/test/";
$test =~s{\/}{#}g;
print $test;

打印出來一串?dāng)?shù)字4294967295  .........

leigh111

我在我的機(jī)子上運(yùn)行時正常的，結(jié)果是#product#test#

你看看是不是其他的問題

thsniperwolf

謝謝4樓，原來分隔符可以用其他符號啊，我一直以為只能用"/"。。。
也謝謝3樓，雖然不對，但是提醒了我

cobrawgl

原帖由 thsniperwolf 于 2009-11-12 10:41 發(fā)表
為什么我照你這樣做后，打印出來的是一串?dāng)?shù)字呢
$test ="/product/test/";
$test =~s{\/}{#}g;
print $test;

打印出來一串?dāng)?shù)字4294967295  .........

s{/}{#}g;

x9x9

原帖由 thsniperwolf 于 2009-11-12 10:41 發(fā)表
為什么我照你這樣做后，打印出來的是一串?dāng)?shù)字呢
$test ="/product/test/";
$test =~s{\/}{#}g;
print $test;

打印出來一串?dāng)?shù)字4294967295  .........

應(yīng)該沒問題，這只是一個簡單的替換。。。
寫法雖然不對，在windows上測試{\/} 和 {/}都能過...

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

thsniperwolf

可能是機(jī)器問題，后來我那樣做也能正確顯示，有點(diǎn)莫名其妙了，不管怎樣謝謝大家