Re: Syntax error when trying to use a hash value as a file stream specifier

classic filehandles° and indirect object syntax are a PITA constantly causing trouble.

may I suggest you use the approach to call print as a direct method?

> perl -de0
...
  DB<108> open my $x, ">", \$out; $h{k}=$x

  DB<109> $h{k}->print("bla")

  DB<110> p $out
bla
  DB<111> open FH, ">", \$out2; $h{k2}=FH

  DB<112> $h{k2}->print("bla")

  DB<113> p $out2
bla
  DB<114>
[download]

NB: I directed the output to $out vars only for demo purpose, it will work with all destinations.

Cheers Rolf
_{(addicted to the Perl Programming Language :)

Wikisyntax for the Monastery}

°) bareword FH, glob *FH, glob-ref \*FH, ...

Comment on Re: Syntax error when trying to use a hash value as a file stream specifier Download Code

Replies are listed 'Best First'.
Re^2: Syntax error when trying to use a hash value as a file stream specifier by LanX (Saint) on Sep 03, 2022 at 12:47 UTC
Sorry, this > `$h{k2}=FH` will only work in `no strict` scenarios, here corrected versions `use v5.12; use warnings; use Data::Dump; my %h; open my $fh, ">>", \ my $out; $h{k}=$fh; $h{k}->print("bla"); dd $out; open FH2, ">>", \ my $out2; $h{k2}=FH2; $h{k2}->print("bla2"); dd $out2; open FH3, ">>", \ my $out3; $h{k3}=\FH3; $h{k3}->print("bla3"); dd $out3; # open FH4, ">>", \ my $out4; # $h{k4}=FH4; # $h{k4}->print("bla4"); # dd $out4; # Bareword "FH4" not allowed while "strict subs" in use at c:/tmp/pm/f +h.pl line 27. # Execution of c:/tmp/pm/fh.pl aborted due to compilation errors.` [download] `"bla" "bla2" "bla3"` [download] FWIW: I prefer the 3rd `$h{k3}=\*FH3` over the 2nd variant Cheers Rolf _{(addicted to the Perl Programming Language :) Wikisyntax for the Monastery}	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: Syntax error when trying to use a hash value as a file stream specifier
by LanX (Saint) on Sep 03, 2022 at 12:47 UTC

> $h{k2}=FH

will only work in no strict scenarios, here corrected versions

use v5.12;
use warnings;
use Data::Dump;


my %h;

open my $fh, ">>", \ my $out;
$h{k}=$fh;
$h{k}->print("bla");
dd $out;


open FH2, ">>", \ my $out2;
$h{k2}=*FH2;
$h{k2}->print("bla2");
dd $out2;


open FH3, ">>", \ my $out3;
$h{k3}=\*FH3;
$h{k3}->print("bla3");
dd $out3;


# open FH4, ">>", \ my $out4;
# $h{k4}=FH4;
# $h{k4}->print("bla4");
# dd $out4;

# Bareword "FH4" not allowed while "strict subs" in use at c:/tmp/pm/f
+h.pl line 27.
# Execution of c:/tmp/pm/fh.pl aborted due to compilation errors.
[download]

"bla" "bla2" "bla3"
[download]

FWIW: I prefer the 3rd $h{k3}=\*FH3 over the 2nd variant

Cheers Rolf
_{(addicted to the Perl Programming Language :)

Wikisyntax for the Monastery}

[reply]
[d/l]
[select]