如何在 Net::RawIP 中指定数据包数据？

Question

根据 cpan 文档，我可以使用以下代码创建原始数据包：

  use Net::RawIP;
  $n = Net::RawIP->new({
                        ip  => {
                                saddr => 'my.target.lan',
                                daddr => 'my.target.lan',
                               },
                       });
                        tcp => {
                                source => 139,
                                dest   => 139,
                                psh    => 1,
                                syn    => 1,
                               },
                       });
  $n->send;

但是我在哪里声明数据包包含的数据呢？

我可以用另一个模块发送数据包吗？

Answer 1

由于您要发送 tcp 数据包，因此您需要按照文档说明指定：

$n = Net::RawIP->new({
  ip  => {
   saddr => 'my.target.lan',
   daddr => 'my.target.lan',
  },
  tcp => {
   source => 139,
   dest   => 139,
   psh    => 1,
   syn    => 1,
   data   => $your_data
  },
 });