Help for this page

Select Code to Download

Select or download this

  my $infh = IO::File->new("< data") or die;

...
# or simply

  return map { my %r; @r{@c} = split; \%r } $infh->getlines;

Select or download this

  return map {
      my %r;
      @r{@c} = split;
      ( $r{'LV_NAME'} => \%r )
  } $infh->getlines;