sub datetest
{
my $oradate = shift;
$oradate->setdate(1975,10,26);
}
SQL> declare
2 d date;
3 begin
4 datetest(d);
5 DBMS_OUTPUT.put_line('Perl set the date to '||to_char(d, 'MM/DD/YYYY'));
6 end;
7/
Perl set the date to 10/26/1975
PL/SQL procedure successfully completed.
extproc_perl 1.99_05 0 Comments More | Login | Reply /