Как мне инициализировать HoH из массивов переменного размера

Question

Мне нужна помощь, чтобы выяснить, как приспособиться к ситуациям, в которых $ hash {$ i} загружается с массивом @headers разных размеров.использовать строгое;используйте предупреждения;

    my $file = "list.csv";

    open (FILE,"$file") || die "Can't open file: $!\n"; 
    my (@lines) = <FILE>; 
    close(FILE);

    my @headers = split(',',$lines[0]);#split up header line

    my %hash;
    for (my $i=1; $i < scalar(@lines); $i++)
    {
        my @strings = split(',',$lines[$i];

# NEED help here
        $hash{$i} = {
            $headers[0] => $strings[0],
            $headers[1] => $strings[0],
            $headers[2] => $strings[0],
            $headers[3] => $strings[0],
            $headers[4] => $strings[0],
            $headers[5] => $strings[0]
            };

    }

Есть ли способ загрузить хэш по индексу для ситуаций, когда скаляр (@headers) = 5,6,7 ... и т. д.?Есть ли программный эквивалент для чего-то вроде ...

$hash{$i} = {
        $headers[0] => $strings[0],
              ...
        $headers[n] => $strings[n]
        };

или

$hash{$i} = {@headers => @strings);

Answer 1

Идиома, которую вы хотите:

@{ $hash{$i} }{ @headers } = @strings;

Это называется нарезка .

Учитывая, что вы читаете данные CSV, вы можете посмотретьмодули CPAN для такого рода вещей, например, Text :: CSV .

Answer 2

TIMTOWTDI

#!/usr/bin/perl

use strict;
use warnings;

my $file = "list.csv";

# Use lexical filehandles, not globals; use 3-arg open; don't quote filename
open ( my $fh, '<', $file ) or die "Can't open file: $!\n";
my( @lines ) = <$fh>;
close( $fh );

# split takes a regex; also, notice the shift
my @headers = split( /,/, shift @lines );

my %hash;

# Use perly for loops here
foreach my $i ( 0..$#lines )
# This works, too
#for my $i ( 0..$#lines )
{
    # split takes a regex
    my @strings = split( /,/, $lines[$i] );

    # One way (probably best)
    @{ $hash{$i} }{ @headers } = @strings;
    # Another way
    #$hash{$i} = { map { $headers[$_] => $strings[$_] } ( 0 .. $#strings ) };
    # Another way
    #$hash{$i}{ $headers[$_] } = $strings[$_] = for(0..$#strings);

}

#use Data::Dumper;
#print Dumper \%hash;

Но да, использование Text :: CSV (или более быстрое Text :: CSV_XS ) будетдаже лучше, чем пытаться вручную разделить CSV-файл (что происходит, если есть пробелы? что происходит, если поля и / или заголовки заключены в кавычки? Это решенная проблема.)