Perl Perl 以当前时间创建文件夹

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

在指定的位置,以当前时间创建一个文件夹。

先写个标题,有时间来补code,大家也可以来试试这个简单的功能啊。

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

Perl 代码如下。写的很丑陋,但是基本功能实现了。 [code] #! /usr/bin/perl ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); $yyyymmddhhmmss= sprintf("%04d%02d%02d%02d%02d%02d",$year+1900,$mon+1,$mday,$hou r,$min,$sec); print "Now the time is $yyyymmddhhmmss \n"; $folderbase = "/cygdrive/x/zAll/Projects"; $newfolderpath= $folderbase."/".$yyyymmddhhmmss; print $newfolderpath; mkdir ("$newfolderpath", 0777) || print $!;[/code]

结果如下: [code]$ perl perlfolder.pl Now the time is 20100415152310 /cygdrive/x/zAll/Projects/20100415152310 fofo@scmroad /cygdrive/x/zALL/Projects $ ls 20100415152300 20100415152310 perlfolder.pl perltime.pl test

fofo@scmroad /cygdrive/x/zALL/Projects $ ls -al total 14 drwxr-xr-x 1 fofo mkgroup-l-d 4096 Apr 15 15:19 . drwxr-xr-x 1 fofo mkgroup-l-d 8192 Apr 15 14:17 .. 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 -rwxr-xr-x 1 fofo mkgroup-l-d 386 Apr 15 15:19 perlfolder.pl[/code]

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