in reply to pattern matching words in any order

Try this: 
$zipFile =~ /(this|that).*?(this|that)/i

[download]

CountZero

A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James

Replies are listed 'Best First'.
Re^2: pattern matching words in any order
by ww (Archbishop) on Oct 23, 2009 at 19:01 UTC

    False positive:

    #!/usr/bin/perl
use warnings;
use strict;
# 802936

my $zipFile="foo bar this this blivitz";

if ( $zipFile =~ /(this|that).*?(this|that)/i ) {
    print "$1  $2";
}else{
    print "nope";
}

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom