—
—

              
#
# (c) Jan Gehring <jan.gehring@gmail.com>
#
# vim: set ts=2 sw=2 tw=0:
# vim: set expandtab:
HideShow 18 lines of Pod
=head1 NAME
Rex::Group::Lookup::File - read hostnames from a file.
=head1 DESCRIPTION
With this module you can define hostgroups out of a file.
=head1 SYNOPSIS
 use Rex::Group::Lookup::File;
 group "webserver" => lookup_file("./hosts.lst");
  
=head1 EXPORTED FUNCTIONS
=cut
package Rex::Group::Lookup::File;
use 5.010001;
use strict;
use warnings;
our $VERSION = '1.13.0.2'; # TRIAL VERSION
require Exporter;
use base qw(Exporter);
use vars qw(@EXPORT);
@EXPORT = qw(lookup_file);
HideShow 9 lines of Pod
=head2 lookup_file($file)
With this function you can read hostnames from a file. Every hostname in one line.
 group "webserver"  => lookup_file("./webserver.lst");
 group "mailserver" => lookup_file("./mailserver.lst");
=cut
sub lookup_file {
  my ($file) = @_;
  open( my $fh, "<", $file ) or die($!);
  my @content = grep { !/^\s*$|^#/ } <$fh>;
  close($fh);
  chomp @content;
  return @content;
}
1;