08/08/19 18:06:14
練習がてらVBのコードをPerlで書き直していますがうまく通りません。
項目を数字で指定しない方向で同等の処理は出来ないでしょうか。
お願いします。
' VB+oo4o
OraDynaset = OraDataBase.DbCreateDynaset(SQL_STR, 0&)
aaa = OraDynaset.Fields("AAA").Value
# Perl+oo4o
my OraDynaset = OraDataBase.DbCreateDynaset(SQL_STR, 0)
$aaa = $OraDynaset->Fields('AAA')->{Value};
結果：Can't call method "Fields" on an undefined value at ***.
$aaa = $OraDynaset->{Fields('AAA')}->{Value};
結果：Undefined subroutine &main::Fields called at ****