学习Perl，掌握shell脚本知识需要帮助

Question

我有shell脚本知识。我已经写了一个小shell脚本，只需要一个参数。在这个论点的帮助下。

文件名格式为axeA10_<date_time_stamp>_<sequence_number>.DAT我的脚本只是获取当前目录中的所有文件并更改序列号。这样我就有了序列号的文件。编写这个脚本的需要是，我没有带有序列号的文件，因为有些序列丢失了。

我知道perl可以更快地完成这类任务。所以我也想学同样的东西。有人能把这个小shell脚本转换成perl吗？这真的会增强我学习perl的信心。提前谢谢。下面是运行良好的脚本。

#!/bin/ksh
counter=1
for i in ${1}*.DAT
do
if [ $counter -lt 10 ]
then
new_name=`echo "$i"|awk -vcount=$counter 'BEGIN{FS="_";OFS="_"}{$3=count}{print $1"_"$2"_0"$3".DAT"}'`
else
new_name=`echo "$i"|awk -vcount=$counter 'BEGIN{FS="_";OFS="_"}{$3=count}{print $0".DAT"}'`
fi
mv $i $new_name
counter=$(($counter+1))
done
exit 

Answer 1

"有人能把这个小shell脚本转换成perl吗？这真的会增强我学习perl的信心。"

有人这样做是为了增强你的信心吗？访问以下URL

http://learn.perl.org/