Question

所以我的文件看起来像：

Name, Surname, Number
Name2, Surname2, Number2
Name3, Surname3, Number3

我想把它全部读到Perl中的一个字符串，我希望它看起来像：

"Name, Surname, Number, Name2, Surname2, Number2, Name3, Surname3, Number3"

但我真的不知道该怎么做：/我是Perl的新手。我只知道，要打开我需要做的文件：

open($list, "<", $file)

Answer 1

my $list = do {
    use autodie;
    open my $fh, '<', $file;
    chomp(my @lines = <$fh>);
    join ', ', @lines;
};

Answer 2

尝试将文件句柄中的行读入数组，然后将该数组连接成字符串。

open (my $list, "<", $file) or die;
my @lns = <$list>;
chomp @lns;
my $string = join(",", @lns);

print "$string\n";

Answer 3

其他答案将有效。既然你和我一样对Perl很新，那么不同但也许更适合初学者（直截了当，IMO）的方式就是：

use strict;

sub main(){

my $output; 
    open( 'sourcefile', "<$ARGV[0]" )
          or die("Error: cannot open file '$ARGV[0]'\n");

    while (my $line = <sourcefile>){
        chomp $line; #will remove the newline for you.
        $output = $output . $line;
    }
    print $output;
}

main();

将文件读取到一个字符串并将其分隔为perl

3 个答案: