Re: -E behavior with stdin script

in reply to -E behavior with stdin script

AFAIK, there is no way to pick the features enabled by -E automatically other than by using it.

But you can require just what you need inside the code chunk:

perl -wn -- - /etc/passwd <<'EOF'
use feature 'say';
next unless / ([^:]*) : [^:]* : ([0-9]+) /x;
my ($w, $n) = (uc $1, 5000 + $2);
say qq{log=$w id=$n}
EOF
[download]

That's the most future-proof solution.

Comment on Re: -E behavior with stdin script Select or Download Code

Replies are listed 'Best First'.
Re^2: -E behavior with stdin script (updated) by haukex (Archbishop) on Sep 05, 2021 at 13:50 UTC
AFAIK, there is no way to pick the features enabled by -E automatically other than by using it. Well, `-E` is equivalent to a `use feature ':5.XX';`, so one slightly hackish way to get the same effect is `use feature ":5.".(0+substr($],2,3));`. Update: Crossposting the following better solution from my other node for completeness: `use Config; use feature ":$Config{PERL_REVISION}.$Config{PERL_VERSION}";` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: -E behavior with stdin script (updated)
by haukex (Archbishop) on Sep 05, 2021 at 13:50 UTC

AFAIK, there is no way to pick the features enabled by -E automatically other than by using it.

Well, -E is equivalent to a use feature ':5.XX';, so one slightly hackish way to get the same effect is use feature ":5.".(0+substr($],2,3));.

Update: Crossposting the following better solution from my other node for completeness:

use Config;
use feature ":$Config{PERL_REVISION}.$Config{PERL_VERSION}";
[download]

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom