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¾Í¿ÉÒÔ¾¡ÇéµÄץȡÊý¾ÝÁË£¬·ÅÐÄ°É£¬ÄãµÄÀϰ廹ûÀ´µÄ¼°°ÑµÊ×Ó×øÈȺõ£¬Äã¾Í¿ÉÒÔ°ÑÊý¾Ý¸øËûÁË£¬ÈÃËû¾Í¶Ô¸¶ÕâÖØÁ¿¼¶µÄÊý¾Ý°É¡£ºÇ
Ïà¹ØÎĵµ£º
oracle±í¿Õ¼ä²Ù×÷Ïê½â
1
2
3×÷Õߣº À´Ô´£º ¸üÐÂÈÕÆÚ£º2006-01-04
5
6
7½¨Á¢±í¿Õ¼ä
8
9CREATE TABLESPACE data01
10DATAFILE '/ora ......
¿Î³Ì°Ë Óû§·ÃÎÊ¿ØÖÆ
¡¡¡¡
¡¡¡¡±¾¿ÎÖص㣺
¡¡¡¡1¡¢´´½¨Óû§
¡¡¡¡2¡¢´´½¨½ÇÉ«À´½øÐа²È«ÉèÖÃ
¡¡¡¡3¡¢Ê¹ÓÃGRANT»òREVOKE À´¿ØÖÆȨÏÞ
¡¡¡¡
¡¡¡¡×¢Ò⣺ÒÔÏÂʵÀýÖбêµã¾ùΪӢÎÄ°ë½Ç
¡¡¡¡
¡¡¡¡Ò»¡¢¸ÅÊö£º
¡¡¡¡ORACLEͨ¹ýÓû§ÃûºÍÃÜÂë½øÐÐȨÏÞ¿ØÖÆ¡£
¡¡¡¡Êý¾Ý¿â°²È«£ºÏµÍ³°²È«ºÍÊý¾Ý°²È«
¡¡¡¡ÏµÍ³È¨ÏÞ£ºÊ¹Óû§¿É ......
¿Î³Ì¾Å ÉùÃ÷±äÁ¿
¡¡¡¡
¡¡¡¡±¾¿ÎÖص㣺
¡¡¡¡1¡¢Á˽â»ù±¾µÄPLSQL¿éºÍÇøÓò
¡¡¡¡2¡¢ÃèÊö±äÁ¿ÔÚPLSQLÖеÄÖØÒªÐÔ
¡¡¡¡3¡¢Çø±ðPLSQLÓë·ÇPLSQL±äÁ¿
¡¡¡¡4¡¢ÉùÃ÷±äÁ¿
¡¡¡¡5¡¢Ö´ÐÐPLSQL¿é
¡¡¡¡
¡¡¡¡×¢Ò⣺ÒÔÏÂʵÀýÖбêµã¾ùΪӢÎÄ°ë½Ç
¡¡¡¡
¡¡¡¡Ò»¡¢¸ÅÊö£º
¡¡¡¡1¡¢PLSQL ¿é½á¹¹£º
¡¡¡¡DECLARE --- ¿ÉÑ¡
¡¡¡¡±äÁ¿Éù ......
41.SYSDATE
ÓÃÀ´µÃµ½ÏµÍ³µÄµ±Ç°ÈÕÆÚ
SQL> select to_char(sysdate,dd-mm-yyyy day) from dual;
TO_CHAR(SYSDATE,
-----------------
09-05-2004ÐÇÆÚÈÕ
trunc(date,fmt)°´ÕÕ¸ø³öµÄÒªÇó½«ÈÕÆڽضÏ,È ......