小编psa*_*nts的帖子

有没有一种有效的方法来使用Perl哈希中的值替换字符串？

例如,

$regex{foo} = "bar";
$regex{hello} = "world";
$regex{python} = "perl";

open(F, "myfile.txt");
while (<F>) {
      foreach $key (keys %regex) {
            s/$key/$regex{$key}/g;
      }
}
close(F);

有没有办法在Perl中完成上述操作？

在多线程应用程序中使用berkeley DB(bdb)句柄的最佳方法是什么？

1. 让每个线程打开自己的句柄是否更好; 要么,

2. 打开一个句柄并让每个线程执行txn_begin {} txn-> commit()更好吗？

哪一个更好？我正在使用带有DB_THREAD标志的Transactional Data Store.

谢谢