如何在perl中的不同数组元素中存储不同行的文本文件

Question

如何在perl

中的不同数组元素中存储不同行的文本文件

E.g 文本文件包含

US
London

如何将US存储在数组[0]中，将伦敦存储在数组[1]

中

Answer 1

这是一个选项：

use strict;
use warnings;

my $fileName = 'text.txt';

open my $fh, '<', $fileName or die $!;
chomp( my @array = <$fh> );
close $fh;

print qq{\$array[0] contains "$array[0]"\n};
print qq{\$array[1] contains "$array[1]"};

输出：

$array[0] contains "US"
$array[1] contains "London"

Answer 2

这将打开一个文件并将每一行读入一个数组：

open my $fh, '<', $filename;
chomp(my @lines = <$fh>);
close $fh;

有关详情，请参阅perlfaq。

Answer 3

@arr=();
open(KJ,"ur_file");
@arr=<KJ>;
close(KJ);