1 Kwi 2008

Test numeru operatora

sub process_number
{
 $_ = shift;

 return $PLUS if (/^60[1,3,5,7,9]/);
 return $ERA if (/^60[0,2,4,6,8]/);
 return $IDEA if (/^50[1-9]/);
 return undef;
}