Re^2: Count number of characters in a DATA block

Many will not understand the perlsecret, Goatse; those that do may wish they didn't. All you really need is:

$PipeCounter = y/|/|/;
[download]

See also perlfaq4 How can I count the number of occurrences of a substring within a string? - which politely avoids the word goatse by creatively describing the code, without evoking a hard-to-forget mental picture, as a global match in list context ;-)

Comment on Re^2: Count number of characters in a DATA block Download Code

Replies are listed 'Best First'.
Re^3: Count number of characters in a DATA block by kcott (Archbishop) on Sep 05, 2022 at 15:04 UTC
G'day eyepopslikeamosquito, I hadn't realised that was in a FAQ; perhaps it's not quite as secret as I'd thought. Regardless, it's not something you can unsee, and `=()=` always makes me inwardly cringe. — Ken	[reply] [d/l]