Solved

RegEx case

Posted on 2014-10-20
4
221 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 84

Expert Comment

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

Author Comment

by:Stampel
Comment Utility
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 84

Accepted Solution

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

Author Comment

by:Stampel
Comment Utility
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

What Is Threat Intelligence?

Threat intelligence is often discussed, but rarely understood. Starting with a precise definition, along with clear business goals, is essential.

Join & Write a Comment

Setting up Secure Ubuntu server on VMware 1.      Insert the Ubuntu Server distribution CD or attach the ISO of the CD which is in the “Datastore”. Note that it is important to install the x64 edition on servers, not the X86 editions. 2.      Power on th…
Join Greg Farro and Ethan Banks from Packet Pushers (http://packetpushers.net/podcast/podcasts/pq-show-93-smart-network-monitoring-paessler-sponsored/) and Greg Ross from Paessler (https://www.paessler.com/prtg) for a discussion about smart network …
Learn several ways to interact with files and get file information from the bash shell. ls lists the contents of a directory: Using the -a flag displays hidden files: Using the -l flag formats the output in a long list: The file command gives us mor…
Get a first impression of how PRTG looks and learn how it works.   This video is a short introduction to PRTG, as an initial overview or as a quick start for new PRTG users.

771 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

Need Help in Real-Time?

Connect with top rated Experts

12 Experts available now in Live!

Get 1:1 Help Now