Note that if you're storing FILEHANDLES in an
array or other expression, you will have to use a
block returning its value instead:

  print { $files[$i] } "stuff\n";
  print { $OK ? STDOUT : STDERR } "stuff\n";
[download]

Thanks to all for help

print { $files[$i] } "stuff\n";
[download]

Definitly helps

Change

print $self->{FILE} "some text here\n";
[download]

to

print { $self->{FILE} } "some text here\n";
[download]

First, I would advise you check the result of the open i.e.:

open($self->{FILE}, ">>$self->{file_path}$self->{file_name}") || die "
+Could not open file $!\n";
[download]

That, however, does not solve your problem. I think that perl is getting confused by the ->. This works:

my $self = {};

open($self->{FILE}, ">> text.txt") || die "Could not open file : $!\n"
+;
my $fh = $self->{FILE};
print $fh "some text here\n";
close($self->{FILE});
[download]

perl is not confused by the ->.

I can't imagine that's the best way to approach your problem. The package that $self is an instance of should implement its own accessor and keep a private filehandle, so that your code might look like:

$self->open(">>$self->{file_path}$self->{file_name}");
$self->print "some text here\n";
$self->close;
[download]

Perhaps if you gave us a little more background about what you're trying to accomplish, we might be able to help you find a different approach.

I think his question is how to implement something like the methods you've shown. He's asking how to do it in from inside the object, thus he's trying to access the object's data members. At least, that's the impression I got...

If you're correct...

package Something;
.... #package stuff

sub print {
  my $self = shift;
  my $FH = $self->{FILE}; #deref the FILE handle
  return print $FH join('',@_);
}

#and likewise with others.
[download]

The above would be easier to read and maintain than the whole print { $self->{FILE} } "text" notation, IMO.

radiantmatrix
require General::Disclaimer;
"Users are evil. All users are evil. Do not trust them. Perl specifically offers the -T switch because it knows users are evil." - japhy