如何用另一個文檔中的行替換文檔中的通配符？

Question

如何更改通配符，可以說這一個<x>並將其更改爲另一個文檔中的第一行？

文件A：含有通配符會是這樣：

<x> text text text 
text text text <x> 
tex text <x> text 

文檔B：含有詞語替換的列表。

num-1 
num-2 
num-3 
num-4 

因此所需的輸出將是：

num-1 text text text 
text text text num-2 
tex text num-3 text 

我真的沒有嘗試任何事情，因爲我不知道如何甚至開始。 但我可以猜測，有必要從一個文件讀取，然後另一個文件，很難。

更新

米勒看看該結果：輸入是與上述相同的被提供。

text text text 
text text text num-2 
text xt num-3 

Answer 1

閱讀第二個文件來建立你的單詞列表。然後重複第一個文件，一次替換一個「通配符」。

use strict; 
use warnings; 
use autodie; 

my $file1 = 'foo.txt'; 
my $file2 = 'bar.txt'; 

open my $fh, '<', $file2; 
chomp(my @words = <$fh>); 
close $fh; 

open $fh, '<', $file1; 
while (<$fh>) { 
    s/<x>/shift @words/eg; 
    print; 
}