37,719
社区成员
发帖
与我相关
我的任务
分享
$date = `date -d yesterday +%Y%m%d`;
chomp $date;
print $date;
这样提示:$date = `date -d yesterday +%Y%m%d`;
chomp $date;
$test = "log.$date";
@files = <${test}*>;
foreach (@files) {
print "$_\n";
}
chomp $date;
#!/usr/bin/perl
$date = `date -d yesterday +%Y%m%d`;
chomp $date;
$test = "log.$date";
@files = <${test}*>;
foreach (@files) {
print "$_\n";
}
$date =`date -d yesterday +%Y%m%d`;
if ($data) {
$test = "log.$date";
@files =<$test*>;
foreach (@files) {
print "$_\n";
}
}
$date =`date -d yesterday +%Y%m%d`;
print $date;