perlを使用してLinuxでIPアドレスを反転する

Question

私はIPアドレスでnslookupを実行する必要があります。一致する場合は、ホストの名前を印刷する必要があります。問題は、コマンド実行時にIPアドレスが逆になってしまうことです。

nslookup 10.11.12.13 
13.12.11.10.in-addr.arpa 

私は私が欲しいものではありませんすべてを逆転さreverseけどを使用しようとしました。

その後、私はすべて、ちょうど完全な数字を逆にしたくない 01.11.21.31 を印刷し

my $ip = '13.12.11.10'; 
$result = reverse($ip); 
print $result; 

。

誰かが助けてくれますか？

Answer 1

私たちがする必要があるのは、実際のアドレスを分割し、それらを逆順に並べ替えてから、そのIPを逆のIPに一致させることです。

use strict; 
use warnings; 

my $ipaddress = '10.11.12.13';  
my @ip = split /\./,$ipaddress;      #split the IP by . 
my $sserddapi = "$ip[3].$ip[2].$ip[1].$ip[0]";  #reverse it 
my @lookup = `nslookup $ipaddress`;     #do the match 
    $lookup[3] =~ s/\s+//g;       #remove all whitespace 
my @device = split /=/, $lookup[3];     #get the hostname 
    if ($lookup[3] =~ /^$sserddapi/) {    #see if it matches 
    $lookup[3] =~ s/$sserddapi.in-addr.arpaname=//g; #Remove the unwanted stuff 
    print "$ipaddress = $lookup[3]\n";    #print the result 
    } 

Answer 2

は、単にそれを再度参加、結果の配列を逆に、splitを使用して. SにIPアドレスを分割：

join(".", reverse(split(/\./, $ip))) 

これは、あなたがそれから比較することができますIPアドレスを、「逆転」を与えます結果はnslookupになります。