如何保存文件中找到的键值？

Question

我正在创建一个文本替换脚本。我有一个特殊ID密钥的哈希值，密钥是每个ID的关联标题。

我有很多文件。每个文件都有一个用名称覆盖的不同keyID。对于每个文件，我想知道原始ID是什么，所以我需要保存它。然后，我想使用这个唯一的ID为我添加到文件的每个mailto链接构建一个唯一的主题行。这就是我现在所拥有的，但我不确定如何确保只有2个按钮（1表示同意，1表示不同意），并且每个mailto主题行都有正确的ID。

foreach my $file (@files)
{

    open(FILEIN, "<", $file) || die "File not found";
    my @lines = <FILEIN>;

    my @newlines;
    my $key_value;
    foreach(@lines) {
        foreach my $key ( keys %hash ) {
            if($_ =~ $key) {
                $_ =~ s/$key/$hash{$key}/g;
                $key_value = $key;
        }
            $_ =~ s/<\/table>/<\/table><button type=\"button\"><a href=\"mailto:name@gmail.com?Subject=ID:%20$key_value\&body=\"I agree with the results.\"">I agree with the results.<\/a><\/button>
            <br \/><br \/><br \/>
            <button type=\"button\"><a href=\"mailto:name@gmail.com?Subject=ID:%20$key_value">I disagree with the results.<\/a><\/button>/g;
    }


        push(@newlines,$_);
}

open(FILEOUT, ">", $file) || die "File not found";
print FILEOUT @newlines;
close(FILEOUT);
close(FILEIN);


}