system调用出错

alexyuan881

awk '{print $1","$2","$3}' e.txt > e.csv  在unix运行成功
我将它放到perl中  用system函数调用
system "awk '{print $1","$2","$3}' e.txt > e.csv";
虽然没报错，但得不到我要的结果
   请大神们帮我瞧瞧  到底哪里错了

zhlong8

双引号中的 $1 $2 $3

jason680

回复 1# alexyuan881

system "awk '{print $1","$2","$3}' e.txt > e.csv";
change it to
system "awk '{print \$1\",\"\$2\",\"\$3}' e.txt > e.csv";

or it just a shell script, use shell script easily

or use Perl script to do it:
use strict;
use warnings;
open (FHcsv, ">", "e.csv") or die "can't open e.csv";
open (FHtxt, "<", "e.txt") or die "can't open e.txt\n";
while(<FHtxt>){
  my @aData = split;
  print FHcsv join(",", @aData) . "\n";
}
close FHcsv;
close FHtxt;
   

alexyuan881

回复 3# jason680
改后报错如下
  Bare word found where operator expected at 02.txt line 1, near "'{print \$1\",\"\$2\",\"\$3}' e"
        (Missing operator before e?)
syntax error at 02.txt line 1, near "'{print \$1\",\"\$2\",\"\$3}' e"
Execution of 02.txt aborted due to compilation errors.


   

wsxedcer

1. [root@192.168.11.128_wynginx2 ~]#echo 1A 2B 3C | perl xxx.pl
   
2. 1A,2B,3C
   
3. [root@192.168.11.128_wynginx2 ~]#cat xxx.pl
   
4. #!/bin/perl
   
5. system(q(awk '{print $1","$2","$3}'));

复制代码

jason680

回复 4# alexyuan881

It's no error on my system, but q// easily to use

$ cat sys.pl
system "awk '{print \$1\",\"\$2\",\"\$3}' e.txt > e.csv";

$ perl sys.pl

$ cat e.csv
1,2,3
a,b,c

$ uname -a
Linux VirtualBox 3.2.0-31-generic-pae #50-Ubuntu SMP Fri Sep 7 16:39:45 UTC 2012 i686 i686 i386 GNU/Linux

   

alexyuan881

jason680 发表于 2012-10-15 14:23
回复 4# alexyuan881

It's no error on my system, but q// easily to use

可以了  不好意思  是我打错了
可不可以给我讲讲为什么要这么做   因为我还有几个问题
system"awk "BEGIN{print"waferlot,csvbin1,mapfilebin1,normal"}{print \$0}' e.csv >end.csv"
我这个也不行  

alexyuan881

回复 6# jason680
是我打错了 可以了  
是不是perl引用的时候特殊字符都需要转义吗？？

   

laputa73

""是不能直接嵌套的,只会就近匹配
你自己读一下，也会被""""""弄混吧
所以要转义