awk, perl调用shell命令

1. awk可以用getline或system来调用shell的命令
1.1 getline
通过在awk内使用管道,可以把shell命令的输出传送给awk

$ awk 'BEGIN{ "date" | getline date; print date; }' Sun Mar 8 22:21:52 2009

顺便说一下getline的其他用法.
getline除了可以通过管道从shell命令里读取数据外,它还可以从标准输入(用"-"指定从标准输入读入,或者如果命令行没有任何输入文件且不用重定向符"<"指定文件,默认也是从标准输入读)和文件里读取数据;如果getline后面没有指定变量,则读取的数据会放到$0里面

$ awk 'BEGIN{ getline; print $0 }' hello, for note <==这一行是从键盘输入的 hello, for note <==这一行是awk的print $0 输出的 $ cat sed.test hello $ awk 'BEGIN{ getline < "sed.test"; print $0 }' hello $ awk 'BEGIN{ getline < "-"; print $0 }' hello hello

如果读取成功,getline返回1;如果读到文件结束符,getline返回0;如果发生错误,例如打不开文件,getline返回-1. 所以,getline可以用于while循环中

$ cat grep.test hello myboy third fourth $ awk 'BEGIN{ while( getline line < "grep.test" ){ print line } }' hello myboy third fourth

1.2 system
system的调用形式是system(cmd).system的返回值是cmd的退出状态.如果要获得cmd的输出,就要和getline结合使用

$ awk 'BEGIN{ while( system("ls -l") | getline line ){ print line } }' total 14 -rw-r--r-- 1 Administrator None 2 Mar 3 20:20 4 -rw-r--r-- 1 Administrator None 0 Feb 28 19:49 4]] -rw-r--r-- 1 Administrator None 87 Mar 5 20:22 awk.test -rwxr-xr-x 1 Administrator None 409 Mar 3 22:24 bc.test -rwxrwxrwx 1 Administrator None 411 Mar 3 22:23 bc.test.bak -rw-r--r-- 1 Administrator None 48 Feb 21 21:06 func.test -rw-r--r-- 1 Administrator None 25 Feb 27 21:37 grep.test -rw-r--r-- 1 Administrator None 6 Feb 27 20:59 kk -rw-r--r-- 1 Administrator None 5 Mar 8 15:11 log.test -rw-r--r-- 1 Administrator None 0 Feb 27 21:22 orld -rw-r--r-- 1 Administrator None 75 Mar 8 12:14 perl.test -rw-r--r-- 1 Administrator None 6 Mar 6 20:22 sed.test -rw-r--r-- 1 Administrator None 12 Feb 27 21:32 sed.write sh: 0: command not found

2. perl
2.1 system
perl也可以用system调用shell的命令,它和awk的system一样,返回值也是它调用的命令的退出状态.如果向system传递一个字符串作参数,则perl会调用shell来执行这个命令,在这个字符串内也就不可以有perl的变量了;如果传递多个字符串作参数,则perl会自己执行这个命令,且可以传递perl自己的变量给它,因为perl会对这些变量扩展成它们的值

$ perl system("ls -l grep.test"); $long = "-l"; $file = "grep.test"; system "ls", $long, $file; system("ls $long $file"); -rw-r--r-- 1 Administrator None 25 Feb 27 21:37 grep.test -rw-r--r-- 1 Administrator None 25 Feb 27 21:37 grep.test -rw-r--r-- 1 Administrator None 25 Feb 27 21:37 grep.test

注意上面只输出了三次grep.test的信息,且最后一行是空行,可见最后一个system调用的ls有错误,因为只传递一个字符串给system,perl是不会把这个字符串里出现的变量进行扩展的.
2.2 反引号
perl的system函数和awk的一样不能够返回命令的输出.要得到命令的输出,就得使用和shell本身一样的命令:` ` (一对反引号,键盘上Esc键下面的那个)

$ perl $now = `date`; print $now; Sun Mar 8 23:08:24 2009

2.3 exec
最后,perl还可以使用exec来调用shell的命令. exec和system差不多,不同之处在于,调用exec之后,perl马上就退出,而不会去继续执行剩下的代码

$ perl exec("date"); print "this line will never be seen."; Sun Mar 8 23:16:54 2009

转载请注明出处 http://fornote.blogspot.com