2

配列のハッシュのハッシュを含む .dmp ファイルを解析しようとしています。配列からキーと値のペアを取得して、それらを mysql データベースに格納できるようにする必要があります。いくつかの方法を試しましたが、正しく動作しません。

ファイル内のコードは次のようになります。データベースの行ごとに配列のハッシュを 1 つ格納する必要があります。

$VAR={  'booktodo-yzi07mwp-1102021083' => {
    '_modtime' => [
      1102021143
    ],
    'version' => [
      '25'
    ],
    'pubnum' => [
      '2332'
    ],
    '_status' => [
      'active'
    ],
    '_user' => [
      'lcm'
    ],
    'description' => [
      'Revise trademarks'
    ]
  },
  'booktodo-p8ekw9d3-1104950962' => {
    '_modtime' => [
      1104950986
    ],
    'version' => [
      '3.0'
    ],
    'pubnum' => [
      'S-2326-30'
    ],
    '_status' => [
      'active'
    ],
    '_user' => [
      'malz'
    ],
    'description' => [
      'Send out a request for install guide changes'
    ]
  },

これは私がこれまでに持っているものです。配列内の要素にアクセスしようとしています ありがとう!

#!/usr/bin/perl

use DBI;
use strict;
use Data::Dumper;
use File::Slurp;
use lib "$ENV{HOME}/modules/lib";

my %VAR;

#open DMP;
open (FILE, "<./booktodo.dmp") or die "could not open file: $!";
undef $/;


#store evaled data in %VAR hash
%VAR = <FILE>;
close(FILE);
eval %VAR;

foreach my $loop (keys %VAR){
    foreach my $hash (keys $VAR{$loop}){
         for my $i (0..$#{$VAR{$loop}}){
                print "$i= $VAR{$loop}[$i]\n";
         }
    }
}
4

1 に答える 1

2

どうですか：

...
my $contents = <FILE>;
close(FILE);

my $hash_of_hashes_of_arrays = eval $contents;
...

現在、ハッシュへの参照を使用していることに注意してください。それを繰り返すには：

for my $key (keys %$hash_of_hashes_of_arrays) {
  my $hash = $hash_of_hashes_of_arrays->{$key};
  for my $key2 (keys %$hash) {
    my $array = $hash->{$key2};
    for my $i (0..$#$array) {
      print "$i: $$array[$i]\n";
    }
  }
}
于 2012-09-10T21:22:19.417 に答える