在 Perl 中替换变量时将文件复制到另一个文件？

Question

我有一个问题我是 Perl 新手，但我找不到问题的答案。

我必须创建一个文件，将另一个文件的内容复制到这个新创建的文件中。但是复制的文件有一些变量$var1 和$var2，我必须用新文件中这些变量的内容（插值）替换它们。

我真的不知道如何同时创建、打开文件、复制和插值......

有什么想法吗？

---

这是我的代码：

sub my_function ($)
{
 My $var = shift ;
 open (FH, ‘>’, « file1 ») ; #this file is created because it doesn’t exist. 

 Copy($file_to_copy, $FH) ;
  while (my $line = <$FH>)
  {
    if ($line =~ /(Substituethis)/   
    {
      $line =~ s/$1/$var/g;
      print $FH $line;
    }
  }
  close $FH;
}

Answer 1

好的，首先关闭 - 打开 use strict; 和 use warnings;。 您的代码中有几个语法错误。

特别是，FH - 您正在打开的 - 和您正在阅读的 $FH 不是一回事，即使它们是，......您不能同时从同一个文件读取/写入（至少，不是那样）。

另外 - My 与 my 不同，所以它也会中断。

您可能不会那样声明 sub ——您是在进行原型设计，但这并不意味着您认为它的含义，因为 perl 原型与其他语言不同。

做你想做的 - 例如。替换一些 'placeholders' 看起来有点像这样：

#!/usr/bin/env perl
use strict;
use warnings;   

#define replacement patterns in a hash. (see 'perldoc hash')

my %replace = (
  '$var1' => "a word here",
  '$var2' => "another different word here", 
);

#compile a regular expression that looks for the placeholders.
#note - we need "quotemeta" here because your search patterns include $
my $search = join "|", map { quotemeta } keys %replace;
   $search = qr/($search)/;

print "Using regex for matching:",$search,"\n";


#iterate STDIN (or file specified on command line) line by line
while ( <> ) { 
   #apply pattern matches to current line
   s/$search/$replace{$1}/g; 
   #print current line
   print;
}

我们在上面使用<>，因为它是文件处理更简单的选项之一 - 这意味着您的脚本可以像sed/awk 或grep 一样工作，因为您可以在命令行上指定文件名，或者只是将文件通过管道传输给它。

但是，如果您想打开-写入，您可以：

open ( my $input, '<', 'filename_here' ) or die $!;
open ( my $output, '>', 'output_filename' ) or die $!;

select $output; #set output source for print location
while ( <$input> ) {
   #apply pattern matches to current line
   s/$search/$replace{$1}/g; 
   #print current line
   print;
}   

这将逐行读取您的输入文件，并将（转换后的）输出写入新文件。

Answer 2

这个解决方案对我来说很好用：

use strict;
use warnings;

sub myfunction () 
{
  open ( my $input, '<', ‘file_name’ ) or die $!;
  open ( my $output, '>', ‘output_file_name’ ) or die $!; 

  my $var1 = "cup";
  my $var2 = "tea";

  my  %replace = (
   '$var1' => "round" ;
   '$var2' => "sweet",
  );

  my $search = join "|", map { quotemeta } keys %replace;
  $search = qr/($search)/;

  print "Using regex for matching:",$search,"\n";

  while ( <$input> )
  {
    s/$search/$replace{$1}/g; 
    print;
  }    
}