Question

我想用Perl实现一个消息队列。我从stdin获取数据并将其发送到队列。

我的消息结构是

struct message => {
    mtype        => '$',
    buffer_size  => '$',
    last_message => '$',
    buff         => '$',
};

我必须使用C程序从队列中接收数据。我的C程序以前工作得很好，但是现在当我运行它以从队列接收数据时它会向我显示类似这样的内容

age=HASH(0x1daa088) 1936942445      4000

我使用在stdout上打印的4000字节缓冲区读取数据块。但是，程序应该打印收到的消息大小而不是age=HASH(0x1daa088) 1936942445。

这里发生了什么？是因为C中的消息是一个结构而在Perl中它是一个哈希？

我的C代码：

#include <stdio.h>
#include <stdlib.h>
#include <linux/ipc.h>
#include <linux/msg.h>
#include <time.h>
#include <string.h>

#define bufsize 4000

struct mymsgbuf {
    long    mtype;          /* Message type */
    int     buffer_size;
    char    buff[bufsize];
    int     last_message;
} msg;

int read_message( int qid, long type, struct mymsgbuf *qbuf ) {

    int result, length;

    /* The length is essentially the size of the structure minus   sizeof(mtype)*/

    length = sizeof(struct mymsgbuf) - sizeof(long);

    if ( (result = msgrcv( qid, qbuf, length, type, MSG_NOERROR)) == -1 ) {
        return(-1);
    }

    fprintf(stderr, "\t%d\t\t%d\t\t%d  \n", qbuf->buffer_size, bufsize, qbuf->last_message);

    write(1,qbuf->buff,qbuf->buffer_size);

    return(result);
}

int open_queue( key_t keyval ) {

    int qid;

    if ( (qid = msgget( keyval, 0660 )) == -1 ) {
        return(-1);
    }

    return(qid);
}

main() {

    int     qid;
    key_t   msgkey;
    msg.last_message = 0;

    /* Generate our IPC key value */
    msgkey = ftok("/home/joobeen/Desktop/learning", 'm');

    /* Open/create the queue */
    if (( qid = open_queue( msgkey)) == -1) {
        perror("open_queue");
        exit(1);
    }

    fprintf(stderr, "byte received:\tbuffer_size:\tlast_message:\n");

    /* Bombs away! */
    while (1) {

        if ( (read_message( qid,0, &msg )) == -1 ) {
            perror("receive_message");
            exit(1);
        }
        if ( msg.last_message == 1 )
            break;
    }

    return 0;
}

我的Perl代码：

use strict;
use warnings;

use IPC::SysV qw(IPC_PRIVATE IPC_CREAT S_IRUSR S_IWUSR ftok);
use IPC::Msg;
use Class::Struct;

struct message => {
    mtype        => '$',
    buffer_size  => '$',
    last_message => '$',
    buff         => '$',
};

my $key_in = ftok( "/home/joobeen/Desktop/learning", 'm' );
my ( $buffer ) = "";
my $buf_size   = 4000;
my $file       = shift @ARGV;
my $ifh;
my $is_stdin  = 0;
my $type_sent = 1;
my $last;

if ( defined $file ) {
    open $ifh, "<", $file or die $!;
}
else {
    $ifh = *STDIN;
    $is_stdin++;
}

my $ipc_id = msgget( $key_in, IPC_CREAT | S_IRUSR | S_IWUSR );
my $msg = message->new(
    mtype        => 1,
    last_message => 0
);

print "\tbyte sent\tbuffer_size\tlast_message\n";

while ( <$ifh> ) {

    $last = read( $ifh, $buffer, $buf_size );

    $msg->buff( $buffer );
    $msg->buffer_size( $buf_size );

    if ( $last < $buf_size ) {
        $msg->last_message( 1 );
    }

    msgsnd( $ipc_id, pack( "l! a*", $type_sent, $msg ), 0 );

    print "\t", $last, "\t\t", $buf_size, "\t\t", $msg->last_message, "\n";

}

close $ifh unless $is_stdin;

Answer 1

您的代码有多个问题。我不会为你解决这些问题，但我可以就如何实施IPC进行一些指导。

将二进制数据直接读入C结构非常脆弱。您必须关心字节顺序，结构填充以及int或long等类型的大小。根据您的平台，这两种类型都可以是32位或64位以及小端或大端。首先，您需要准确指定消息的“在线协议”。为简化起见，我们使用固定大小的消息：

mtype: 32-bit unsigned integer, little endian
buffer_size: 32-bit unsigned integer, little endian
buffer: 4000 bytes
last_message: 32-bit unsigned integer, little endian

这只是一个例子。您也可以使用大端整数，就像大多数网络协议一样，出于历史原因。如果您只想在一台机器上使用IPC，您还可以指定本机字节顺序。

现在消息的长度固定为4012个字节。要在C中以便携方式解码此类消息，您应将其读入char数组并分别提取每个字段。您知道每个字段的偏移量和大小。

使用pack函数很容易在Perl中编码这样的消息：

my $msg = pack('V V a4000 V', $mtype, $buffer_size, $buffer, $last);

不需要Class::Struct。该模块没有达到您的预期。

Perl中的消息队列

1 个答案: