写一个函数 参数是一个字符串，返回字符串中的英..
时间：2007-09-17 来源：starB6
#!perl -w
print "please input the String:\n";
my $data = <STDIN>;
chomp($data);
&ABC($data);
sub ABC
{
chomp(@_);
my ($str) = @_;
my $i;
my $count=0;
my $lent = length($str);
for ( $i=0;$i<=$lent; $i++)
{
my $str_current = substr($str,$i,1);
chomp($str_current);
if ($str_current =~ /[a-zA-Z]/)
{
$count++;
}
}
print "the total is ::::::$count\n";
}
my $data = <STDIN>;
chomp($data);
&ABC($data);
sub ABC
{
chomp(@_);
my ($str) = @_;
my $i;
my $count=0;
my $lent = length($str);
for ( $i=0;$i<=$lent; $i++)
{
my $str_current = substr($str,$i,1);
chomp($str_current);
if ($str_current =~ /[a-zA-Z]/)
{
$count++;
}
}
print "the total is ::::::$count\n";
}
相关阅读 更多 +
