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

Question

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

例如文本文件包含

US
London

如何将美国存储在数组[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"