Ajudinha Com Uma Função

[xcel3nt]

Bem... sou iniciante em perl e to escrevendo um script com varias funções e tal.. pra praticar e pegar bem os comandos basicos pra depois partir pros de niveis mais complexos... pois bem.. em um trexo do script deu erro mas não sei o motivo...

exemplo:

$porta=11111
system("netstat -na | find \"$porta\" ");

se eu fizer dessa forma ele irá fazer o netstat e procurar por essa porta se esta ativa... Dai resolvi adicionar uma opção pro usuário especificar a porta a ser procurada e fiz +o- assim:

print "Qual porta voce deseja verificar: ";

$porta=<STDIN>;
system("netstat -na | find \"$porta\" ");
printf "\n\nA porta selecionada esta ativa\n";

só que ai dá erro no parametro do find "FIND: Formato do parâmetro incorreto"

mas ta praticamente da mesma forma que a anterior...

Se alguém puder me dá uma luz hehehehe..

flwz !

[GhP]

ichi cara

numa meche com esse tipo de função

mais tenta fazer ferificação dividindo os campos com split

ai você faz $porta_escolhida==$porta_resposta

sacou?

abraços