如何使用Perl重命名文件

我一直在尝试使用perl重命名过去一小时的文件。我一直在研究，并尝试了一切，但没有任何工作。我如何使用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 Name 
my $newFileName = "testLog_$date.log"; 

sub main { 

    if ($logFileSizeMB > $fileSizeLimit) { 

     close $log_fh or die "Could not close file $log_file: $!"; 

     #print "$newFileName\n"; 
     rename("testLog.log", "testLog_$date.log") || die ("Error Renaming 
File"); 



     #open my $new_log_fh, '>', $new_log_file or die "Could not open file 
$new_log_file: $! +"; 
     #close $new_log_fh or die "Could not close file $new_log_file: $!"; 

     print "New log file created successfully!"; 

    } else { 

     print "File size is under $fileSizeLimit"; 

    } 


    exit(0); 
} 

main();

当我运行这个文件保持不变......就如何解决这一问题的任何想法？

来源

2017-09-05 Alan Wilson

你会得到什么错误？ – ikegami

只是“错误重命名文件在DeleteLogFile.pl第58行” –

好吧，让我换句话说：“重命名”返回什么错误？（更改'死（“错误重命名为文件”）''死（“错误重命名\”testLog.log \“为\”testLog_ $ date.log \“：$！\ n”）'） – ikegami

/由于是目录分隔符，因此不是文件名的有效字符。您有效地要求将当前目录中的testLog.log重命名为目录testLog_09/05中的2017.log。该目录不存在。

变化

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

到

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

更重要的是，使用自然排序的格式。

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

来源

2017-09-05 19:41:56 ikegami

这工作......错误是怎么回事“没有这样的文件或目录”？如果这是新名称格式的问题 –

您要求将文件重命名为“testLog_09/05”目录中的“2017.log”。该目录不存在。 – ikegami

噢好吧，这很有道理......谢谢！ –

如何使用Perl重命名文件

回答

相关问题