Perl打印多行数据内容不顶格显示

shaunsyb

用Perl 将 Oracle 数据库中 一个时间以及 clob 字段 的数据打印到文本中的时候，数据发生了串行，这个clob字段 是包含多行文本内容的，现在打印出来的数据如下：

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;

复制代码

请问下 需要怎么修改 才可以达到我需要的效果呢。

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

回复 2# ba_du_co


    嗯嗯。。这个可以的。。谢谢！

sunzhiguolu

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

复制代码