Tôi đang đọc một tập tin văn bản được đặt tên, đề cập đến-freq, trong đó có dữ liệu theo định dạng sau:Perl chức năng đẩy cho giá trị chỉ số thay vì các phần tử mảng
1
1
13
2
Tôi muốn đọc những dòng và lưu trữ các giá trị trong một mảng như sau: @a=(1, 1, 13, 2)
. Hàm đẩy Perl cung cấp các giá trị chỉ số/số dòng, tức là 1,2,3,4, thay vì đầu ra mong muốn của tôi. Bạn có thể vui lòng chỉ ra lỗi? Đây là những gì tôi đã thực hiện:
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;
Tôi thích 'twoHandsTwoCutsFunction' chức năng :)' tiểu {map {s/^ \ s + //; s/\ s + $ //; $ _} @_} ' – gaussblurinc