查找在perl DBI中執行的查詢的類型

Question

在我的perl程序中，我有一個函數，它接受查詢作爲輸入並執行它，並打印查詢的所有行，如果查詢是select語句。

但問題是更新或插入語句，其中fetchrow_array給出了一個錯誤，所以有什麼辦法我可以知道什麼類型的查詢被執行，以便我可以跳過提取部分？

Answer 1

不知道什麼樣的SQL您要執行聽起來像一個壞主意給我，但是這不是你問，所以...

檢查the docs，你會發現：

你可以通過在調用execute之後檢查 $ sth - > {NUM_OF_FIELDS}是否大於零來判斷語句是否爲SELECT語句。

Answer 2

使用正則表達式來檢查查詢特定單詞的SQL字符串創建一個小幫手功能...

my $sql = "UPDATE some_table SET some_value = 'abc' WHERE some_value = 'xyz'"; 

sub get_query_type 
{ 
    my $sql_string = shift; 
    my $query_type; 

    if($sql_string =~ m/^UPDATE/i) 
    { 
     $query_type = "An UPDATE query"; 
     # do UPDATE stuff 
    } 
    elsif($sql_string =~ m/^INSERT/i) 
    { 
     $query_type = "An INSERT query"; 
     # do INSERT stuff 
    } 
    # more blocks here as needed. 

    return $query_type; 
} 

my $type = get_query_type($sql); 

print $type;