求一perl正则表达式

bluekangkang 2009-01-13 10:18:50
如题 求一perl正则表达式 需匹配的字符串为

如 my $phone="22|33|44|55";
a bc de fg

分为abcdef五部分,b,d,f为符号"|"
a,c,e,g为半角数字,a,e不能为空,c,g允许为空

if($phone!~正则表达式){
print "error";
}
...全文
74 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
fibbery 2009-01-13
  • 打赏
  • 举报
回复
更正一下:

use strict;

use warnings;



my $phone="22|33|44|55";

if ($phone!~/\d+\|\d*\|\d+\|\d*/)
{
print("error\n");
}
else
{
print("OK\n");
}
fibbery 2009-01-13
  • 打赏
  • 举报
回复
use strict;

use warnings;



my $phone="22|33|44|";

if ($phone!~/\d+\|\d.\|\d+\|\d./)
{
print("error\n");
}
else
{
print("OK\n");
}
Semigod 2009-01-13
  • 打赏
  • 举报
回复
/\d+\|\d*\|\d+\|\d*/

37,741

社区成员

发帖
与我相关
我的任务
社区描述
JavaScript,VBScript,AngleScript,ActionScript,Shell,Perl,Ruby,Lua,Tcl,Scala,MaxScript 等脚本语言交流。
社区管理员
  • 脚本语言(Perl/Python)社区
  • WuKongSecurity@BOB
加入社区
  • 近7日
  • 近30日
  • 至今

试试用AI创作助手写篇文章吧