Re: Regex AND NOT with zero-width negative lookahead assertion

I think this might do what you want.

use strict;
use warnings;

use Test::More tests => 1;

my $want = <<'EOT';
if(/ok .*$/) {
if(m/a good match/( {
$string =~ s/[a-f]//g; # but print this line
( $string ) = ( $string =~ /(show this)/));
/but show\/this, too/
EOT

my $have = '';

while (<DATA>) {
    $have .= $_ if m~^(?!#)[^/]*/[^/]+(\\/|/(?!\w+/?))~;
}

is $have, $want;

__DATA__

#!/usr/bin/perl
foo
bar
foo/bar
/src/bin/oops/otehnoes
if(/ok .*$/) {
    print "not OK\n";
}
# skip a comment
if(m/a good match/( {
    print "not ok\n";
}

# do not /print/ this line either
$string =~ s/[a-f]//g; # but print this line
( $string ) = ( $string =~ /(show this)/));
/but show\/this, too/
my $butdontprintthis = "/var/cache/dictionaries-common";
[download]

Comment on Re: Regex AND NOT with zero-width negative lookahead assertion Download Code

Replies are listed 'Best First'.
Re^2: Regex AND NOT with zero-width negative lookahead assertion by mldvx4 (Friar) on Mar 25, 2020 at 13:34 UTC
Thanks. (And thanks to those below, too.) That seems to achieve the desired results, if I escape the pound sign (#) there. Otherwise that gets interpreted as a comment.	[reply]
Re^3: Regex AND NOT with zero-width negative lookahead assertion by hippo (Bishop) on Mar 25, 2020 at 13:43 UTC
How odd. It works fine exactly as posted for me in Perl 5.20.3. Which Perl version are you using which requires the escape? Update: also tested successfully on v5.10.1, v5.16.3, v5.26.1 and v5.30.0.	[reply]
Re^4: Regex AND NOT with zero-width negative lookahead assertion by Your Mother (Archbishop) on Mar 25, 2020 at 14:04 UTC
I believe this works everywhere; certainly does on 5.8. What doesn’t work a lot of the time is syntax highlighting and autoformatting. I end up escaping them sometimes just so I don’t have to deal with that; in certain codebases/c?perl-modes at least.	[reply]
Re^4: Regex AND NOT with zero-width negative lookahead assertion by AnomalousMonk (Archbishop) on Mar 26, 2020 at 03:41 UTC
The `m, ... ,x` match in the OPed code uses the `/x` whitespace/comments modifier; your match does not. (Update: I presume mldvx4 is still using the `/x` modifier.) Give a man a fish: `<%-{-{-{-<`	[reply] [d/l] [select]


good chemistry is complicated, and a little bit messy -LW
	PerlMonks