如何獲得具有特定名稱的輸出

Question

我試圖用perl編輯一些文本文件。所以我有一個文件夾「輸入」，我把我的輸入文本文件，我有一個文件夾「輸出」，我得到的文本文件編輯。所以，我的劇本開始喜歡（我只複製開始）：

use strict; 
use warnings; 

opendir IN, 'input'; 
my @in = grep { /^[^.]/ } readdir IN; 
closedir IN; 

for my $in (@in) { 
open IN, '<', "input/$in" || next; 
open OUT, '>', "output/$in" || die "can't open file output/$in"; 

我輸入文本文件被命名爲TH0001_file.txt，TH0002_file.txt，... 我想，我的輸出文本文件被命名爲TH0001_edited。 txt，TH0002_edited.txt，....

但我不知道如何編輯我的Perl來獲取它。當然，我可以使用「重命名」命令，一旦我得到輸出重命名我的文件，但我想知道如何在Perl中做到這一點。有人可以幫助我嗎？由於

Answer 1

你可以使用下面的代碼爲出發點：

​​