Re^3: Converting to sub signatures


Just another Perl shrine
	PerlMonks

Re^3: Converting to sub signatures

by kcott (Archbishop)

on Jun 23, 2022 at 19:17 UTC ( [id://11145000]=note: print w/replies, xml )

Need Help??

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}
[download]

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 {
[download]

Output:

*** Matched:
sub hello {
    sub hello {
*** Not Matched:
should match these:

should not match these:
#sub hello {
#    sub hello {
    # sub hello {
    #     sub hello {
[download]

— Ken