#! /usr/local/bin/perl open( HTML, ">http_telnet.html"); open( HOSTS, "ypcat hosts|"); while () { next unless /[0-9.]* ([a-zA-Z0-9_-]*)/; $name = $1; push(@hosts, $name); # print $name; } close (HOSTS); @sorted = sort @hosts; printf( HTML " Telnets \n\n\n"); close(HTML);