Perl Perl 处理目录名:寻找最新创建的目录

laofo · 发布于 2010年4月15日 · 178 次阅读
4

背景如下:我们一般会以时间建立目录存储构建。天长日久某个路径下就会有很多的以时间为文件名的目录。如下: [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 实现找到某路径下编号最大的那个目录的名字,当然也就是找到最新创建的目录。 很简单吧?贴出代码者送积分啊。

其实这就是一个锻炼小脚本的机会,大家都来试试。

共收到 1 条回复
4
laofo · #1 · 2010年4月15日

很简单,我写出来了,欢迎大家公布自己的脚本阿

需要 登录 后方可回复, 如果你还没有账号请点击这里 注册