Perl -DBI selectall_arrayref當查詢得到不哈希引用

Question

我是非常新的perl（但來自c＃背景），我試圖將一些腳本移動到一個窗口框。 由於某些模塊無法輕鬆使用Windows，因此我改變了連接到數據庫的方式。 我有一個sqlserver數據庫，我有一個循環讀取表中的每一行，然後在此循環內發送另一個查詢來選擇不同的信息。 我是兩個語句不能同時在同一個連接中執行的錯誤。 由於我的連接對象是全球性的我看不到一個簡單的辦法解決這，所以決定將第一組數據存儲在數組中使用：

my $query = shift; 
    my $aryref = $dbh->selectall_arrayref($query) || die "Could not select to array\n"; 
    return($aryref); 

（這是在被稱爲模塊文件）

我然後做一個foreach循環（其中@ $ s_study是$ aryref以上恢復）

foreach my $r_study (@$s_study) { 
    ~~~    
    my $surveyId=$r_study->{surveyid}; <-------error this line 
~~~~    
     }; 

當我運行此我得到一個錯誤「不是一個散列引用」。我不明白？！ 任何人都可以幫忙！

貝克斯

Answer 1

$r_study->{surveyid}是hashref

$r_study->[0]是一個數組引用

這是你的錯誤。 您應該使用第二個

Answer 2

你需要的，如果你想每一行存儲爲散列提供{ Slice => {} }參數selectall_arrayref：

my $aryref = $dbh->selectall_arrayref($query, { Slice => {} }); 

默認情況下，它返回一個包含引用到一個數組對獲取的每行數據的數組引用。

Answer 3

如果您遇到方法問題，那麼首先要閱讀該方法的文檔。這是selectall_arrayref文檔的鏈接。它說：

This utility method combines "prepare", "execute" and "fetchall_arrayref" into a single call. It returns a reference to an array containing a reference to an array (or hash, see below) for each row of data fetched.

所以默認行爲是一個參考返回到其中包含的每一行的數組引用的數組。這解釋了你的錯誤。你正在獲得一個數組引用，並且你正試圖將它作爲一個哈希引用。我不確定這個錯誤可能會更清楚。

然而，它有一個有趣的地方，它說「或散列，見下文」。閱讀，我們發現：

You may often want to fetch an array of rows where each row is stored as a hash. That can be done simple using:

my $emps = $dbh->selectall_arrayref(
    "SELECT ename FROM emp ORDER BY ename", 
    { Slice => {} } 
); 
foreach my $emp (@$emps) { 
    print "Employee: $emp->{ename}\n"; 
} 

所以你有兩個選擇。要麼將您的代碼切換到使用數組ref而不是哈希引用。或者將「{Slice => {}}」選項添加到調用中，該選項將返回一個哈希引用。

該文件是明確的。這非常值得一讀。