如何在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
  },
 });