perl新手求救

xiafeng

我在perl里面：
$cmd="awk '{print $2}' b.out";
system($cmd);

和我在bash里面
awk '{print $2}' b.out

的结果并不一样
在perl里面是错误的，它输出的是一整行

请问为什么？

谢谢解答

新手 ^_^

thevoice

我记得 perl执行外部命令 是直接 `命令` 不知道对你有没有帮助

1. 
   
2. #! /usr/perl/bin
   
3. use warnings;
   
4. 
   
5. @lines = `perl -v`;
   
6.     foreach(@lines){
   
7.         print;
   
8.     }
   

复制代码

ulmer

原帖由 xiafeng 于 2007-4-18 16:38 发表
我在perl里面：
$cmd="awk '{print $2}' b.out";
system($cmd);

和我在bash里面
awk '{print $2}' b.out

的结果并不一样
在perl里面是错误的，它输出的是一整行

请问为什么？

谢谢解答 ...

Hi,

you should pay more attention to "$2", using "\" to escape it.
Or using single quote operater.

For example:
$cmd = "awk '{print \$2}' b.out";
or
$cmd = q(awk '{print $2}' b.out);

-- ulmer

xiafeng

这个我已经找到解决，大家看看：

@args = ("awk", "{print \$2}", "a.txt");
system(@args) == 0
     or die "system @args failed: $?"