Perl push function gives index values instead of array elements

Question

I am reading a text file named, mention-freq, which has data in the following format:

I want to read the lines and store the values in an array like this: @a=(1, 1, 13, 2). The Perl push function gives the index values/line numbers, i.e., 1,2,3,4, instead of my desired output. Could you please point out the error? Here is what I have done:

use strict;
use warnings;

open(FH, "<mention-freq") || die "$!";
my @a;
my $line;
while ($line = <FH>)
{
    $line =~ s/\n//;
    push @a, $line;
    print @a."\n";
}
close FH;

I like twoHandsTwoCutsFunction function :) sub{map{s/^\s+//; s/\s+$//; $_}@_} — gaussblurinc
– gaussblurinc, Commented Aug 5, 2013 at 9:18

tchrist · Accepted Answer · 2013-08-05 00:49:22Z

10

The bug is that you are printing the concatenation of @a and a newline. When you concatenate, that forces scalar context. The scalar sense of an array is not its contents but rather its element count.

You just want

 print "@a\n";

instead.

Also, while it will not affect your code here, the normal way to remove the record terminator read in by the <> readline operator is using chomp:

chomp $line;

answered Aug 5, 2013 at 0:49

tchrist

80.7k31 gold badges135 silver badges186 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Perl push function gives index values instead of array elements

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related