Re^6: Looking for pointers or optimizations.

Hej, You probably didn't see this (marked with ####)

open(my $fh, "<", $ARGV[0]) or die "cannot open input file: $!";
my @words = <$fh>;
close $fh or die "cannot close input file: $!"; ##############
my $words = @words;
[download]

On the other hand, I don't understand the last line - you read a file into array with my @words = <$fh>; and then you assign it to a scalar variablemy $words = @words;.

OK, you probably have your own reasons for that but you could manipulate array as good as scalar. And you could read a file directly in a scalar variable. my $words = <$fh>;

Comment on Re^6: Looking for pointers or optimizations. Select or Download Code

Replies are listed 'Best First'.
Re^7: Looking for pointers or optimizations. by chromatic (Archbishop) on Aug 21, 2012 at 19:59 UTC
And you could read a file directly in a scalar... Depending on the current value of the input record separator, you might only get one record. In fact, you'll probably only get one record.	[reply]
Re^8: Looking for pointers or optimizations. by SerZKO (Beadle) on Aug 22, 2012 at 06:16 UTC
++ for pointing out this Chromatic. But if you just add `undef $/;` before reading file, then you get it all in a scalar variable `undef $/; my $words = <$fh>;` [download]	[reply] [d/l] [select]
Re^7: Looking for pointers or optimizations. by choroba (Cardinal) on Aug 21, 2012 at 19:58 UTC
you could read a file directly in a scalar variable. `my $words = <$fh>;` [download] Not true. Have you tried it? In fact, you can, but in a different way. لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply] [d/l]