String 将文件读入一个字符串，并用perl将其分隔

所以我有一个文件，看起来像：

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

我想在Perl中将其全部读取为一个字符串，并希望它看起来像：

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

但是我真的不知道怎么做：/I我是Perl新手。我只知道，要打开文件，我需要执行以下操作：

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

open（$list，”
my$list=do{
使用自动模具；
打开我的$fh，“尝试将文件句柄中的行读取到数组中，然后将该数组合并到字符串中

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

print "$string\n";

open（my$list），其他答案也可以。因为您和我一样是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();

使用严格；
副标题（）{
我的美元产出；
打开（'sourcefile'，“
无法在chomp中修改，位于第3行附近”；“
：-PAlso，不要忘记检查
打开调用是否失败。
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();