Perl을 사용하여 CSV 데이터를 해시로 변환

Question

Perl을 처음 사용했습니다. CSV 파일에서 해시를 만들려고합니다.

내 CSV 데이터

는 현재 다음과 같습니다

id,name,title,rating 
123,Andrew,Book 1,3 
1221,Abraham,Book 2,4 
43,Annie,Book 3,1 

나는이

$reviews = { 
    review => [ 
       { 
        id  => [ 123 ], 
        name => [ Andrew ], 
        title => [ "Book 1" ], 
        rating => [ 3 ], 
       }, 
       { 
        id  => [ 1221 ], 
        name => [ Abraham ], 
        title => [ "Book 2" ], 
        rating => [ 4 ]] 
       }, 
       { 
        id  => [ 43 ], 
        name => [ Annie ], 
        title => [ "Book 3" ], 
        edition => [ 1 ], 
       }, 
       ] 
      }; 

처럼 보이도록 해시를하고 싶습니다하지만이 대신

$VAR1 = { 
    '123' => { 
        'name' => 'Andrew', 
        'title' => 'Book 1', 
        'id' => '123', 
        'rating' => '3', 
       }, 
    '1221' => { 
        'name' => 'Abraham', 
        'title' => 'Book 2', 
        'id' => '1221', 
        'rating' => '4', 
       }, 
    '43' => { 
        'name' => 'Annie', 
        'title' => 'Book 3', 
        'id' => '43', 
        'rating' => '1', 
       } 

     }; 

받고 있어요 지금까지 사용하고있는 코드는 다음과 같습니다. 내 CSV는 output.csv 파일에 있고 나는 hashr.txt 파일

my %hash; 
open (RESULTS, "output.csv")|| die "Can't open output.csv: $!\n"; 
open (HASHR, "+>hashr.txt")|| die "Can't open hashr.txt: $!\n"; 

while (<RESULTS>) { 
    last if /id/ 
} 
my $labels = $_; #save last line to label keys 
chop $labels; 

while (<RESULTS>) { 
    chomp; 
    my @array = split /,/; 
    my $index = 0; 
    my %h = map { $_ => $array[$index++]} split(",", $labels); 

    #my $key = "review"; 
    #$hash{$key}=\%h; 

    $hash{ $array[0] } = \%h; 
} 

print Dumper(\%hash); 
print HASHR Dumper(\%hash); 
close RESULTS; 

Answer 1

원하는 데이터 구조가 이상하다에 해시를 인쇄하지만, 당신이 당신이 원하는 말을 가까이해야 다음과 같은거야.

복소수 데이터 구조에 대해 자세히 알아 보려면 perldsc의 리 프레저를 사용할 수 있습니다.

use strict; 
use warnings; 

my $header = <DATA>; 
chomp $header; 
my @headers = split /,/, $header; 

my @records; 
while (<DATA>) { 
    chomp; 
    my @cols = split /,/; 
    my %hash; 
    @hash{@headers} = map [$_], @cols; 
    push @records, \%hash; 
} 

use Data::Dump; 
dd \@records; 

__DATA__ 
id,name,title,rating 
123,Andrew,Book 1,3 
1221,Abraham,Book 2,4 
43,Annie,Book 3,1 

출력 : 나는 펄 감동 한 이후 그 구문은 아마 해제 방법이지만 요점은 당신이에 생성 된 값을 배치 할 것이다 그래서 그것은 년

[ 
    { id => [123], name => ["Andrew"], rating => [3], title => ["Book 1"] }, 
    { id => [1221], name => ["Abraham"], rating => [4], title => ["Book 2"] }, 
    { id => [43], name => ["Annie"], rating => [1], title => ["Book 3"] }, 
] 

Answer 2

review => [ 
      { 
       id  => [ 123 ], 
       name => [ Andrew ], 
       title => [ "Book 1" ], 
       rating => [ 3 ], 
      }, 

'123' => { 
       'name' => 'Andrew', 
       'title' => 'Book 1', 
       'id' => '123', 
       'rating' => '3', 
      }, 


my %h = map { $_ => $array[$index++]} split(",", $labels); 


to 

my %h = map { $_ => @{$array[$index++]}} split(",", $labels); 

을이었다 배열을 완성한 다음 배열로 묶으십시오.