[Perl]根据当前时间来创建文件夹

最新推荐文章于 2023-06-25 07:42:58 发布

champwang

最新推荐文章于 2023-06-25 07:42:58 发布

阅读量1.7k

点赞数

分类专栏： Perl 文章标签： perl mkdir time

本文链接：https://blog.csdn.net/champwang/article/details/46768415

版权

Perl 专栏收录该内容

4 篇文章 0 订阅

订阅专栏

根据当前时间来创建文件夹

执行以下code 后，会在脚本所在目录下创建一个文件夹，格式如：user_xxxxxxxx_xxxxxx_hello

#!/usr/bin/perl
use strict;

sub mkdir_by_date{
    #print local time
    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
    my $mytime = sprintf("%04d%02d%02d_%02d%02d%02d", $year+1900,$mon+1,$mday,$hour,$min,$sec);
    printf("DateTime: %s", $mytime);
    system("mkdir user_${mytime}_hello");
}

mkdir_by_date;