Help for this page

Select Code to Download


  1. or download this
    .. snip ..
   if (/^hostname ([-\w]+) /)

or
   if (/^(?:\s+|)hostname ([-\w]+) /)
  2. or download this
    # old line
open F, $path;
...
   close(F);
   print $hostname. " ";
}