in reply to Re^2: Converting to sub signatures
in thread Converting to sub signatures
G'day cavac,
This does/doesn't match as per your example:
qr{^\s*[^#]*\s*sub}
Quick test:
#!/usr/bin/env perl use v5.26; my $re = qr{^\s*[^#]*\s*sub}; my (@match, @no_match); while (<DATA>) { if (/$re/) { push @match, $_; } else { push @no_match, $_; } } say '*** Matched:'; print for @match; say '*** Not Matched:'; print for @no_match; __DATA__ should match these: sub hello { sub hello { should not match these: #sub hello { # sub hello { # sub hello { # sub hello {
Output:
*** Matched: sub hello { sub hello { *** Not Matched: should match these: should not match these: #sub hello { # sub hello { # sub hello { # sub hello {
— Ken
In Section
Seekers of Perl Wisdom