Архив форумов ЦИТФорума

[MarioDaPL]

Kak mne sdelat' na Perle shtob mozhno bylo b delat' SELECT (v programe Perla) s peremennoj?
Na primer:
my $oraSQL = qq/SELECT column_name FROM all_tab_columns
WHERE owner = 'KLASIFIKATORIAI' AND TABLE_NAME= $table ORDER BY COLUMN_ID/;
my $sth = $dbh - prepare ( "$oraSQL" ) or die qq(Error: $DBI::errstr);
$table - eto peremennaja, v kotoroj xranitsia imia tablicy, o kotorojoj ja starajus razuznat' chto nibut'..
Jest' kakije nibud' sovety?
Byl by blagodaren za pomoshch'..

[Lirik]

$sth=$dbh-prepare(qq[
SELECT * FROM foo WHERE id=?
]") || (warn($dbh-errstr));

$sth-execute($variable);

подробнее - изучи DBD::Oracle,
для это читай "perldoc DBD::Oracle"