Re: Forcing array context on a file handle

"$lines = @{[ (<$file>) ]}".The problem is that the former doesn't work, and the latter gives $lines = 1.

Your 2nd example gives me the correct number of lines (not 1):

use warnings;
use strict;
open my $file, '<', $0;
my $lines = @{[ (<$file>) ]};
print "$lines\n";
[download]

The output for me is 5.

Comment on Re: Forcing array context on a file handle Select or Download Code

Replies are listed 'Best First'.
Re^2: Forcing array context on a file handle by tobyink (Canon) on Oct 30, 2012 at 21:07 UTC
Yes, I was a bit surprised by the assertion that this didn't work. I can only suppose the OP forgot the angled brackets when testing. `perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'`	[reply]
Re^2: Forcing array context on a file handle by ronmrdechai (Novice) on Oct 30, 2012 at 21:33 UTC
That's odd. It works for me too, but it doesn't work in my larger program (I have all the brackets, and in the right order). I have some extra stuff going around with the file handle, so maybe that's what's causing trouble. I ended up going with BowserUK's solution, which is slightly shorter than the method I was using before.	[reply]
Re^3: Forcing array context on a file handle by Lotus1 (Vicar) on Oct 31, 2012 at 02:12 UTC
After you read a file you have to rewind it with seek if you want to read it again from the beginning. Here is how to set the filehandle back to the beginning of the file. `seek $fh, 0, 0;`	[reply] [d/l]