[Webinar] Streamline your web hosting managementRegister Today

x
?
Solved

RegEx case

Posted on 2014-10-20
4
Medium Priority
?
258 Views
Last Modified: 2014-10-20
I want to write the most simple perl condition to test URL against, www.foobar.com using !~ operator without using || and multiple tests.

I need something like :
if (req.http.host !~ "(www.)?foobar.com")

But ..
it will return false for req.http.host="www.foobar.com"       which is ok since i want only www.foobar.com and foobar.com to match.
it will return false for req.http.host="foobar.com"                 which is ok since i want only www.foobar.com and foobar.com to match
it will return true for req.http.host="ANYTHING.com"           which is ok since i want only www.foobar.com and foobar.com to match
it will return false for req.http.host="ANYTHING.foobarcom"           which is NOT OK since i want only www.foobar.com and foobar.com to match
0
Comment
Question by:Stampel
  • 2
  • 2
4 Comments
 
LVL 85

Expert Comment

by:ozo
ID: 40392371
/^(www\.)?foobar\.com$/
0
 
LVL 7

Author Comment

by:Stampel
ID: 40392531
This is not working.
I want the reg expression corrected in this expression :
 [if (req.http.host !~ "(www.)?foobar.com") ]
so that it will return good values when tested against provided req.http.host values in my exemple.

You can test with :
perl -e 'if ("www.foobar.com" !~ "(www.)?foobar.com") {print "TRUE\n";} else {print "FALSE\n";}'
=> FALSE
perl -e 'if ("foobar.com" !~ "(www.)?foobar.com") {print "TRUE\n";} else {print "FALSE\n";}'
=> FALSE
perl -e 'if ("ANYTHING.com" !~ "(www.)?foobar.com") {print "TRUE\n";} else {print "FALSE\n";}'
=> TRUE
perl -e 'if ("ANYTHING.foobar.com" !~ "(www.)?foobar.com") {print "TRUE\n";} else {print "FALSE\n";}'
=> FALSE THIS ONE IS WRONG, Fix REGEX in the IF to make it returns TRUE
0
 
LVL 85

Accepted Solution

by:
ozo earned 2000 total points
ID: 40392555
perl -e 'if ("ANYTHING.foobar.com" !~ /^(www\.)?foobar\.com$/ ) {print "TRUE\n";} else {print "FALSE\n";}'
TRUE
0
 
LVL 7

Author Comment

by:Stampel
ID: 40392671
OK that make sense, i guess the problem is in my script because of " "
When used in a script i have to remove beginning and trailing "/" from input_regexp and it finally works as expected.

#!/usr/bin/perl
$input_string = $ARGV[0];
$input_regexp = '^(www\.)?foobar\.com$';
if ( $input_string !~ $input_regexp) {print "FALSE\n";} else {print "TRUE\n"};

I will test in my varnish config to see if it works as expected
0

Featured Post

[Webinar] Improve your customer journey

A positive customer journey is important in attracting and retaining business. To improve this experience, you can use Google Maps APIs to increase checkout conversions, boost user engagement, and optimize order fulfillment. Learn how in this webinar presented by Dito.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Fine Tune your automatic Updates for Ubuntu / Debian
I have written articles previously comparing SARDU and YUMI.  I also included a couple of lines about Easy2boot (easy2boot.com).  I have now been using, and enjoying easy2boot as my sole multiboot utility for some years and realize that it deserves …
This video shows how to set up a shell script to accept a positional parameter when called, pass that to a SQL script, accept the output from the statement back and then manipulate it in the Shell.
In a previous video, we went over how to export a DynamoDB table into Amazon S3.  In this video, we show how to load the export from S3 into a DynamoDB table.
Suggested Courses
Course of the Month7 days, 18 hours left to enroll

607 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question