Re^3: Using lookaround with variables

OK, so investigating this further, it seems that the error not actually caused by the RegEx, but rather by the code that follows it - which I find even stranger.

The following works:

while (<MYFILE>)
{
   $line = $_;              

   if( $line =~ m/(?<!$pre)$searchTerm(?!$post)/ )
       {print $line};       
 
}
[download]

The following doesn't work:

while (<MYFILE>)
{
   $line = $_;              

   if( $line =~ m/(?<!$pre)$searchTerm(?!$post)/ )
       {print $line};       
  
    if ($pre = "" and $post = "") 
    {
        print "Case 1";
    } elsif ($pre = "") 
    {
        print "Case 2";  
    } elsif ($post = "") 
    {
        print "Case 3";  
    } else 
    {
        print "Case 4";  
    }                      
    print "\n";
}
[download]

Any ideas why??

Cheers,

Martin

Comment on Re^3: Using lookaround with variables Select or Download Code

Replies are listed 'Best First'.
Re^4: Using lookaround with variables by GrandFather (Saint) on Dec 17, 2008 at 19:01 UTC
Always use strictures (use strict; use warnings;). Oh, I already said that! Your problem is/was that you are using = instead of == for testing numeric equality. Using strictures you'd have gotten the message: `Found = in conditional, should be == at ...` the first time you tried running the code. It would have cost 30 seconds to add strictures and about 15 minutes or maybe a lot less (depending how big your actual code is of course) to clean up your code. Glancing at the times of your postings that would have given you about 1.5 hours you could have been drinking beer or reacquainting yourself with the wife instead of chasing frustrating bugs. Perl's payment curve coincides with its learning curve.	[reply] [d/l]
Re^4: Using lookaround with variables by mwunderlich (Initiate) on Dec 17, 2008 at 14:49 UTC
Playing around with this even more, I can now answer my own question (and show how much of a beginner's question this). It all boiled down to two syntax errors: - using "and" instead of "&&" as the boolean operator - using "$pre = """ instead of "!$pre" to check for empty strings. All solved. Cheers, Martin	[reply]