Re^5: Regex Help

in reply to Re^4: Regex Help
in thread Regex Help

How about "everything from pirates to careebian" ? ;-)

use strict;
use warnings;

while(<DATA>){
  chomp;
  print $1,$/ if /(pirates.*careebian)/; 
}

__DATA__
piratesofcareebian100
pirates of careebian100
pirates of careebian 100
pirates1 of careebian 100
pirates2 of careebian 100
pirates3 of careebian 100
[download]

Comment on Re^5: Regex Help Download Code

Replies are listed 'Best First'.
Re^6: Regex Help by Anonymous Monk on Mar 28, 2013 at 19:00 UTC
How about "everything from pirates to careebian" ? But what about if the wording of the OP changes? Then your solution would no longer be useful.	[reply]
Re^7: Regex Help by hdb (Monsignor) on Mar 28, 2013 at 19:10 UTC
Correct! He would need to change the regular expression. But then I was not completely serious in my reply... (even though it works!) One could also use variables in the regex like `/($from.*$to)/`.	[reply] [d/l]

In Section Seekers of Perl Wisdom