Perl 正则表达式更改日期格式

Question

我是 Perl 的新手，我需要做一个小的查找和替换来更改一组大文件中的日期格式。 这些文件的日期格式为：dd.mm.yyyy 我需要将它们更改为：mm-dd-yyyy

如何用 perl 做到这一点？

我有一个基本代码来读取目录中的文件并写入输出文件，我需要在 while 循环之间设置替换逻辑（如果我没记错的话！）。

#!c:/perl64/bin/perl.exe

#loop around a directory
@files = <C:/perl64/data/*>;

# loop around files
foreach $file (@files) {

#Read File
open READ, $file or die "Cannot open $read for read :$!";

#Output File
$fname=substr($file, rindex($file,"/")+1,length($file)-rindex($file,"/")-1);
$write="C:/perl64/output/$fname";

open WRITE, ">$write" or die "Cannot open $write for write :$!";

#Loop Around file
while (<READ>) {

           # TO DO: Change date format from dd.mm.yyyy to mm-dd-yyyy

           #Write to ourput file
           print WRITE "$_";

}

} 

问候，

阿南德

Answer 1

您可以使用替换运算符s///：

while (<READ>) {
    s/(\d{2})\.(\d{2})\.(\d{4})/$2-$1-$3/;
    print WRITE "$_";
}

Answer 2

这是一个简单的脚本，它将接受输入和输出目录的可选参数。

使用 opendir 代替 glob 可以省去清理文件名的麻烦。

use strict;
use warnings;
use autodie;

my $indir = shift || "C:/perl64/data";
my $outdir = shift || "C:/perl64/output";

opendir(my $in, $indir);

while (readdir $in) {
    next unless -f;
    open my $infile, '<', $_;
    open my $outfile, '>', $outdir . "/" . $_;
    while (<$infile>) {
        s/([0-9]{2})\.([0-9]{2})\.([0-9]{4})/$2-$1-$3/g; 
        print $outfile $_;
    }
}