Help for this page

Select Code to Download

Select or download this

cat test.txt | perl -ne '($key,$value)=/(servername |serverip: )(.*)/;
+if($key eq "servername "){$data->{$value}=[] unless exists $data->{$k
+ey};$last_servername=$value;};if($key eq "serverip: "){push @{$data->
+{$last_servername}}, $value};END{printf "%s,%s\n",$_,join ",",@{$data
+->{$_}} for keys %$data;}'

Select or download this
```
def,456,445566
abc,123
ghi,789
```