Re^2: string substitution within regular expressions?

Okay, utilizing the code suggested above, I get the expected behaviour. If I change the if-statement to the following, I get the errors noted further below.

#!/usr/bin/perl

my $s = 'Tue Feb  8 11:11:11 2005: blah blah blah';

my $regex = '^$wday $mon\s+$mday \d{2}:\d{2}:\d{2} $year:';
my $wday = 'Tue';
my $mon = 'Feb';
my $mday = '8';
my $year = '2005';

findString($s);

sub findString($) {
    my $line = shift;

#   print "found\n" if $line =~ eval "qr/$regex/";
    if ($line =~ eval "qr/$regex/") {
        print "found\n";
    }
}
[download]

Do the following errors make sense? Yes, I'm using Perl 5.005, but I cannot change this at this point.

Scalar found where operator expected at (eval 1) line 1, at end of lin
+e
        (Missing operator before ?)
Backslash found where operator expected at (eval 1) line 1, near "$mon
+\"
        (Missing operator before \?)
found
[download]

Placing curly braces around the qr() string pacifies the interpreter, but I no longer see the expected answer. Thanks for any insight.

Comment on Re^2: string substitution within regular expressions? Select or Download Code

Replies are listed 'Best First'.
Re^3: string substitution within regular expressions? by Roy Johnson (Monsignor) on Feb 09, 2005 at 12:16 UTC
The errors don't make any sense to me, given that it works in the non-block if and only fails with block-form if. Does this work any better? Does it fail before the if? `sub findString($) { my $line = shift; my $compiled_regex = eval "qr/$regex/"; if ($line =~ /$compiled_regex/) { print "found\n"; } }` [download] Caution: Contents may have been coded under pressure.	[reply] [d/l]
Re^4: string substitution within regular expressions? by Anonymous Monk on Feb 09, 2005 at 18:54 UTC
Works like a champ. Thanks!	[reply]