Re: Where automatic variable $

You can use select if sugar is so important:

select $fh;
print while <>;
[download]

($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: Where automatic variable $_ doesn't work? Select or Download Code

Replies are listed 'Best First'.
Re^2: Where automatic variable $_ doesn't work? by GrandFather (Saint) on Jul 04, 2016 at 20:55 UTC
However: `print $fh while <>;` [download] is both shorter and clearer. Update: Argh! that falls foul of the OP's complaint. It needs to be: `print $fh $_ while <>;` [download] to work as intended. Premature optimization is the root of all job security	[reply] [d/l] [select]
Re^3: Where automatic variable $_ doesn't work? by choroba (Cardinal) on Jul 04, 2016 at 21:12 UTC
Although its output is quite different. ($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]	[reply] [d/l]
Re^2: Where automatic variable $_ doesn't work? by guiwp (Sexton) on Jul 04, 2016 at 20:27 UTC
I didn't known about select, Thank you! "if sugar is so important" When it's possible, I do like =)	[reply]