『AskWan』

the first way:
#!/usr/bin/perl -w use strict; use DBI; my $dbh = DBI->connect( 'dbi:Oracle:askwan', 'scott', 'scott',{ RaiseError => 1, AutoCommit => 0 } ); my $sql = qq{ SELECT 'askwan.com' FROM DUAL }; my $sth = $dbh->prepare( $sql ); $sth->execute(  ); while ( my($String) = $sth->fetchrow_array) {    print $String, "\n"; } $dbh->disconnect(  );

the second way:
#!/usr/bin/perl -w use strict; use DBI; my $dbh = DBI->connect( 'dbi:Oracle:askwan', 'scott', 'scott',{ RaiseError => 1, AutoCommit => 0 } ); print $dbh->selectrow_array(qq{ SELECT 'askwan.com' FROM DUAL }); $dbh->disconnect(  );

----------END-----------

临时表空间用途：
INDEX CREATE ,INDEX REBUILD,ORDER BY ,GROUP BY, DISTINCT,Analyze,UNION, Sort-Merge etc..
上面这些操作均会用到临时表空间

临时表空间重建步骤：
比如临时表空间一直增大，导致系统磁盘空间吃紧，考虑重建
1 定位当前临时表空间位置


2 创建临时表空间TEMP02


review:


3 改变缺省临时表空间为TEMP02


4 .删除原缺省表空间temp


5.创建新表空间temp


6. 改变缺省表空间


7.删除中间过程表空间TEMP02


8.重新指定用户临时表空间


涉及临时文件相关操作
eg.
alter database tempfile '/u01/oracle/oradata/askwan/temp.dbf'  autoextend off;
alter database tempfile '/u01/oracle/oradata/askwan/temp.dbf'  resize 300M;
alter database tempfile ''/u01/oracle/oradata/askwan/temp.dbf' autoextend on;

#!/usr/bin/perl -w $file=shift; open(FD,"$file"); while(<FD>){     m/(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/;     $IP{$1}++; } print "Client IPs\t\tNum Of Visits\n"; foreach ( sort { $IP{ $b } <=> $IP{ $a } } keys( %IP) ) {    print "$_\t\t", $IP{ $_ }, "\n";    ++$a;    exit 0 if $a>9;    }

usage and output:
# perl parse_apache.pl access_askwan_com_log
Client IPs              Num Of Visits
192.168.11.8            1794924
192.168.11.60           80887
192.168.11.9            34403
192.168.11.50           18026
192.168.11.196          8379
192.168.11.201          1353
192.168.11.155          1041
192.168.21.156          449
192.168.21.161          163
192.168.12.2            84

-------------end--------------