linux命令之a2p实例

a2p命令简介：

Awk to Perl translator,将命令行或者标准输入的awk脚本转化为perl脚本

例如：

[root@izm5e9scdftrqdnflz2nzgz ~]# cat testawk.sh 
#!/bin/bash
echo $1
awk '{print}' $1

执行a2p转化后如下：

[root@izm5e9scdftrqdnflz2nzgz ~]# a2p testawk.sh
#!/usr/bin/perl
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
 if $running_under_some_shell;
 # this emulates #! processing on NIH machines.
 # (remove #! line above if indigestible)

eval '$'.$1.'$2;' while $ARGV[0] =~ /^([A-Za-z_0-9]+=)(.*)/ && shift;
 # process any FOO=bar switches
while (<>) {
 chomp; # strip record separator
 @Fld = split(' ', $_, -1);
 print $_ if $echo . $Fld[(1)-1];
 if ($awk) {
 print $_;
 }
 print $_ if $Fld[(1)-1];
}

下来将控制台打印的perl脚本保存起来就可以执行了