当我使用线程时,为什么我的Perl脚本解压文件的速度较慢?

usethreads=define , useithreads=define . 我有一个简单的脚本来读取4个gzip文件,每个文件包含大约750000行。我正在使用 Compress::Zlib 执行文件的解压缩和读取。我有两个实现,它们之间唯一的区别是一个包括 use threads . 除此之外,两个脚本都运行相同的子例程来执行读取。因此,在psuedocode中,非线程程序执行以下操作:

read_gzipped(file1);
read_gzipped(file2);
read_gzipped(file3);
read_gzipped(file4);

线程版本如下所示:

my thr0 = threads->new(\$read_gzipped,'file1')
my thr1 = threads->new(\$read_gzipped,'file1')
my thr2 = threads->new(\$read_gzipped,'file1')
my thr3 = threads->new(\$read_gzipped,'file1')

thr0->join()
thr1->join()
thr2->join()
thr3->join()

现在,线程版本的实际运行速度几乎是非线程脚本的2倍。这显然不是我所希望的结果。谁能解释一下我做错了什么?