修复被 Perl “损坏”的文件

Question

我有一堆使用此代码创建的文件：

use LWP::Simple;

my $xl = get("http://www.somewhere.com/file.xls");
open(my $outf, '>', "C:/file.xls") || die $!;
print $outf $xl;

直到最近我才意识到我应该在文件句柄中使用'>:raw' 而不仅仅是'>'。所以现在我有一堆文件已经过某种方式的修改，导致 Excel 无法打开它们。

我的问题是我是否可以使用 Perl 对这些文件进行一些处理以返回原始 Excel 文件。换句话说，是否有可能弄清楚我可以使用新的 Perl 脚本撤消对文件进行的哪些编辑？

Answer 1

它将 LF 转换为 CRLF。您可以简单地将任何 CRLF 实例改回 LF。

my $qfn_in  = $qfn;
my $qfn_out = $qfn . ".new";

open(my $fh_in,  '<:raw', $qfn_in ) or die $!;
open(my $fh_out, '>:raw', $qfn_out) or die $!;

while (<$fh_in>) {
   s/\r\n\z/\n/;
   print($fh_out $_);
}

或者

my $qfn_in  = $qfn;
my $qfn_out = $qfn . ".new";

open(my $fh_in,  '<:raw:crlf', $qfn_in ) or die $!;
open(my $fh_out, '>:raw',      $qfn_out) or die $!;

print($fh_out $_) while <$fh_in>;

如果你有dos2unix，你也可以使用它。 （虽然 JRFerguson 说他的版本会损坏带有字符 1A 的文件。）