perl½«oracleÊý¾Ý¿âµÄÊý¾Ýµ¼³ö³ÉtxtµÄ¼òµ¥·½Ê½
µ±ÎÒÃÇÃæ¶Ô Êý°ÙÍòÊýǧÍòÐÐÁеÄÊý¾Ý¿â±íµÄʱºò£¬¶øÄãÓÖÏ£ÍûÄܽ«Êý¾Ý¾¡¿ìµÄµ¼³ö³Étxt¸øÄãµÄÀϰ壬ÓÐÈí¼þ»òÕ߯äËû¶«Î÷µ¼³öÀ´¾ÍÏԵñȽÏÓôÃÆÁË£¬ÒòΪÀϰåÒª³ÔÎç·¹ÁË£¬Ëû¿É²»Ï£ÍûÔÚϰàµÄʱºò»¹Ìýµ½ÄãÔÚ˵£¬Êý¾ÝÕýÔÚµ¼³öÖС£
ÓÚÊÇÎÒÃÇÀûÓÃÁË£¬ËÙ¶ÈתÈëÕýÌâÁ˰¡¡£
ÐèÒªµÄÄ£¿é£º
DBI£»
#!/usr/bin/perl
use DBI;
$dbname="Êý¾Ý¿â·þÎñÃû³Æ";
$user="Óû§";
$passwd="ÃÜÂë";
open IN,">Ä¿µÄÎļþ.txt"or die "$!";
my $dbh = DBI->connect("dbi:Oracle:$dbname",$user,$passwd) or die "can't connect to
database ". DBI-errstr;
my $sth = $dbh->prepare("select * from wl_cp_name"); #ÓÃsqlÓï¾äд³öÄãÏëÒªµÄÊý¾Ý
$sth->execute();
while (my @ref = $sth->fetchrow_array()){
chomp (@ref);
my $file_data = join "\t", @ref; #ÒÔÖÆ±í·ûÀ´·Ö¸î×îºóµ¼³öÀ´µÄÊý¾Ý
print IN $file_data."\n" #µ¼ÈëÄ¿µÄÎļþ
}
print "ÒѾÅÜÍêÁË\n";
$sth->finish();
$dbh->disconnect();
close IN;
OKÁË£¬³ÌÐò¾ÍÊÇÕâô¼òµ¥£¬¸øÁËÒ»¸ö½Ó¿ÚÒÔºó£¬perl¾Í¿ÉÒÔ¾¡ÇéµÄץȡÊý¾ÝÁË£¬·ÅÐİɣ¬ÄãµÄÀϰ廹ûÀ´µÄ¼°°ÑµÊ×Ó×øÈȺõ£¬Äã¾Í¿ÉÒÔ°ÑÊý¾Ý¸øËûÁË£¬ÈÃËû¾Í¶Ô¸¶ÕâÖØÁ¿¼¶µÄÊý¾Ý°É¡£ºÇ
Ïà¹ØÎĵµ£º
¿Î³ÌÊ®Èý ʹÓÃ×éºÏÊý¾ÝÀàÐÍ* Óαê²Ù×ÝÊý¾Ý
¡¡¡¡
¡¡¡¡±¾¿ÎÖØµã£º
¡¡¡¡1¡¢´´½¨Óû§×Ô¶¨ÒåµÄPLSQL¼Ç¼
¡¡¡¡2¡¢ÀûÓÃ%ROWTYPEÊôÐÔÀ´´´½¨¼Ç¼
¡¡¡¡3¡¢´´½¨PLSQL±í
¡¡¡¡4¡¢ÃèÊö¼Ç¼¡¢±í¡¢¼Ç¼µÄ±íÖ®¼äµÄÇø±ð
¡¡¡¡×¢Ò⣺ÒÔÏÂʵÀýÖбêµã¾ùΪӢÎİë½Ç
¡¡¡¡Ò»¡¢ºÏ³ÉÊý¾ÝÀàÐÍ
¡¡¡¡1¡¢ÀàÐÍ·ÖΪPLSQL¼Ç¼ºÍPLSQL±í
¡¡¡¡2¡ ......
ÉèÁ¢·âËø»úÖÆÖ÷ÒªÊÇΪÁ˶Բ¢·¢²Ù×÷½øÐпØÖÆ£¬¶Ô¸ÉÈŽøÐзâËø£¬±£Ö¤Êý¾ÝµÄÒ»ÖÂÐÔºÍ׼ȷÐÔ¡£OracleÊý¾Ý¿â·âËø·½Ê½ÓÐÈýÖÖ£º¹²Ïí·âËø£¬¶ÀÕ¼·âËø£¬¹²Ïí¸üзâËø
¡¡¡¡ [b:8f4f63b9bb]·âËøÀàÐÍ[/b:8f4f63b9bb]
¡¡¡¡ Oracle¡¡RDBMSµÄ·âËøÀàÐͿɷÖΪÈçÏÂÈýÀࣺ
¡¡¡¡ £±¡¢ÄÚ²¿¼¶·âËø
¡¡¡¡ ÄÚ²¿¼¶·âËøÊÇÓÃÓÚ±£»¤ORACLEÄÚ²¿½á ......
OracleÊý¾Ý¿âµÄÆô¶¯Óõ½Á˳õʼ»¯²ÎÊý£¬Ò»°ãÇé¿öÏ¿ÉÒÔÔÚsqlplusÀïÓÃshow parameter À´»ñµÃ¡£¶øOracleÊý¾Ý¿âΪÁËdebug »òÕß½â¾öÒ»Ð©ÌØÊâµÄÎÊÌ⣬»¹ÌṩÁËһЩÒÔ“_”¿ªÍ·µÄÒþº¬²ÎÊý¡£ ÍøÂçÉÏÓÐһЩscript¿ÉÒÔÈÃÎÒÃÇÇáËɼì²éÕâЩÒþº¬²ÎÊý. ÏÂÃæÎÒÃÇÀ´Ïêϸ½éÉÜÒ»ÏÂÈçºÎÖ±½ÓÔÚsqlplus ÓÃshow parameterÀ´»ñÈ¡Òþº¬²ÎÊý ......
Username
Password
Description
See Also
CTXSYS
CTXSYS
The Oracle Text account
Oracle Text Reference
DBSNMP
DBSNMP
The account used by the Management Agent component of Oracle Enterprise Manager to&nb ......