http://qs1969.pair.com?node_id=11136460


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
That's the most future-proof solution.

Replies are listed 'Best First'.
Re^2: -E behavior with stdin script (updated)
by haukex (Bishop) 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}";