小编Ala*_*son的帖子

我一直在尝试使用perl重命名过去一小时的文件.我已经永远研究过并尝试了一切但没有任何效果.如何使用perl重命名文件？这是我的脚本:

use strict;
use warnings;
use Time::Piece;
use File::Copy qw(move);


# Open the log file
    my $log_file = 'testLog.log';
    open my $log_fh, '<', $log_file or die "Could not open file $log_file: 
$! +";

# Create New File
    my $new_log_file = 'testLog.log';

# My file size (bytes)
    my $logFileSize = -s $log_file;

# My file size (Mb)
    my $logFileSizeMB = $logFileSize / 1000000;

# File size limit
    my $fileSizeLimit = 100;

# Get Date
my $date = localtime->strftime('%m/%d/%Y');

# New File …