perl用普通括号替换花括号

Question

我需要编写一个查看文件的脚本,并用普通括号替换任何花括号.到目前为止我有:

use strict;
use warnings;
open(INFILE,"<rscore") || die "Couldn't open rscore for reading!\n";
open(OUTFILE,">rscore.new") || die "Couldn't open rscore.new for writing!\n";
while(<INFILE>){
  $_ =~ s/{/(/gi; #g for every occurrence, i for case-insensitive
  print OUTFILE $_;
}
close INFILE;
close OUTFILE;
rename("rscore.new","rscore") || die "Couldn't rename the new file!\n"; 

并收到以下错误:

syntax error near line 10 near insensitive print.

这可能是愚蠢的事情.此外,如果有一个更有效的方式这样做(我确信有),我会接受建议.

Answer 1

这是一个perl单行.

$ perl -lpe 'tr |{}|()|' <infile >outfile