背景如下：我们一般会以时间建立目录存储构建。天长日久某个路径下就会有很多的以时间为文件名的目录。如下： [code]fofo@scmroad /cygdrive/x/zALL/Projects $ ls -al total 14 drwxr-xr-x 1 fofo mkgroup-l-d 4096 Apr 15 15:30 . drwxr-xr-x 1 fofo mkgroup-l-d 8192 Apr 15 15:31 .. drwxr-xr-x 1 fofo mkgroup-l-d 0 Apr 15 15:19 20100415152300 drwxr-xr-x 1 fofo mkgroup-l-d 0 Apr 15 15:19 20100415152310 drwxr-xr-x 1 fofo mkgroup-l-d 0 Apr 15 15:30 20100415153325 drwxr-xr-x 1 fofo mkgroup-l-d 0 Apr 15 15:30 20100415153330 drwxr-xr-x 1 fofo mkgroup-l-d 0 Apr 15 15:30 20100415153332 drwxr-xr-x 1 fofo mkgroup-l-d 0 Apr 15 15:30 20100415153338 drwxr-xr-x 1 fofo mkgroup-l-d 0 Apr 15 15:30 20100415153342 drwxr-xr-x 1 fofo mkgroup-l-d 0 Apr 15 15:30 20100415153344 [/code]
目录名是有规律的：YYYYMMDDHHMMSS 由（年＋月＋日＋小时＋分＋秒）组成一个字符串构成。
现在要求用Perl 实现找到某路径下编号最大的那个目录的名字，当然也就是找到最新创建的目录。 很简单吧？贴出代码者送积分啊。
其实这就是一个锻炼小脚本的机会，大家都来试试。