weidagang2046的专栏

物格而后知致
随笔 - 8, 文章 - 409, 评论 - 101, 引用 - 0
数据加载中……

串形式判断

已经知道一个字符串肯定是某种形式，其中有{0}, {1}, {2}, ... {n}这种形式的[a-z]+。比如给定一种形式"your name is {0}. Hello {0}! my name is {1}"。 给出一个串，要求判断是不是这种形式, 其中{0}处的内容必须都是完全相同的串, {1}等也是这样。

比如对前面的形式，具体串"your name is tom. Hello tom! my name is jack"是该形式，而"your name is tom. Hello jack! my name is tom"则不符合要求。

my $str = "your name is tom. Hello jack! my name is jack";

if($str =~ /your name is ([a-z]+). Hello ([a-z]+)! my name is ([a-z]+)/)
{
    if($1 eq $2)
    {
        print "$str: valid format\n";
    }
    else
    {
        print "$str: invalid format\n";
    }
}
else
{
    print "$str: nvalid format\n";
}

posted on 2006-03-06 15:20 weidagang2046 阅读(154) 评论(0)  编辑  收藏 所属分类: Perl


只有注册用户登录后才能发表评论。
网站导航: