Perl 與 C 進程間通訊：System V 消息隊列完整實戰指南

架構優勢

核心計算模組用 C 實現 (效能)，業務邏輯層用 Perl 實現 (開發效率)，兩者透過 System V 消息隊列 (IPC) 通訊，實現異語言進程協作。

一、Perl 端消息隊列操作 (IPC::SysV + IPC::Msg)

單進程測試

#!/usr/bin/perl
use strict; use warnings;
use IPC::SysV qw(IPC_PRIVATE S_IRWXU IPC_CREAT IPC_NOWAIT);
use IPC::Msg;

my $key = IPC::SysV::ftok(".", '1');  # 需存在的檔案產生 key
my $msg = IPC::Msg->new($key, 0666 | IPC_CREAT) or die "create: $!";
my $msgid = $msg->id;
print "MSG_ID: $msgid\n";

$msg->snd(1, "test", IPC_NOWAIT) or die "send: $!";
$msg->rcv(my $buf, 1024) or die "recv: $!";
print "BUFFER: $buf\n";

$msg->remove();  # 刪除隊列

雙進程通訊：發送端 msg_snd.pl

my $msg = IPC::Msg->new($key, 0666 | IPC_CREAT);
my $msgtype = 1;
foreach my $pal (qw(Tom Dick Harry Pete Hank)) {
    $msg->snd($msgtype, "Hi, $pal", IPC_NOWAIT) or die "send: $!";
    print "SENT: $pal\n";
}
$msg->snd($msgtype, "end", IPC_NOWAIT);  # 結束信號

接收端 msg_rcv.pl

my $msg = IPC::Msg->new($key, 0666 | IPC_CREAT);
my $running = 1;
while ($running) {
    $msg->rcv(my $buf, 1024) or die "recv: $!";
    print "RECV: $buf\n";
    $running = 0 if $buf eq "end";
}
$msg->remove();

二、C 與 Perl 混合通訊

關鍵：雙方使用相同的 key (此處固定為 1234)，消息結構體定義一致。

Perl 接收端 (固定 key)

my $key = 1234;  # 不再用 ftok
my $msg = IPC::Msg->new($key, 0666 | IPC_CREAT);
# ... 同前 ...

C 發送端 msg_snd.c

#include 
#include 
#include 
#include 
#include 

#define MAX_TEXT 512

struct my_msg_st {
    long int my_msg_type;  // 必須為 long，且 > 0
    char some_text[MAX_TEXT];
};

int main() {
    int msgid = msgget((key_t)1234, 0666 | IPC_CREAT);
    if (msgid == -1) { perror("msgget"); exit(1); }

    struct my_msg_st data;
    for (int i = 0; i < 10; i++) {
        data.my_msg_type = 1;
        snprintf(data.some_text, MAX_TEXT, "index~%d", i);
        if (msgsnd(msgid, &data, MAX_TEXT, 0) == -1) { perror("msgsnd"); exit(1); }
    }
    // 發送結束信號
    data.my_msg_type = 1;
    strcpy(data.some_text, "end");
    msgsnd(msgid, &data, MAX_TEXT, 0);
    return 0;
}

編譯與執行

gcc -o msg_snd msg_snd.c
./msg_rcv.pl &   # 後台運行接收端
./msg_snd        # 運行發送端

輸出示例

MSG_ID: 393219
BUFFER: index~0
BUFFER: index~1
...
BUFFER: index~9
BUFFER: end

關鍵注意事項

擴展建議

• 使用 IPC_NOWAIT 非阻塞模式配合 select/poll 實現多隊列多工
• 定義結構體版本號，支援協定演進
• 考慮改用 POSIX 消息隊列 (mq_open/mq_send) 獲得更佳介面與通知機制

1. 上一篇文章： 經典算法題「加油站最小花費」C語言完整解法：貪心策略與遞歸實現
2. 下一篇文章： C 語言解析 properties 設定檔 (Key=Value 格式) 完整實現

關於C語言

C# 圖形中級篇：剪貼簿操作、系統色彩與折射效應原理（第六講·下）

Copy 方法：多格式剪貼簿支援 0) {

Visual Studio 安裝專案實作（1）：完整解決方案概覽與前置準備

問題情境 部署 WinForms 應用程式時，需讓使用者在安

Linux 下 GCC 編譯與 GDB 反彙編實戰指南：從 Hello World 到環境搭建

Linux 下 GCC 編譯與 GDB 反彙編實戰指南：從

C# 自定義動態圖像按鈕（一）：架構設計與透明度預生成

需求背景 專案中工具欄按鈕過於簡陋，參考 Mac OS X