system执行sed报错

moperyblue

有一文件file,内容如下：
10.0
5
1 SYBCHAR 0 255 "|" 19
2 SYBCHAR 0 255 "|" 16
3 SYBCHAR 0 255 "|" 6
4 SYBCHAR 0 255 "|" 7
5 SYBCHAR 0 255 "\n" 1
10.0
3
1 SYBCHAR 0 255 "|" 19
2 SYBCHAR 0 255 "|" 16
3 SYBCHAR 0 255 "\n" 6

现用perl 的system函数调用sed命令报错，请问是什么原因？
my $c1=qq{sed ':a;N;/\\n/!ba;s/\n/,/g' '/home/bcp_test/file'};
system ($c1);

==>

perl perl_bcp.pl
sed：-e 表达式 #1，字符 15：未终止的“s”命令

但在终端工具执行是可以的
sed ':a;N;/\\n/!ba;s/\n/,/g' '/home/bcp_test/file'
10.0,5,1 SYBCHAR 0 255 "|" 19,2 SYBCHAR 0 255 "|" 16,3 SYBCHAR 0 255 "|" 6,4 SYBCHAR 0 255 "|" 7,5 SYBCHAR 0 255 "\n" 1
10.0,3,1 SYBCHAR 0 255 "|" 19,2 SYBCHAR 0 255 "|" 16,3 SYBCHAR 0 255 "\n" 6

sjdy521

既然有perl了。。。何必用sed
况且，你也完全可以用s2p把sed代码转成perl代码啊，不然看着真纠结，你的问题应该是qq{}导致原始的命令字符串被转义了

1. s2p  ':a;N;/\\n/!ba;s/\n/,/g'
   
2. 
   
3. 
   
4. 
   
5. #!/usr/bin/perl -w
   
6. eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
   
7.   if 0;
   
8. $0 =~ s/^.*?(\w+)[\.\w+]*$/$1/;
   
9. 
   
10. use strict;
    
11. use Symbol;
    
12. use vars qw{ $isEOF $Hold %wFiles @Q $CondReg
    
13.              $doAutoPrint $doOpenWrite $doPrint };
    
14. $doAutoPrint = 1;
    
15. $doOpenWrite = 1;
    
16. # prototypes
    
17. sub openARGV();
    
18. sub getsARGV(;\$);
    
19. sub eofARGV();
    
20. sub printQ();
    
21. 
    
22. # Run: the sed loop reading input and applying the script
    
23. #
    
24. sub Run(){
    
25.     my( $h, $icnt, $s, $n );
    
26.     # hack (not unbreakable :-/) to avoid // matching an empty string
    
27.     my $z = "\000"; $z =~ /$z/;
    
28.     # Initialize.
    
29.     openARGV();
    
30.     $Hold    = '';
    
31.     $CondReg = 0;
    
32.     $doPrint = $doAutoPrint;
    
33. CYCLE:
    
34.     while( getsARGV() ){
    
35.         chomp();
    
36.         $CondReg = 0;   # cleared on t
    
37. BOS:;
    
38. # :a;N;/\\n/!ba;s/\n/,/g
    
39. L_1:;
    
40. EOS:    if( $doPrint ){
    
41.             print $_, "\n";
    
42.         } else {
    
43.             $doPrint = $doAutoPrint;
    
44.         }
    
45.         printQ() if @Q;
    
46.     }
    
47. 
    
48.     exit( 0 );
    
49. }
    
50. Run();
    
51. 
    
52. # openARGV: open 1st input file
    
53. #
    
54. sub openARGV(){
    
55.     unshift( @ARGV, '-' ) unless @ARGV;
    
56.     my $file = shift( @ARGV );
    
57.     open( ARG, "<$file" )
    
58.     || die( "$0: can't open $file for reading ($!)\n" );
    
59.     $isEOF = 0;
    
60. }
    
61. 
    
62. # getsARGV: Read another input line into argument (default: $_).
    
63. #           Move on to next input file, and reset EOF flag $isEOF.
    
64. sub getsARGV(;\$){
    
65.     my $argref = @_ ? shift() : \$_;
    
66.     while( $isEOF || ! defined( $argref = <ARG> ) ){
    
67.         close( ARG );
    
68.         return 0 unless @ARGV;
    
69.         my $file = shift( @ARGV );
    
70.         open( ARG, "<$file" )
    
71.         || die( "$0: can't open $file for reading ($!)\n" );
    
72.         $isEOF = 0;
    
73.     }
    
74.     1;
    
75. }
    
76. 
    
77. # eofARGV: end-of-file test
    
78. #
    
79. sub eofARGV(){
    
80.     return @ARGV == 0 && ( $isEOF = eof( ARG ) );
    
81. }
    
82. 
    
83. # makeHandle: Generates another file handle for some file (given by its path)
    
84. #             to be written due to a w command or an s command's w flag.
    
85. sub makeHandle($){
    
86.     my( $path ) = @_;
    
87.     my $handle;
    
88.     if( ! exists( $wFiles{$path} ) || $wFiles{$path} eq '' ){
    
89.         $handle = $wFiles{$path} = gensym();
    
90.         if( $doOpenWrite ){
    
91.             if( ! open( $handle, ">$path" ) ){
    
92.                 die( "$0: can't open $path for writing: ($!)\n" );
    
93.             }
    
94.         }
    
95.     } else {
    
96.         $handle = $wFiles{$path};
    
97.     }
    
98.     return $handle;
    
99. }
    
100. 
     
101. # printQ: Print queued output which is either a string or a reference
     
102. #         to a pathname.
     
103. sub printQ(){
     
104.     for my $q ( @Q ){
     
105.         if( ref( $q ) ){
     
106.             # flush open w files so that reading this file gets it all
     
107.             if( exists( $wFiles{$q} ) && $wFiles{$q} ne '' ){
     
108.                 open( $wFiles{$q}, ">>$q" );
     
109.             }
     
110.             # copy file to stdout: slow, but safe
     
111.             if( open( RF, "<$q" ) ){
     
112.                 while( defined( my $line = <RF> ) ){
     
113.                     print $line;
     
114.                 }
     
115.                 close( RF );
     
116.             }
     
117.         } else {
     
118.             print $q;
     
119.         }
     
120.     }
     
121.     undef( @Q );
     
122. }

复制代码

moperyblue

回复 2# sjdy521


    哥 我对perl不熟 有没办法用到sed

moperyblue

回复 2# sjdy521


    转换后怎么调用，perl如何进行行合并呢

sjdy521

回复 3# moperyblue

1. my $c1=q{sed ':a;N;/\\\n/!ba;s/\n/,/g' '/home/file'};

复制代码

moperyblue

回复 5# sjdy521


good! 3Q!

解决