在perl里有什么简单的方法 算出一个字段内还有多少个/

wdl111

在perl里有什么简单的方法 算出一个字段内含有多少个/



比如  a/b/c/f

cobrawgl

你用什么办法？

x9x9

原帖由 cobrawgl 于 2009-11-12 13:28 发表
你用什么办法？

LZ看下这个吧，应该有用。
http://bbs3.chinaunix.net/viewthread.php?tid=624426&extra=

寂寞烈火

tr

wdl111

#!/usr/bin/perl
$b="v/b/c/文";
$count = ($b =~ tr/\///);
print "$count\n";

兰花仙子

我想regex是最简单的吧~~

# perl -le '$x="x/y/a/b/c/f";@c=$x=~m|/|g;print scalar @c'                 
5
# perl -le '$x="x/y/a/b/c/f";for (split//,$x) {$c++ if $_ eq "/"} print $c'
5

justlooks

perl -e 'my $t1="a/b/c/d//f";my @t2=split(/\//,$t1);print $#t2."\n"'

cobrawgl

谁来测试一下哪个方法快

churchmice

tr