关于Perl中split的用法的更多说明-MoreclarificationabouttheusageofsplitinPerl

This looks like CSV. So the tool for the job is really Text::CSV.

这看起来像CSV。因此,该工作的工具实际上是Text :: CSV。

I will also suggest - having 4 different arrays with numbered names says to me that you're probably wanting a multi-dimensional data structure in the first place.

我还建议 - 有4个带编号名称的不同数组对我说,你可能首先想要一个多维数据结构。

So I'd be doing something like:

所以我会做的事情如下:

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;
use Text::CSV;

my $csv = Text::CSV->new( { binary => 1 } );

open( my $input, "<", "input.csv" ) or die $!;
my @results; 

while ( my $row = $csv->getline($input) ) {
   push ( @results, \@$row );  
}

print join ( ",", @{$results[0]} ),"\n";
print Dumper \@results;
close($input);

If you really want separate arrays, I'd suggest naming them something different, but you could do it like this:

如果你真的想要单独的数组,我建议给它们命名不同的东西,但你可以这样做:

 push ( @array1, $$row[0] );   #note - double $, because we dereference

I will note - there's an error in your code - I doubt:

我会注意到 - 你的代码中有错误 - 我怀疑:

while($map_in){

is doing what you think it is.

正在做你认为的事情。

When you're assigning $entryN, define a default value:

当您分配$ entryN时,请定义默认值:

$entry1[$counter] = $hold_csv[0] || '';

same for other @entry

其他@entry也一样

I think there is a typo in while($map_in) { it should be while (@map_in) {.

我认为有一个拼写错误($ map_in){它应该是while(@map_in){。