«

Dear Perl Programmers,

I tried out the code given in :-

http://www.perldoc.com/perl5.8.0/pod...ml#Aggregation

The following line :-

printf "%s is really %s.\n", $him->name, $him->fullname;

gives the following output :-

Tommy is really Fullname=HASH(0x804c9b.

This happens because fullname returns an object reference as follows :-

sub fullname
{
my $self = shift;
return $self->{FULLNAME};
}

Therefore the line should probably be :-

printf "%s is really %s.\n", $him->name, $him->fullname->as_string;

Please correct me if I am wrong.

Thank You
Himanshu.

Dear Anno,

Thanks for the prompt reply. I have submitted the patch to bugs.perl.org.

Thank You
Himanshu.

(Anno Siegel) wrote in message news:<bkfj4u$9sq$>...
> Himanshu Garg <> wrote in comp.lang.perl.misc:
> > Dear Perl Programmers,
> >
> > I tried out the code given in :-
> >
> > http://www.perldoc.com/perl5.8.0/pod...ml#Aggregation
> >
> > The following line :-
> >
> > printf "%s is really %s.\n", $him->name, $him->fullname;
> >
> > gives the following output :-
> >
> > Tommy is really Fullname=HASH(0x804c9b.
> >
> > This happens because fullname returns an object reference as follows :-
> >
> > sub fullname
> > {
> > my $self = shift;
> > return $self->{FULLNAME};
> > }
> >
> > Therefore the line should probably be :-
> >
> > printf "%s is really %s.\n", $him->name, $him->fullname->as_string;
> >
> > Please correct me if I am wrong.
>
> Looks like you're right. Not a biggie, but you could send in a patch.
>
> Anno