UNIX for Advanced & Expert Users

#!/usr/bin/perl
while ($line = <>) {
    chomp ($line);

   if ($line ne "") {

     if ($line =~ m/telkom/) {
         $hold = $line;
     } else {
         print $line, " ";
         print $hold, "\n";
     }
   }
}

lineconvert test.txt > outputfile

#! /usr/bin/sed -f
#
N         ;# suck in a second line
N         ;# suck in a third line
s/\n/ /g  ;# change new-line to space
s/  */ /g ;# change many spaces to one space
s/\([^ ]*\) \([^ ]*\)/\2 \1 / ;# swap the fields

tcenh100.telkom.co.za
100.200.300.400

tcenh101.telkom.co.za
500.600.700.800

100.200.300.400 tcenh100.telkom.co.za
500.600.700.800 tcenh101.telkom.co.za

#!/bin/awk

/telkom/                         { hold = $1 ; next}
/[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+/ { print $1 " " hold }

#!/usr/bin/perl -lan
/telkom/          && do { $hold = $F[0]; next };
/\d+(?:\.\d+){3}/ && do { print $F[0], " ", $hold };

#!/bin/sh
while read word rest ; do
  if [ `expr "$word" : '.*\.telkom\.'` -gt 0 ] ; then
    hostname=$word
  elif [ `expr "$word" : '^[0-9]*\.[0-9]*\.[0-9]*\.[0-9]*$'` -gt 0 ] ; then
    echo "$word $hostname"
  fi
done