求助 perl 中使用awk

chx203

#more filter_table
aaa   1111
bbb   2222
ccc  3333

脚本功能是输出筛选行中靠后的数字
#more t1.pl
#!/usr/bin/perl
$filter=aaa;
$table="/tmp/filter_table";
$number = `cat $table|grep $filter|awk '{print $2}'`;
print $number;


执行结果:
#perl t1.pl
aaa   1111
与预想的不一样，脚本直接将筛选行输出。

似乎AWK没有用到


问题解决
原来perl会对$2等进行变量替换 所以在 $2 前面要加一个转译字符

sosflyer

回复 1# chx203


    既然都用perl了，就用perl实现吧

chx203

回复 2# sosflyer


    perl 第一次用  还不熟悉

Perlvim

在命令行中用就好了，为什么在 Perl 中用一些命令行脚本

cat file | grep /filter/ |awk '{print $2}'

sosflyer

回复 3# chx203

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. 
   
4. my $filter='aaa';
   
5. open(FILE,"/tmp/filter_table") or die $!;
   
6. while(<FILE>)
   
7. {
   
8.         chomp;
   
9.         if($_=~/^$filter/)
   
10.         {
    
11.                 my ($head,$number)=split(/\s+/,$_);
    
12. print "$number\n";
    
13. 
    
14.         }
    
15.         }

复制代码

jason680

回复 1# chx203


$ cat t1.pl
#!/usr/bin/perl
use strict;
use warnings;

my $filter="aaa";
my $table="/tmp/filter_table";
open(FHin, "<", $table) or die "can't open $table\n";
while(<FHin>){
  chomp;
  my @aData = split;
  if(m/$filter/){
     print "$aData[1]\n";
  }
}

chx203

perl 中不支持 awk 吗？

yinyuemi

回复 7# chx203


    你写的是shell脚本吧？？

Ray001

perl中用awk，暴汗啊！

perlnewbie

1. 
   
2. 
   
3. use warnings;
   
4. use strict;
   
5. 
   
6. print map{"$_\n"}map{(split/\s+/)[1]}grep{/aaa/}<DATA>;
   
7. __DATA__
   
8. aaa   1111
   
9. bbb   2222
   
10. ccc  3333
    
11. aaa 2222
    

复制代码