Re^3: Split and print hash based on regex

while (<DATA>)
[download]

is equivalent to

while ($_ = <DATA>)
[download]

which is interpreted as

while (defined($_ = <DATA>))
[download]

So that's how $_ is populated in the original script.

There's another question, though: How $1 is populated. Note that the matching uses =, not =~, so it's equivalent to

my($regex) = ($_ =~ /This is/g)
[download]

where the parentheses after my enforce the list context on the match, but without a capture group in the regex, there's no way to populate $1.

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]

Comment on Re^3: Split and print hash based on regex Select or Download Code

Replies are listed 'Best First'.
Re^4: Split and print hash based on regex by Maire (Scribe) on Mar 28, 2018 at 07:20 UTC
Ah okay, that makes a lot more sense now. Thank you for your very clear explanation: it's very much appreciated.	[reply]
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]