Help for this page

Select Code to Download


  1. or download this
    %{$self->{info}} = map {@$_} grep {$_->[1]} map {chomp; [split '=', $_
+, 2];} <$fh>;
  2. or download this
    %{$self->{info}} = map {chomp; my ($k, $v) = split '=', $_, 2; $v ? ($
+k => $v) : (); } <$fh>;
  3. or download this
    # assuming default values are in %defaults
%{$self->{info}} = map {chomp; my ($k, $v) = split '=', $_, 2; $k => $
+v || $defaults{$k}; } <$fh>;