regex - 如何检查 Perl 字符串是否包含字母？

Question

在 Perl 中，我应该使用什么正则表达式来查找字符串是否有字母？
使用的字符串示例:Thu Jan 1 05:30:00 1970
这会好吗？

    if ($l =~ /[a-zA-Z]/)
 {
    print "string ";    
 }
 else
 {      
    print "number ";    
 }

Answer 1

尝试这个:

/[a-zA-Z]/

或者

/[[:alpha:]]/

否则，您应该给出要匹配的字符串的示例。

另请阅读 perldoc perlrequick
编辑:@OP，您提供了示例字符串，但我不确定您想用它做什么。所以我假设你想检查一个词是全是字母、全是数字还是其他东西。这里有一些开始。全部来自 perldoc perlrequick(和 perlretut)，所以请阅读它们。

sub check{
    my $str = shift;
    if ($str =~ /^[a-zA-Z]+$/){
        return $str." all letters";
    }
    if ($str =~ /^[0-9]+$/){
        return $str." all numbers";
    }else{
        return $str." a mix of numbers/letters/others";
    }
}

$string = "99932";
print check ($string)."\n";
$string = "abcXXX";
print check ($string)."\n";
$string = "9abd99_32";
print check ($string)."\n";

输出

$ perl perl.pl
99932 all numbers
abcXXX all letters
9abd99_32 a mix of numbers/letters/others