perl读取当前时间和读取某个文件夹下的所有文件

发布时间：2020-12-16 00:14:44 所属栏目：大数据来源：网络整理

导读：#!/usr/bin/perl use strict; sub getTime { ?my $time = shift||time(); ?my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time); ?$mon++; ?$sec = ($sec10)?"0$sec":$sec; ?$min = ($min10)?"0$min":$min; ?$hour = ($hour10)?"0$

#!/usr/bin/perl
use strict;
sub getTime
{
?my $time = shift||time();
?my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time);
?$mon++;
?$sec = ($sec<10)?"0$sec":$sec;
?$min = ($min<10)?"0$min":$min;
?$hour = ($hour<10)?"0$hour":$hour;
?$mday = ($mday<10)?"0$mday":$mday;
?$mon = ($mon<9)?"0$mon":$mon;#月数[1,12]
?$year+=1900;
?#$wday从星期六算起，代表是在这周中的第几天[0-6]
?#$yday从一月一日算起，代表是在这年中的第几天[0,364]
?# $isdst只是一个flag
?my $weekday = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat')[$wday];
?return {'second'=>$sec,
? ? ? ? 'minute' => $min,
? ? ? ? 'hour' ? => $hour,
? ? ? ? 'day' ? ?=> $mday,
? ? ? ? 'month' ?=> $mon,
? ? ? ? 'year' ? => $year,
? ? ? ? 'weekNo' => $wday,
? ? ? ? 'wday' ? => $weekday,
? ? ? ? 'yday' ? => $yday,
? ? ? ? 'date' ? => "$year-$mon-$mday $hour.$min.$sec"
? ? ? ? };
}
my $dir = "./test";
my $file;
my @dir;
my $date = &getTime();
my $ymd=$date->{date};
opendir(Dir,$dir)or die "can't open the directory!";
@dir = readdir Dir;
close(Dir);
print $ymd;
open (WFILE,">$ymd.txt");
foreach $file(@dir)
{
?if($file=~/[a-z]*.txt/)
?{
? ? ?open (FILE,"$dir/$file")or die "Can't cd dir:$!n";
? ? ?while(<FILE>)
? ? ?{
? ? ? print WFILE $_;
? ? ?}
? ? ?close FILE;
?}
}

close WFILE;

下面的程序也是读取当前时间的

$ymd=qx(date /t); chomp($ymd); if($ymd=~/^(S+)s+S+/){$ymd=$1} $hms=qx(time /t); chomp($hms); if($hms=~/^(S+)s+S+/){$hms=$1} print "$ymd $hms";

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!