主页 / server / 问题 / 62557
Accepted
Shawn Anderson
Asked: 2009-09-05 11:14:58 +0800 CST

Perl 在脚本中就地编辑

  • 772

我需要在perl脚本中编辑一个文件，所以经常使用一个衬里：

perl -p -e s/<value>/<value>/ig

不适用于这种情况。如何从 perl 脚本中获得相同的结果？

open(CRONTAB, "+<file" || die "...";

while (<CRONTAB>) { 
   if ($_ =~ /value/) {  
      s/^\#+//;  
      print "$_\n";  
   }  
}

我的印刷品正是我想要的。这只是我正在寻找的就地编辑。

perl regex

4 个回答

  1. Best Answer
    do {
  local $^I='.bak'; # see perlvar(1)
  local @ARGV=("file");
  while(<>){
    s/<value>/<value>/ig;
    print;
  }
};

    但要小心：$^I像 perl 一样-i不是防崩溃的。

    • 5

  2. 您的编辑看起来很简单。您是否考虑过简单地将sed与 -i 选项一起使用？

    • 0

  3. 试试这个，基于perldoc perlrun-i的翻译：

    use strict;
use warnings;
my $filename = "something";
my $extension = '.orig';
while (<>) {
    my $backup;
    if ($extension !~ /\*/) {
        $backup = $filename . $extension;
    }
    else {
        ($backup = $extension) =~ s/\*/$filename/g;
    }
    rename $filename, $backup;
    open my $outfile, '>', $filename;
    select $outfile;
    s/^\#+// if /value/; 
}
continue {
    print;  # this prints to original filename
}
select STDOUT;
    • 0

  4. 使用文件::就地

    此外，在您为文件完成所有更改后，它具有提交/回滚功能......

    • 0

相关问题