Re^10: What esteemed monks think about changes necessary/desirable in Perl 7 outside of OO staff

You probably meant

substr($x, index($_ = $x =~ tr/ /x/cr, 'x'), rindex($_, 'x') - length(
+$x) + 1)
[download]

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

Comment on Re^10: What esteemed monks think about changes necessary/desirable in Perl 7 outside of OO staff Select or Download Code

Replies are listed 'Best First'.
Re^11: What esteemed monks think about changes necessary/desirable in Perl 7 outside of OO staff by likbez (Sexton) on Sep 16, 2020 at 15:10 UTC
Does not matter what variable you use: `# perl -e ' { $line=" aaa bbb ccc ddd eee fff "; $line=substr($l +ine,index($_=$line=~tr/ /x/cr,'x'),rindex($_,'x')-length($line)+1); p +rint qq(\|$line\|\n)}' \|aaa bbb ccc ddd eee fff\|` [download]	[reply] [d/l]
Re^12: What esteemed monks think about changes necessary/desirable in Perl 7 outside of OO staff by choroba (Cardinal) on Sep 16, 2020 at 15:12 UTC
Sorry, I used a different variable name. The real difference was the placement of the parentheses. `map{substr$_->[0],$_->[1]\|\|0,1}[\\|\|{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^ARGV,3]`	[reply] [d/l]