问字符匹配问题!

lqtfl

UID: 3446
帖子: 68
积分: 156
在线时间: 6 小时

1^# lqtfl 发表于 2008-01-10 17:10

问字符匹配问题!

#!/usr/bin/perl

$a=<>;
$rel=&pos($a);

sub pos{
               if(grep{/[0-9]/}$_[0]){
                           print "数字!";
                  }else{
                           print "其它!";
                  }

         }

刚学perl不久请大家多指教!
上面的代码$a 有时候会输入是123345 或 12343*23434 或 *#43*342 或 2341#245 等总之( 数字和 * 和 #号).
if(grep{/[0-9]/}$_[0]) 这里我想只允许$_[0]全是数字才能通过的,但现在这个表达式不行,现在都通过了, 如果只允许数字通过..那匹配表达式怎么写呢?.

ly5066113

UID: 41125
帖子: 34
积分: 78
在线时间: 1 小时

2^# ly5066113 发表于 2008-01-10 17:16

/^[0-9]*$/ #会匹配空行
/^[0-9]+$/ #不会匹配空行

[0-9]可以简写为\d

perljoker

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

3^# perljoker 发表于 2008-01-10 17:19

[Copy to clipboard] [ - ]

CODE:

use strict; use warnings;
chomp(my $a=<>);
num_check($a);
sub num_check{
if($_[0]=~/\D+/){
print "其它!";
}else{
print "数字!";
}
}

你写的真简省……，我照你那个改的

pos是perl的函数……，你还是改名吧

lqtfl

UID: 3446
帖子: 68
积分: 156
在线时间: 6 小时

4^# lqtfl 发表于 2008-01-11 11:35

问题已解决...! 谢谢各位指点!!