2010-02-04T20:56:15 betterworld

Wenn bei normalen Objekten "$obj->meth" dasselbe ist wie "meth $obj" (Stichwort indirect object syntax), wird "F->print" offenbar anders geparst als "print F", wobei das erstere ein gewoehnlicher Methodenaufruf (wie bei $obj) ist, das zweitere der print-Operator. Beides funktioniert nur, wenn es das Dateihandle F gibt, wobei afaik ein bisschen Heuristik benutzt wird.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

#!/usr/bin/perl
use strict;
use warnings;

package MyPrint;

sub new
{
  my $class=shift;
  my $file=shift;
  open(my $FH,'>',$file);
  return bless(\*$FH,ref($class)?ref($class):$class);
}

sub print
{
  my $fh=shift;
  print @_;
  print $fh "LOG:",@_;
}

package main;

my $p=MyPrint->new('/dev/null');

print $p "TEST";