Expect.pm发送修剪数字符号

Question

我试图在带有Perl 5.8.8的旧计算机上使用Expect.pm。 它可以工作，但是当我发送包含“＃”符号的文本时，该文本将从文本中删除。 有办法逃避/保护它吗？

谢谢

对不起，它是5.8.8

#!/usr/bin/perl
use Expect;
use IPC::Open2;
my $cmd="./rec";
my $e = Expect->new;
$e->debug(0);
$e->spawn($cmd) or die;
$e->log_stdout(1);
$e->raw_pty(0);
my $cmd="#some command";
print "cmd: [$cmd]\n";
$e->send($cmd);
$e->expect(1,
  [ qr/^I:.*/ => sub { my $exp = shift; print "ok\n"; exp_continue;}],
  [ qr/^E:.*/ => sub {
        my $self = shift;
        print "ko\n";
        print "Match: <\n", $self->match, "\n>\n";
        print "Before: <", $self->before, ">\n";
        print "After: <", $self->after, ">\n";
        exp_continue;
        }]
  );
print "closing\n";
$e->clear_accum();
$e->close();

rec是一个简单的c程序聊天，它回显它收到的用于调试目的的内容，并且仅打印     一些命令 带走＃。 我要控制的实际程序需要＃没有它我就无法制作。