Thanks, Sir Peter I used your idea and Ya it working goods =-P
On Tue, 18 Feb 2003, Peter Eisengrein wrote: > 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