Perl正则表达式替换

Question

我正在尝试获取一个文件,并将其复制到输出文件,然后查找所有文件并将<k>其转换为<p>.我想用正则表达式.

  while (<INPUTFILE>)
  {
         if($_ != "<p>")
         {
                print OUTPUTFILE "$_\n";  
          }

          else
          {
              print OUTPUTFILE "<k>";  
            }

  }

我正在尝试这样的事情,但我猜$ _变量一次只占用每一行.因此,最好使用写入整个文件然后尝试正则表达式搜索并替换？因为我尝试过:

  $_ =~ s/<k>/<p>/g;

Answer 1

一次一行不是问题.

while (<>)
   s/<k>/<p>/g;
   print;
}