Re^4: Split and print hash based on regex

Replies are listed 'Best First'.
Re^5: Split and print hash based on regex by AnomalousMonk (Archbishop) on Mar 28, 2018 at 15:09 UTC
choroba is not wrong to write here that "... without a capture group in the regex, there's no way to populate $1." But as always with regexes, it's more complicated: `c:\@Work\Perl\monks>perl -wMstrict -le "$_ = 'This is not an exit'; ;; if (my ($regex) = /This is/g) { print qq{matched, captured '$regex'}; } " matched, captured 'This is'` [download] Due to the influence of the `/g` modifier, something is captured, it's just not anything ~~useful~~ \| useful in this case. The only purpose the capture serves in the second OPed SSCCE (the one added in an update) would be to produce a perplexing error message if the open operation failed in the `open ... or die "could not open 'UserA$regex.txt' $!";` statement. See Matching in list context in perlop. Give a man a fish: `<%-{-{-{-<`	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^5: Split and print hash based on regex
by AnomalousMonk (Archbishop) on Mar 28, 2018 at 15:09 UTC

choroba is not wrong to write here that "... without a capture group in the regex, there's no way to populate $1." But as always with regexes, it's more complicated:

c:\@Work\Perl\monks>perl -wMstrict -le
"$_ = 'This is not an exit';
 ;;
 if (my ($regex) = /This is/g) {
   print qq{matched, captured '$regex'};
   }
"
matched, captured 'This is'
[download]

/g

~~useful~~

| useful in this case

OPed

open

open ... or die "could not open 'UserA$regex.txt' $!";

Matching in list context

perlop

Give a man a fish: <%-{-{-{-<

[reply]
[d/l]
[select]