Gossamer Forum
(Advanced Search)
for
Home : General : Perl Programming :

Reg Expression

Oct 23, 2001, 3:10 AM
Beck
User (185 posts)
Oct 23, 2001, 3:10 AM
Post #1 of 4
Views: 2643
Shortcut
Quote Reply
Reg Expression
Hi all,

I try with this code :
Code:
$express = "20000";
$keyword = "\d{5}";
print $keyword;
if($express =~ /\Q$keyword\E/){ print "OK"; }
else{ print "Un match";}

I think it print 'OK' but it print 'Un match'.
Please advise.

Thank in advance,

Beck



Oct 23, 2001, 3:55 AM
Paul
Veteran (19537 posts)
Oct 23, 2001, 3:55 AM
Post #2 of 4
Views: 2492
Shortcut
Quote Reply
Re: [Beck] Reg Expression In reply to
Try:

$express =~ /^\d{5}$/ ? print 'Yes' : print 'No';
Oct 23, 2001, 4:25 AM
Beck
User (185 posts)
Oct 23, 2001, 4:25 AM
Post #3 of 4
Views: 2488
Shortcut
Quote Reply
Re: [RedRum] Reg Expression In reply to
Hi Paul,

I want get the $keyword value from CGI ex : $keyword = $IN->param('keyword');

Thanks,

Beck
Oct 23, 2001, 4:43 AM
Paul
Veteran (19537 posts)
Oct 23, 2001, 4:43 AM
Post #4 of 4
Views: 2491
Shortcut
Quote Reply
Re: [Beck] Reg Expression In reply to
Hmmm try:

$keyword =~ s/,/\\,/g;
$express =~ m,$keyword, ? print 'OK' : print 'NOT OK';

Last edited by:

RedRum: Oct 23, 2001, 4:47 AM