Re^2: Using pack/unpack on a PNG file

Documented behaviour:

(...) if FILEHANDLE is an expression, its value is the real filehandle. (This is considered a symbolic reference, so use strict "refs" should not be in effect.)

system 'echo abc > 1.txt';
open '<:raw', '1.txt' or die $!;
print while readline '<:raw';
unlink '1.txt';
[download]

Update: I wouldn't recomend it, though, as it's confusing to a reader :-) The file is still opened with default layers:

print PerlIO::get_layers("<:raw");
# unixperlio
[download]

لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

Comment on Re^2: Using pack/unpack on a PNG file Select or Download Code

Replies are listed 'Best First'.
Re^3: Using pack/unpack on a PNG file by AnomalousMonk (Archbishop) on May 26, 2015 at 07:24 UTC
This is considered a symbolic reference, so use strict "refs" should not be in effect. Yes, but if strictures are enabled the example still runs (and strictures were also enabled above), so I'm still confused: `c:\@Work\Perl\monks\sierpinski>perl -wMstrict -le "system 'echo abc > 1.txt'; open '<:raw', '1.txt' or die $!; print while readline '<:raw'; " abc` [download] Update: I wouldn't recomend it, though, as it's confusing to a reader ... Darn right! Give a man a fish: `<%-(-(-(-<`	[reply] [d/l] [select]
Re^4: Using pack/unpack on a PNG file by choroba (Cardinal) on May 26, 2015 at 07:30 UTC
We aren't trying to explicitly dereference the symbolic reference. لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply]
Re^5: Using pack/unpack on a PNG file by AnomalousMonk (Archbishop) on May 26, 2015 at 07:35 UTC
Aha! ... Oh? Hmmm..., I'll have to think about that for a bit. Give a man a fish: `<%-(-(-(-<`	[reply] [d/l]
Re^4: Using pack/unpack on a PNG file by Anonymous Monk on May 26, 2015 at 09:48 UTC
do the open docs lie or tell the truth? needs new bug report Bug #119547 for perl5: 42->{42} works in strict mode, Bug #3629 for perl5: strict doesn't complain when sort quotes bareword argument, its not tested untested here http://perl5.git.perl.org/perl.git/blob/HEAD:/t/lib/strict/refs untested here http://perl5.git.perl.org/perl.git/blob/HEAD:/t/io/open.t {perl #91416} Deparse open("blah blah blah") properly http://perl5.git.perl.org/perl.git/commit/204263bc1eb63f1dfd6180c05dca8cec2c319504 perldelta for deparsing open("string") Bug #91416 for perl5: Deparses produces invalid barewords	[reply]


Perl Monk, Perl Meditation
	PerlMonks