求一perl正则表达式

[bluekangkang]

如题 求一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";
}

[Semigod]

/\d+\|\d*\|\d+\|\d*/

[fibbery]

use strict;

use warnings;



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

if ($phone!~/\d+\|\d.\|\d+\|\d./)
{
	print("error\n");
}
else
{
	print("OK\n");
}

[fibbery]

更正一下：

use strict;

use warnings;



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

if ($phone!~/\d+\|\d*\|\d+\|\d*/)
{
	print("error\n");
}
else
{
	print("OK\n");
}