[Perl-unix-users] Sentences that not working right

[Ing. Ricardo Cumberbatch L. \(PANNet - URC\)]

Hi Everybody,

Sorry for my poor english, I create a cgi and a part of a sentences is not
working well
 
 
 
open (LECTOR, "$dataintro") || die "ERROR: NO Encuentro el archivo 'est_whois'\n";
  while ($_ = <LECTOR>) { #PRIMER WHILE
        chomp;
        @linea = split;
        #$ced = split (/\//, $linea[2]);
  if ($cedula =~ $linea[2]) {
 .
 .
 .
  
When my variable $cedula have the value of 8-456-789 and $linea[2]
have the semathing the result is good it display right. But when my
variable $cedula have de value PE-456-987 and $linea[2] is to 
be the same, it not display any result, it display me nothing.
 
 
I tried to change using the sign "eq" but pass the samething if I use =~

Thanks for your helps  
  
 
 

_______________________________________________
Perl-Unix-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs