N�o conhe�o mas, vc pode fazer um calculo simples.
---------------------------------------
$numero=10; #entre com o n�mero
$x=$numero/2; #divide por 2
$x=~/(\d*)\.(\d*)/; # Separa inteiro e decimal
$x=$1; # Armazena inteiro
$decimal=$2; # Armazena decimal
if ($decimal eq '0'){ # Verifica se o n. decimal � = a zero.
$resp='par'; # Se for, � par
}else{ # Sen�o, � impar
$resp='Impar';
}
print "$resp"; # Aqui vc pode exibir ou utilizar em uma outra
condi��o
exit;
----------------------------------------------
Dalton.
http://www.mrweb.com.br/perl/
�������������>No site da lista, voce tera tudo sobre PERL,
>>LINUX, PHP, ASP e informacoes, cadastramento
>>e descadastramento da Lista.
������������==
