DBD :: CSV：問題與用戶定義的函數

Question

從SQL語句:: ::功能文檔：

創建用戶定義的函數
...
更復雜的功能，可以利用一些的參數總是自動傳遞給函數。函數總是在@_中接收這些值：
sub FOO {my（$ self，$ sth，$ rowhash，@params）; }

#!/usr/bin/env perl 
use 5.012; 
use warnings; use strict; 
use DBI; 

my $dbh = DBI->connect("DBI:CSV:", undef, undef, { RaiseError => 1, }); 
my $table = 'wages'; 
my $array_ref = [ [ 'id', 'number' ], 
      [ 0, 6900 ], 
      [ 1, 3200 ], 
      [ 2, 1800 ], ]; 

$dbh->do("CREATE TEMP TABLE $table AS import(?)", {}, $array_ref); 

sub routine { 
    my $self = shift; 
    my $sth = shift; 
    my $rowhash = shift; # 
    return $_[0]/30; 
}; 

$dbh->do("CREATE FUNCTION routine"); 
my $sth = $dbh->prepare("SELECT id, routine(number) AS result FROM $table"); 
$sth->execute(); 
$sth->dump_results(); 

當我嘗試這個，我得到一個錯誤消息：

DBD :: CSV :: ST執行所失敗：未初始化值$使用_ [0]除法（/ ）在./so.pl線27
[用於聲明 「選擇ID，例程（號碼）AS結果FROM 」工資「」]在./so.pl線34

當我註釋掉我按預期工作的第三個參數（因爲它看起來如同第三個參數丟失）：

#!/usr/bin/env perl 
... 
sub routine { 
    my $self = shift; 
    my $sth = shift; 
    #my $rowhash = shift; 
    return $_[0]/30; 
}; 
... 

0，230
1，106.667
2，60個
3行

這是一個錯誤？

Answer 1

從 SQL::Statement::Functions文檔

另外：

當使用 SQL語句::/SQL解析器::直接 解析SQL，函數（無論是 內置或用戶定義的）可以發生在任何地方 在SQL語句中可能會出現值，列名，表名或 謂詞。當通過DBD或在其中SQL是 既分析和執行任何 其他環境中使用 的模塊，功能 可以在相同的地方發生，除了 它們不能的SELECT 列 選擇子句中發生包含FROM子句的語句。

即

SELECT id, routine(number) AS result FROM wages 

將無法​​正常工作。

重寫你的函數返回一個表，像這樣：

sub routine { 
    my($self,$sth,$rowhash,@params) = @_; 
    return [ [qw(id result)], 
      map { [ $_->[0], $_->[1]/30 ] } @$array_ref ]; 
}; 

$dbh->do("CREATE FUNCTION routine"); 
my $sth = $dbh->prepare("SELECT * FROM routine()"); 
$sth->execute(); 
$sth->dump_results(); 

與預期結果：

$ perl dl.pl 
0, 230 
1, 106.667 
2, 60 
3 rows