的Perl：號碼在文本文件中的每一個字的情況下

Question

我需要編輯的格式類似的文本文件：

> Word text text text text 
Text 
Text 
> Word text text text text 
Text 
Text 

，使它看起來像：

>Word1 text text text text 
Text 
Text 
>Word2 text text text text 
Text 
Text 

基本上，我需要修改字符串「Word」的每個實例，並將其轉換爲「Word」，後面跟着一個與該字符串出現在文本文件中的實例數相對應的數字。我是Perl新手，不知道自己在做什麼。下面是我有：

$file = "test.txt"; 

my %count; 
my $word = " Word"; 

#Open and read data 
open (FILE, "<$file") or die "Cannot open $file: $!\n"; 
@lines= <FILE>; 
foreach my $word{ 
    my $count++; 
} 
close FILE; 

my $counter = my $count + 1; 
my $curr_ct = my $counter - my $count; 

#Open same file for editing now 
open (STDOUT, ">$file") or die "Cannot open $file: $!\n"; 


while (my $count > 0){ 
    s/ Word/Word$curr_ct/ 
    my $count--; 
    my $curr_ct = my $counter - my $count; 
    print; 
} 

close STDOUT; 

Answer 1

沒有理由使用(?{ })。當您使用/e時，替換表達式會針對每個匹配評估爲Perl代碼。這就是你需要的全部。

#!/usr/bin/perl 

use strict; 
use warnings; 

my $word = 'Word'; 

my $count; 
while (<>) { 
    s/\b\Q$word\E\b/ $word . ++$count /eg; 
    print; 
} 

5.10介紹\K這可以使關鍵線更短！

s/\b\Q$word\E\b\K/ ++$count /eg; 

其他方面的改進：

• 的\b做起來很sword或wordy不匹配。
• \Q .. \E使其成爲$word可以安全地包含非單詞字符。

Answer 2

你可以使用零寬度code evaluation expression斷言，如：(?{...})正則表達式中增加對每場比賽的計數值，然後使用該計數替代方：

請注意，根據文檔，代碼評估表達式被認爲是實驗性的。

use warnings; 
use strict; 

my $word = 'Word'; 
my $file = 'file.txt'; 

open my $fh, '<', $file or die $!; 

my $count; 

while (<$fh>){ 
    s/$word(?{$count++})/$word$count/g; 
    print; 
} 

輸入：

> Word text text text text 
Text 
Text 
> Word text text text text 
Text 
Text 

輸出：

> Word1 text text text text 
Text 
Text 
> Word2 text text text text 
Text 
Text