如何在Perl中更新文本文件的某些部分

Question

我已经编写了代码，但是无法正常工作。 我希望将此“ /”更改为“ \\”。

use strict;
use warnings;

open(DATA,"+<unix_url.txt") or die("could not open file!");

while(<DATA>){

s/\//\\/g;
s/\\/c:/;
print DATA $_;

}

close(DATA);

我的原始文件是

/etc/passwd 
/home/bob/bookmarks.xml 
/home/bob/vimrc

预期输出为

C:\etc\passwd
C:\home\bob\bookmarks.xml
C:\home\bob\vimrc 

原始输出是

/etc/passwd
/home/bob/bookmarks.xml
/home/bob/vimrc/etc/passwd
\etc\passwd
kmarks.xml
kmarks.xml
mrcmrc

Answer 1

如果练习的重点不是使用正则表达式，而是更多地完成事情，那么我将考虑使用File :: Spec系列中的模块：

use warnings;
use strict;
use File::Spec::Win32;
use File::Spec::Unix;
while (my $unixpath = <>) {
  my @pieces = File::Spec::Unix->splitpath($unixpath);
  my $winpath = File::Spec::Win32->catfile('c:', @pieces);
  print "$winpath\n";
}

Answer 2

尝试在正在读取直到同一文件末尾的while循环中逐行读取和写入同一文件，这看起来非常简单且不可预测。 我完全不确定每次尝试编写时文件指针将在哪里结束。 将输出发送到新文件（然后再将其移动到以后替换旧文件）会更安全。

open(DATA,"<unix_url.txt") or die("could not open file for reading!");
open(NEWDATA, ">win_url.txt") or die ("could not open file for writing!");

while(<DATA>){
    s/\//\\/g;
    s/\\/c:\\/;
    #       ^ (note - from your expected output you also wanted to preserve this backslash)
    print NEWDATA $_;
}

close(DATA);
close(NEWDATA);
rename("win_url.txt", "unix_url.txt");

另请参见以下答案： Perl读/写文件句柄-无法覆盖

Answer 3

您实际上并不需要编写程序来实现此目的。 您可以使用Perl Pie：

perl -pi -e 's|/|\\|g; s|\\|c:\\|;' unix_url.txt

但是，如果您在Windows上运行并且使用Cygwin，我建议您使用cygpath工具将POSIX路径转换为Windows路径。

另外，您还需要引用路径，因为允许Windows路径中包含空格。 或者，您可以转义空格char：

perl -pi -e 's|/|\\/g; s|\\|c:\\|; s| |\\ |g;' unix_url.txt

现在有关您的第一个问题，如果您仍然想使用自己的脚本，则可以使用此脚本（如果您要备份）：

use strict;
use autodie;
use File::Copy;

my $file = "unix_url.txt";
open my $fh,  "<",  $file;
open my $tmp, ">", "$file.bak";
while (<$fh>) {
    s/\//\\/g;
    s/\\/c:/;
} continue { print $tmp $_ }
close $tmp;
close $fh;
move "$file.bak", $file;