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

根据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;

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

---

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

因为您正在发送一个

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