Perl打印多行數(shù)據(jù)內(nèi)容不頂格顯示

shaunsyb

用Perl 將 Oracle 數(shù)據(jù)庫中 一個時間以及 clob 字段 的數(shù)據(jù)打印到文本中的時候，數(shù)據(jù)發(fā)生了串行，這個clob字段 是包含多行文本內(nèi)容的，現(xiàn)在打印出來的數(shù)據(jù)如下：

2015/03/07 07:40:03 ORA-12012: error on auto execute of job 308
ORA-01403: no data found
ORA-06512: at "TEST.PCK_TEST", line 910
ORA-06512: at "TEST.PCK_TEST", line 335
ORA-06512: at line 1

而我想要的效果是 這樣的

2015/03/07 07:40:03 ORA-12012: error on auto execute of job 308
                                ORA-01403: no data found
                                ORA-06512: at "TEST.PCK_TEST", line 910
                                ORA-06512: at "TEST.PCK_TEST", line 335
                                ORA-06512: at line 1



腳本如下：

1. use strict;
   
2. use warnings;
   
3. use DBI;
   
4. use DBD::Oracle;
   
5. 
   
6. my $profile="~/.bash_profile";
   
7. open(NEWENV, ". $profile && env|") or die "$!";
   
8.   while (<NEWENV>){
   
9.     if (/(\w+)=(.*)/){
   
10.       $ENV{$1}="$2";
    
11.     }
    
12.   }
    
13. close NEWENV;
    
14. 
    
15. my $dbh = DBI->connect('dbi:Oracle:','/','',{ora_session_mode =>2}) or die( $DBI::errstr . "\n" );
    
16. 
    
17. 
    
18. $dbh->{AutoCommit} = 1;
    
19. $dbh->{LongReadLen} = 40480;  
    
20. $dbh ->do("alter session set nls_date_format='YYYY/MM/DD HH24:MI:SS'");
    
21. 
    
22. my $sth=$dbh->prepare(q{select log_time,send_content from monitor_info_log});
    
23. 
    
24. $sth->execute;
    
25. 
    
26. my $svn_home="/home/ora10g/svn_data";
    
27. 
    
28. open (SVNDATA,">","svndata.dat");
    
29. 
    
30. while (my ($data1,$data2) = $sth->fetchrow_array) {
    
31.         print SVNDATA "$data1 $data2"."\n";
    
32. }
    
33. close SVNDATA;
    
34. 
    
35. $dbh->disconnect;

復(fù)制代碼

請問下 需要怎么修改 才可以達(dá)到我需要的效果呢。

ba_du_co

大概
my $data1 = '2015/03/07 07:40:03 ORA-12012: error on auto execute of job 308';
my $data2 = '
ORA-01403: no data found
ORA-06512: at "TEST.PCK_TEST", line 910
ORA-06512: at "TEST.PCK_TEST", line 335
ORA-06512: at line 1';

$data2 =~ s/\n/\n\t/g;

print $data1, "\t", $data2, "\n";

shaunsyb

回復(fù) 2# ba_du_co


    嗯嗯。。這個可以的。。謝謝！

sunzhiguolu

1. perl -ne 'if(/\A\d/){$i=index($_,"ORA");print;next}print $"x$i,$_' f

復(fù)制代碼