Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
  print qq|  \{:corename => "$name", :pubip => "$item{$name}{destinati
+on}",  :privip => "$item{$name}{'translated-address'}"},\n|;

}

Select or download this

>perl 1213915.pl YourFileName.txt
  {:corename => "Prod1_Core_10.2.6.1", :pubip => "8.39.63.3",  :privip
+ => "10.2.6.1"},
  {:corename => "Prod1_Core_10.2.6.2", :pubip => "8.39.63.4",  :privip
+ => "10.2.6.2"},