在perl中并行读取2个文件时的性能

use strict;
use warnings;
use threads;

# 定义线程函数
sub read_file {
    my ($filename) = @_;
    open my $fh, '<', $filename or die "Cannot open file $filename: $!";
    while (my $line = <$fh>) {
        # 处理文件内容
    }
    close $fh;
}

# 创建两个线程
my $thread1 = threads->create(\&read_file, 'file1.txt');
my $thread2 = threads->create(\&read_file, 'file2.txt');

# 等待线程执行完毕
$thread1->join();
$thread2->join();

use strict;
use warnings;
use IO::Async::Loop;
use IO::Async::FileStream;

my $loop = IO::Async::Loop->new;

# 定义协程函数
async sub read_file {
    my ($filename) = @_;
    my $file = IO::Async::FileStream->new(
        filename => $filename,
        on_read  => sub {
            my ($self, $buffref, $eof) = @_;
            # 处理文件内容
            return 0;
        },
        on_closed => sub {
            shift->loop->stop;
        },
    );
    await $file->open;
    await $loop->loop_forever;
}

# 创建两个协程
$loop->add(read_file('file1.txt'));
$loop->add(read_file('file2.txt'));

# 启动事件循环
$loop->loop_forever;