(snip)
> I tried it in your way before,but the result is same.
> $dbh->do("$enb_trg") -->NG
> $dbh->do($enb_trg) -->NG
>
> I tried below this(debug mode) ,but print sentence of debug mode
display
> until finish1.
> So, I think the part of "$dbh->do($enb_trg)" is incorrect or illegal..
Did you check your error log of Web server?
I recommend you to use CGI::Carp like below in debug.
Anyway I run a script like below in my environment
with no problem.
PS.
Why do you use KANJI in you mail?
This mailing-list is not only for Japanese.
[Script]
#!/usr/bin/perl -w
use strict;
use DBI;
use CGI::Carp qw(fatalsToBrowser);
BEGIN{
$ENV{ORACLE_HOME} = '/u01/app/oracle/product/8.1.5' ;
$ENV{NLS_LANG} = 'japanese_japan.JA16EUC';
};
my $hDb = DBI->connect("dbi:Oracle:ORCL", "scott", "tiger",
{RaiseError => 1,AutoCommit => 0}) or
die "CONNECT ERROR $DBI::errstr";
print "Content-Type: text/html\n\n";
print "<HTML><BODY>";
my $sSQL =
'SELECT TRIGGER_NAME, STATUS FROM USER_TRIGGERS
WHERE TRIGGER_NAME = ?';
my $sTrg = 'TEST_TRG';
my($sName, $sStatus) = $hDb->selectrow_array($sSQL, undef, $sTrg);
print "BEFORE STS : $sName -> $sStatus<BR>\n";
$hDb->do("ALTER TRIGGER $sTrg enable");
($sName, $sStatus) = $hDb->selectrow_array($sSQL, undef, $sTrg);
print "MID STS : $sName -> $sStatus<BR>\n";
$hDb->do("ALTER TRIGGER $sTrg DISABLE");
($sName, $sStatus) = $hDb->selectrow_array($sSQL, undef, $sTrg);
print "LAST STS : $sName -> $sStatus<BR>\n";
$hDb->disconnect;
print "</BODY></HTML>";
==============================================
Kawai, Takanori(Hippo2000)
Mail: [EMAIL PROTECTED] [EMAIL PROTECTED]
http://member.nifty.ne.jp/hippo2000/index_e.htm
http://www.hippo2000.info/cgi-bin/KbWikiE/KbWiki.pl?
==============================================
