#!/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;
}
}
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";