Perl의 DBI가있는 열에 어떻게 해시 값을 삽입 할 수 있습니까?

Question

해시가 있으며 해당 값을 데이터베이스에 삽입하려고합니다. 해시는 다음과 같이 정의됩니다.

my %hash = (
      1 => 'First Word', 
      2 => 'Second Word is correct', 
      0 => 'Third word does not exist', 
      ); 

해시를 사용하여 데이터베이스에 값을 삽입하는 방법을 알지 못합니다. 내 질문에 this 질문과 비슷합니다. 그러나 그 대답 중 어느 것도 맞지는 않습니다. 나열된 답변 중 하나를 사용할 때 해시 값이 삽입되지 않고 대신 해시에 대한 참조 (예 : ARRAY(0x9e63b30))가 삽입됩니다. 하지만 내가 print Dumper @values 일 때 값이 인쇄되고 참조 값이 아닙니다.

값을 삽입하는 방법에 대한 제안이나 참조가 아닌 제안 사항은 무엇입니까? 그리고 question에 대한 답변에 나열된 솔루션에서 잘못된 점이 무엇입니까?

@values가 this 질문과 동일 정의 즉

는

my @values = values %hash; 

편집 : DB 구조 :

는

T1 : 위의 SID에

sid sentence 
1 First Word 
2 Second Word is correct 
0 Third word does not exist 

해시의 keys과 문장 values입니다 해시 @values 참조 값이 삽입지고 삽입하는 동안, 다시

my @keys = keys %hash; 

my @values = values %hash; 

my $sth = $dbh->prepare("INSERT INTO T1(sid, sentence) VALUES (?,?);"); 

$sth->execute_array({},\@keys, \@values); 

:

이것은 내가 (이 question에 대한 답변 중 하나입니다) 밖으로 시도하는 것이다.

편집 :

_ OUTPUT _

$VAR1 = 'First Word'; 
$VAR2 = 'Third word does not exist'; 
$VAR3 = 'Second Word is correct'; 

_ CODE _ 내가 다른 한편으로

my $x=0; 
foreach my $file(@files){ 
     if ($file =~ /regex/){ 
       push(@{$hash{$x}}, "$1 $2 $3 $4 $5 $6 $7"); 
     } 
     elsif ($file =~ /regex/){ 
       push(@{$hash{$x}}, "$1 $2 $3 $4 $5 $6"); 
     } 
     elseif ($file =~ /Hs_(.+)_(.+)_(.+)_(.+)_(.+)_W.+txt/){ 
       push (@{$hash{$x}}, "$1 $2 $3 $4 $5"); 
     } 
$x++; 
} 

Answer 1

원래 게시 한 내용이 아닙니다. 배열에 대한 참조의 해시가 있습니다. 그들에 대해 배우려면 펄 참조 튜토리얼 (perlreftut)을 읽어라.

는

Answer 2

내 회신 % 해시에 값을 삽입하고 방법이있다 thread 당신은 작업에 연결되어있었습니다. 나는 그것을 시험하고 여러 번 사용했다. execute_array()는 사용하지 않고 execute() 만 사용합니다.

Answer 3

이렇게하면됩니다.

my $key; 
my $value; 
while (($key, $value) = each %hash) { 
    $sth->bind_param(1, $key); 
    $sth->bind_param(2, $value); 
    $sth->execute(); 
} 

Answer 4

UPDATE :

내가 이전 thread에서 기능 예제 중 하나를 잡고 데이터베이스와 시스템에서 작업을 얻을 것이 좋습니다. 일단 이러한 예제 중 하나를 작동 시키면 자신 만의 코드를 고칠 수 있어야합니다.

이전 답 : execute_array()를 사용하는 다른 thread에

내 대답은 내가 게시하기 전에 그것을 테스트, 작동합니다.