初期化されていない後方参照

Question

$strに含まれるものに応じて、 "afoo"または "foob"のいずれかを印刷することです。

私はno warnings;を使用できますが、他の「本当の」警告が表示されなくなるのではないかと心配しています。私はまた、1つのパターンを使用すると複雑になることがわかりますが、実際のパターンははるかに複雑です。

あなたは、実際の交換を気にしている場合に近い：基本的には上記のコードは、単に検索を取得＆置き換えるためにDBから読み込んだ後、テンプレートにそれらを行い、

#!perl 
my $search = q~(document\.domain.*?</script>)|(</head>)~; 
my $search_re = qr/$search/smo; 
my $replace = q("$1 
<script src=\"/library.js\"></script> 
$2"); 
while (<*.tmpl>) { 
    my $str = fead_file($_); 
    $str =~ s/$search_re/$replace/gee; 
}

しかし、さらに複雑。すべてのコミットでこのスクリプトを2回実行すると、あまりにも多くのオーバーヘッドが導入されてしまうはずです... ...

Answer 1

あなたは可能性：

my $replace = q("@{[$1||'']} 
<script src=\"/library.js\"></script> 
@{[$2||'']}"); 

Answer 2

ORを具体的に言うと、「a」と「b」の両方が見つかりません|）。また、変数名をテキストの隣に置くことで文字列を連結することもできません。 $1foo。

あなたはオーバーヘッドに関して何を言っているのかよく分かりませんが、正しい置き換えを行うには一致を確認する必要があります。

s/(a)/$1 . "foo"/ge || s/(b)/"foo" . $1/ge; 

これは機能する場合があります。最初のものが動作する場合、2番目のものは実行されません（短絡OR）。

Answer 3

まだ動作します（//代わりに5.10+の||の使用）と/グラム：

s/(a)|(b)/ ($1 // '') . 'foo' . ($2 // '') /ge 

Answer 4

、池上のソリューションと同様に、あなたの場合変数内の置換を保持したい場合は、s///eにコード参照を呼び出すことでキャプチャを渡すことができます。

#!perl 
my $search = q~(document\.domain.*?</script>)|(</head>)~; 
my $search_re = qr/$search/smo; 
my $replace = sub { 
    my $one = shift || ''; 
    my $two = shift || ''; 
    return qq($one\n<script src="/library.js"></script>\n$two); 
} 
while (<*.tmpl>) { 
    my $str = fead_file($_); 
    $str =~ s/$search_re/$replace->($1, $2)/ge; 
}