用perl1line写的几个简单unix命令

最近看了几天perl的书,深深被吸引!,perl真的是很神奇 ^_^
特对照CU中awk与unix,命令等价代码,写了几个,当是一个练习吧!

由于CU的blog贴出的代码没法看,特此把文件传上来 ~_~
点击打开 a2p.txt
数组,正则,散列,各种预变量,...,看的我头都大啦 ^_^

原文转自：http://www.ltesting.net