Probelmas con Script

[juan pablo Rumie Vittar]

>Hola listeros,

>Desearia me brinden ayuda al 
>realizar un script en perl (soy novato),
> que dado un parametro me permita
>comparar este con todas las 
>ocurrencias que tenga un
>archivo de texto, cabe decir 
>que en el archivo de
>texto tengo almacenados una lista 
>de usuarios (uno por
>fila) y la idea es comparar 
>el parametro recibido en
>el script con los usuarios almacenados 
>en este archivo
>de texto y realizar cierta accion.

#!/usr/bin/perl

sub verifica(@){
 $cant=@_;
 $cont=0;
 $band=0;
 while($cont < $cant){
  if($usuario eq @_[$cont]){
    $band=1;
    last;
  }
  $cont++;
 }
 return ($band);
}     


$usuario=@ARGV[0];
open(punt,"<nombre archivo>") || die "no se puede
abrir el archivo\n";
# ten cuidado del retorno del carro......
@file=<punt>;
close(punt);

$comprobacion=verifica(@file);
if ($comprobacion==1)
 print "el usuario esta\n";
else
 print "el usuario no esta\n";

>Me podrian ayudar en esto, 
>gracias adelantadas

>salu2

saludos

=====
"De la misma forma que el hombre no finaliza nunca su etapa de aprendizaje, la informatica en su mas amplio contexto no finaliza nunca su etapa de evolucion"


	
	
		
___________________________________________________________
100mb gratis, Antivirus y Antispam
Correo Yahoo!, el mejor correo web del mundo
http://correo.yahoo.com.ar