Question

因此,我想我的每 file读一个包含两条内容的文件:

1 10 4
6 4

我想第一行是@setA,第二行是@setB。我怎么做,却没有加以硬性编码?

Answer 1

my $setA = <$fh>;   # "1 10 4"
my $setB = <$fh>;   # "6 4"

或

my @setA = split    , scalar(<$fh>);   # ( 1, 10, 4 )
my @setB = split    , scalar(<$fh>);   # ( 6, 4 )

Answer 2

您将打开档案,以获得一份所谓的档案文件(简称$fh),阅读内容,并填写文件。 http://perldoc.perl.org/Functions/open.html“rel=“nofollow”>>>> 开放,>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>t-code><<>>>>,

注读物还有一条特殊合成物,如<代码><$fh>。阅读线通常遵循主线:

while ( <$fh> ) {
    # the line is in the $_ variable now
}

然后处理每一条线:split function 。

有时有用的另一个是 :chomp。

That should get you started.

Answer 3

use strict;
use warnings;
use autodie qw(:all);

open my $file,  < ,  file.txt ;

my @lines = <$file>;
my @setA = $lines[0];
my @setB = $lines[1];

print("@setA");
print("@setB");

close $file;

友情链接