!/usr/bin/perl use warnings; use strict; my $file = "/path/to/file.txt"; local $/; # added after post my $content = <DATA>; if ( $content =~ m/(ASDF \{)(.*?)plz_match(.*?)(\})/s ) { print "Matched: <<< $& >>>\n"; } else { print "No match: |$content|\n"; } __DATA__ ASDF { tmp plz_match tmp } string2 { tmp } string3 { tmp }
Matched: <<< ASDF { tmp plz_match tmp } >>>
Cheers Rolf
(addicted to the Perl Programming Language :)
Wikisyntax for the Monastery
In reply to Re: Matching a string in a parenthesized block (regex help)
by LanX
in thread Matching a string in a parenthesized block (regex help)
by maxamillionk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |