perl中的并行处理，用于将数组条目写入数据库

use strict;
use warnings;
use DBI;
use Parallel::ForkManager;

# 创建数据库连接
my $dbh = DBI->connect("DBI:mysql:database=test;host=localhost", "username", "password")
  or die "Could not connect to database: $DBI::errstr";

# 创建数组
my @array = ('item1', 'item2', 'item3', 'item4', 'item5');

# 创建并行处理管理器
my $pm = Parallel::ForkManager->new(4);  # 同时处理4个任务

# 并行处理数组条目
foreach my $item (@array) {
    # 创建子进程
    my $pid = $pm->start and next;

    # 在子进程中执行任务
    # 将$item写入数据库
    my $sth = $dbh->prepare("INSERT INTO table_name (column_name) VALUES (?)");
    $sth->execute($item);
    $sth->finish();

    # 结束子进程
    $pm->finish;
}

# 等待所有子进程结束
$pm->wait_all_children;

# 关闭数据库连接
$dbh->disconnect();