上記の行の情報に基づいて行を変換するPerl正規表現

Question

私は、perlスクリプトの一部としてテキストファイルの2行を一つずつコメントアウトしようとしています。最初の行は常にfile:///で始まるので、見つけた正規表現を書くのは簡単ですが、2行目は任意のテキストにすることができますので、最初の行に一致する正規表現を使用しようとしています（改行\n）その後、次の改行まで。しかし、私はそれを最初の行以上に一致させることはできません。

s/^(file:\/\/\/.*)\n(.*)/\% $1\n\% $2/g; 

大変助けてください！

Answer 1

は、おそらくこれは、何が必要です：

my $data = "Smth\nfile:///myfile\nstring\nsmthelse\n"; 
$data =~ s/(file:\/\/\/.*?)\n(.*?)\n/\% $1\n\% $2\n/s; 
print $data 

出力：

Smth 
% file:///myfile 
% string 
smthelse 

だから、あなたのような1つの文字列にファイルを読むことができます： my $str = join '', <$fh> と、それを処理するためにsキーで正規表現を行います単一の行として。 Read

---

EDIT：あなたは、すべての行で、あなたは私が上記したように述べた2行を変更したいのほか、いくつかのものを行う場合
は、あなたがそうすることができます。

... 
$data =~ s/(file:\/\/\/.*?)\n(.*?)\n/\% $1\n\% $2\n/s; 
$file_str = $1; 
$afterfile_str = $2; 
my @data_arr = split /\n/, $data; 
for(@data_arr) { 
    # some code, perhaps using $file_str and $afterfile_str 
    print $fh_out $_ . "\n"; 
}