Perl NET_RAWIP 发送十六进制数据包

Question

所以我有这个代码 sn-p，来自朋友：

    

my $dnspacket = new Net::DNS::Packet($str, "A", "IN");
    my $dnsdata = $dnspacket->data;
    my $sock = new Net::RawIP({udp=>{}});
    $str = @name[int rand($names)];
    $reflector = $nameservers[int rand($reflectors)];          
    $sock->set({ip => {
                saddr => "127.0.0.1", daddr => "$r", frag_off=>0,tos=>0,id=>1565},
                udp => {source => 53,
                dest => 53, data=>$dnsdata
                } });
    $sock->send;

基本上我想做的不是发送 $dnsdata 作为数据包中的数据，而是发送十六进制数据 /x53/x41/x4d/x50/x25/xdd/xaf/xd3/x61/x1e /x63

我该怎么做呢？谢谢！

Answer 1

我猜你正在寻找这个：

$dnsdata =~ s!([\s\S])! sprintf("/%02x",ord($1)) !eg;

这类似于 snoopy 的评论，只是 split>join 不好。