perl语言的并行执行

Question

我有一个perl程序，可以从pcap文件中读取流的数据包，但是需要很多时间，我想让它并行，但我不知道它是否可能？如果是可以我用 MPI 来做？还有另一个问题，使这段代码并行的最佳方法，这是我的代码片段（我认为我应该在这部分工作以进行并行，但我不知道最好的方法！）

 while (!eof($inFileH))
    {
    #inFileH is the handler of the pcap file
    #in each while I read one packet

        $ts_sec = readBytes($inFileH,4);
        $ts_usec = readBytes($inFileH,4);
        $incl_len = readBytes($inFileH,4);
        $orig_len = readBytes($inFileH,4);
        if ($totalLen == 0) # it is the 1st packet
        {
            $startTime = $ts_sec + $ts_usec/1000000;
        }   
        $timeStamp = $ts_sec + $ts_usec/1000000 - $startTime;
        $totalLen += $orig_len;     
        $#packet = -1;   n   # initing the array
        for (my $i=0 ; $i<$incl_len ; $i++)     #read all included octects of the current packet
        {
            read $inFileH, $packet[$i], 1;
            $packet[$i] = ord($packet[$i]);
        }
#and after that I will work on the "packet" and analyze it

那么我应该如何发送文件内容以供其他处理器并行处理.....

Answer 1

首先您需要确定瓶颈。如果真的是 CPU 使用率（即在您运行脚本时 CPU 使用率是 100%），您需要弄清楚处理时间花在哪里。

这很可能是您解析输入的方式。可能有明显的方法可以加快速度。例如，如果您使用复杂的正则表达式，并且只专注于正确匹配输入，则可能有一些方法可以通过重写表达式或在尝试更复杂的匹配之前进行更简单的匹配来加快匹配速度。

如果您不能以这种方式充分降低 CPU 使用率，并且您真的想要并行化，请查看是否可以使用 Perl 诞生的机制：Unix pipes。您可以编写 Perl 脚本在管道中相互传递数据，或者您可以在 Perl 本身内创建进程和管道（请参阅 perlopentut，如果这还不够，请参阅 perlipc）。

作为一般规则，我会在尝试其他机制之前先考虑这些选项，但这实际上取决于您尝试执行的操作的详细信息以及您需要执行此操作的环境。