出个小题目，无聊的人可以来玩一下

福瑞哈哥

UID: 28819
帖子: 3
积分: 6
在线时间: 10 分钟

1^# 福瑞哈哥发表于 2007-09-17 09:51

出个小题目，无聊的人可以来玩一下

写一个函数count_alpha，参数是一个字符串，返回字符串中的英文字母的个数。高手就先不要亮牌了。
sub count_alpha {
...
}

027xiatian

UID: 45056
帖子: 158
积分: 363
在线时间: 1 天 10 小时

2^# 027xiatian 发表于 2007-09-17 10:11

sub countchar
{
my $count;
my @char=split "",$_[0];
foreach (@char)
{
$count++ if $_ =~ /[a-zA-Z]/;
}
return $count;
}

这个行么？？

福瑞哈哥

UID: 28819
帖子: 3
积分: 6
在线时间: 10 分钟

3^# 福瑞哈哥发表于 2007-09-17 10:14

功能上应该是正确的，但是还不够简练。

redspider

UID: 15827
帖子: 146
积分: 335
在线时间: 1 天 5 小时

4^# redspider 发表于 2007-09-17 10:36

my $c = $str =~ s/[a-zA-Z]/$&/g;

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

5^# flw 发表于 2007-09-17 10:43

QUOTE:

原帖由 redspider 于 2007-9-17 10:36 发表
my $c = $str =~ s/[a-zA-Z]/$&/g;

还可以缩短 5 个字符。

perljoker

UID: 30669
帖子: 88
积分: 202
在线时间: 10 小时

6^# perljoker 发表于 2007-09-17 10:56

$c++ while $str=~/[a-z]/ig;

ypxing

UID: 10955
帖子: 194
积分: 446
在线时间: 2 天 3 小时

7^# ypxing 发表于 2007-09-17 11:38

#!/usr/bin/perl

use strict;

sub count_alpha{
    my $target=join " ", @_;
    my @result = $target=~ m/[a-z]/ig;
    return @result;
}

my $result = &count_alpha("aAaa", "b bb", "zzz");
print $result, "\n";

zhangzhangg

UID: 38342
帖子: 132
积分: 303
在线时间: 1 天

8^# zhangzhangg 发表于 2007-09-17 12:18

sub count_alpha{
my $count=shift=~/([a-z])/ig;
$count;
}
怎么样

perljoker

UID: 30669
帖子: 88
积分: 202
在线时间: 10 小时

9^# perljoker 发表于 2007-09-17 12:33

QUOTE:

原帖由 zhangzhangg 于 2007-9-17 12:18 发表
sub count_alpha{
my $count=shift=~/([a-z])/ig;
$count;
}
怎么样

这样能实现吗？发个测试结果看看

apile

UID: 42255
帖子: 66
积分: 151
在线时间: 6 小时

10^# apile 发表于 2007-09-17 13:41

结合前面的作法...
sub count_alpha{
shift=~tr/[A-z]/[A-z]/;
}