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

最新推荐文章于 2025-01-15 09:27:57 发布

原创最新推荐文章于 2025-01-15 09:27:57 发布 · 1.7k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#perl #mkdir #time

Perl 专栏收录该内容

4 篇文章

订阅专栏

本文介绍了一个使用Perl脚本按当前时间自动创建文件夹的方法。该脚本利用localtime函数获取系统时间，并将其格式化为特定字符串，随后通过system调用创建带有时间戳的文件夹。

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

执行以下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;