Is it possible that PE-456-987 may be pe-456-987 or Pe-456-987 or
pE-456-987? If so, then your match would need to be 

if ($cedula =~ /$linea[2]/i)

-----Original Message-----
From: Ing. Ricardo Cumberbatch L. (PANNet - URC)
[mailto:[EMAIL PROTECTED]]
Sent: Tuesday, February 18, 2003 9:51 AM
To: [EMAIL PROTECTED]
Subject: [Perl-unix-users] Sentences that not working right


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
_______________________________________________
Perl-Unix-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Reply via email to