複数の文字列が検索され、繰り返し番号が付加されます。

Question

htmlファイルのコードを繰り返し処理し、特定の繰り返しテキストを見つけて単語と繰り返し番号を追加する方法を教えてください。

So: 
<!-- TemplateBeginEditable --> 
<!-- TemplateBeginEditable --> 
<!-- TemplateBeginEditable --> 
etc...      

Becomes : 
<!-- TemplateBeginEditable Event=1 --> 
<!-- TemplateBeginEditable Event=2 --> 
<!-- TemplateBeginEditable Event=3 --> 
etc... 

私はPERLが最も簡単で速いと思って、jQueryに行ってからPERLに戻った。

REGEXで多くの方法を見つけたり置き換えたりするのは簡単なようですが、反復変数を付けることは難しい問題です。

私が試したものの最新例：

#!/usr/bin/perl -w 

# Open input file 
open INPUTFILE, "<", $ARGV[0] or die $!; 
# Open output file in write mode 
open OUTPUTFILE, ">", $ARGV[1] or die $!; 

# Read the input file line by line 
while (<INPUTFILE>) { 
    my @matches = ($_ =~ m/TemplateBeginEditable/g); 
    ### what do I do ith matches array? ### 
    $_ =~ s/TemplateBeginEditable/TemplateBeginEditable Event=/g; 
    print OUTPUTFILE $_; 

} 


close INPUTFILE; 
close OUTPUTFILE; 

Answer 1

置換を実行するには、以前にパターンを一致させる必要はなく、置換を直接実行することができます。あなたのコードを持つ例：それは短くすることができますようにするには

my $i; 

while (<INPUTFILE>) { 
    s/TemplateBeginEditable(?{ ++$i })/TemplateBeginEditable Event=$i/g; 
    print OUTPUTFILE $_; 
} 

：

今

while (<INPUTFILE>) { 
    s/TemplateBeginEditable/TemplateBeginEditable Event=/g; 
    print OUTPUTFILE $_; 
} 

各交換時にインクリメントカウンタを追加するには、次の構文を使用してパターン自体にコードの一部を置くことができます試合の結果の開始を変更する\K機能を使用します。

while (<INPUTFILE>) { 
    s/TemplateBeginEditable\K(?{ ++$i })/ Event=$i/g; 
    print OUTPUTFILE $_; 
} 

または1-ライナー付き：

あなたが利用可能 awkを持っており、対象のテキストだけで最大で1回行につき発生した場合

perl -pe 's/TemplateBeginEditable\K(?{++$i})/ Event=$i/g' file > output 

Answer 2

をコメントで私のワンライナーで拡大：

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

my $file = shift or die "Usage: $0 <filename>\n"; 

open my $fh, '<', $file or die "Cannot open $file: $!\n"; 
open my $ofh, '>', "$file.modified" or die "Cannot open $file.modified: $!\n"; 

my $i = 1; 
while (my $line = <$fh>) { 
    if ($line =~ s/TemplateBeginEditable/$& Event=$i/) { 
     $i++; 
    } 
    print $ofh $line; 
} 

__END__ 

注意これは、あなたの複数のインスタンスを持つことはありませんと仮定していることサンプル入力に示されているように、1行に目的のテキストを入力します。

Answer 3

は、その後、Perlは行き過ぎだと思いますされています

awk 'BEGIN{n=1}{n+=sub("TemplateBeginEditable","& Event="n)}1' 

いくつかの説明：sub関数は（行っ置換の数を返します。 0または1）。 &は「一致するものは何でも」を意味します。 "..."nは文字列連結です（awkでは演算子なし）。 1は、デフォルトの「アクション」を{print}と呼び出す「真の」条件です。

Answer 4

私はちょうど行いたい：

local $/=undef; 
my $content = <FH>; 
my $x = 0; 
$content =~ s/(My expected pattern)/$1 . " time=" . (++$x)/ge;