Perl NET_RAWIP отправить шестнадцатеричный пакет

Question

поэтому у меня есть этот фрагмент кода, от друга:

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; 

Bascially, что я хочу сделать, вместо отправки $ dnsdata в качестве данных в пакете, Я хочу отправить шестнадцатеричные данные/x53/x41/x4d/x50/x25/xdd/xaf/xd3/x61/x1e/x63

Как бы я это сделал? Благодаря!

Answer 1

Я предполагаю, что вы ищете это:

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

Это похоже на замечание Снупи исключением того, что раскол> присоединиться не приятно.