데이터베이스에서 가져온 값 가져 오기

Question

MySQL 데이터베이스에서 가져온 데이터를 저장해야합니다. 그래서이 코드를 사용했습니다.

while (@row = $statement->fetchrow_array) 
{ 
    print "@row.\n"; #  ------printing data 
} 

foreach $key(@row) 
{ 
    print $key."\n"; # ------empty data 
} 

foreach 루프에서 @row 데이터는 비어 있습니다. 이

UPDATE를 해결하는 방법 : 그것은 실제로 다음과 같이해야한다 :

while (my @row = $statement->fetchrow_array) { 
    # print "@row.\n"; 
    foreach my $key(@row) { 
    $query= "ALTER TABLE tablename DROP FOREIGN KEY $key;"; 
    $statement = $connection->prepare($query); 
    $statement->execute() 
     or die "SQL Error: $DBI::errstr\n"; 
    } 
} 

Answer 1

음, 다음과 같이해야한다 :

while (my @row = $statement->fetchrow_array) { 
    foreach my $key (@row) { 
    print $key."\n"; 
    } 
} 

그렇지 않으면 모든 결과 세트가 될 것입니다 첫 번째 루프에서 소비되었습니다. (!) 참고로

는 fetchrow_array 필드 값 하지 키의 배열로 집합을 리턴한다. 뿐만 아니라 키를 얻으려면, 당신은 fetchrow_hashref을 사용해야합니다

while (my $row = $statement->fetchrow_hashref) { 
    while (my ($key, $value) = each %$row) { 
    print "$key => $value\n"; 
    } 
} 

업데이트 : 귀하의 의견에서을 실제로 열 이름의 배열을해야 할 것 같습니다. 이를 수행하는 한 가지 방법이 있습니다 :

실제로, 원하는 작업을 수행하는 더 편리한 방법이 있습니다. 첫째, 단일 행을 준비하고 추출하는 단일 방법이 있습니다 : selectrow_hashref. 둘째, 외래 키 정보 만 얻고 싶다면 왜 특정 DBI 방법을 사용하지 않는가? - foreign_key_info? 예 :

my $sth = $dbh->foreign_key_info(undef, undef, undef, 
            undef, undef, $table_name); 
my $rows = $sth->fetchall_hashref; 
while (my ($k, $v) = each %$rows) { 
    # process $k/$v 
}