I don't understand why this happen

[Li Ngok Lam]

open my $fh, "<", "items/list.db";
print while (<$fh>);
close $fh;

This is suppose to printout the content in items/list.db ,
but why I get somthing like "GLOB(0x162aca7)" ??

Thanks in advise.

[James Edward Gray II]

On Monday, August 18, 2003, at 06:10 AM, Li Ngok Lam wrote:

> open my $fh, "<", "items/list.db";

I can't test it right this second, but I'm guessing it's the my() call
inside of the open. Try this:

my $fh;
open $fh, '<', 'items/list.db' or die "File error: $!";
print while $fh;
close $fh;

Hope that helps.

James

> print while (<$fh>);
> close $fh;
>
> This is suppose to printout the content in items/list.db ,
> but why I get somthing like "GLOB(0x162aca7)" ??
>
> Thanks in advise.

[Li Ngok Lam]

>

> my $fh;
> open $fh, '<', 'items/list.db' or die "File error: $!";

It just the same as open my $fh =)

> print while $fh;

Hmm............. I guess this is not a 'read' argument

Thanks in advise anyway =)

[James Edward Gray II]

On Monday, August 18, 2003, at 08:10 AM, Li Ngok Lam wrote:

>>
>> my $fh;
>> open $fh, '<', 'items/list.db' or die "File error: $!";

>
> It just the same as open my $fh =)

Save that it reads a little better, I think, and checks errors.

>> print while $fh;

>
> Hmm............. I guess this is not a 'read' argument
>
> Thanks in advise anyway =)

You're right, I meant:

print while <$fh>;

Sorry about that.

James