Re^2: Initialize variable in BEGIN

It might make more sense if expressed as a one-liner.

$ for i in {1..10}; do echo $i; done | perl -ne 'BEGIN {our $prod = 1;
+} $prod *= $_; END { print $prod,$/; }'
3628800
[download]

90% of every Perl application is already written. ⇒

dragonchild

Comment on Re^2: Initialize variable in BEGIN Download Code

Replies are listed 'Best First'.
Re^3: Initialize variable in BEGIN by ikegami (Patriarch) on Apr 30, 2025 at 23:54 UTC
I wasn't saying that BEGIN is never useful. I was talking about in the situation at hand. But even in your entirely different scenario, does it really make sense? `perl -nle'BEGIN { $prod = 1; } $prod = $_; END { print $prod; }'` [download] vs `perl -le'$prod = 1; $prod = $_ while <>; print $prod;'` [download]	[reply] [d/l] [select]