Help for this page

Select Code to Download


  1. or download this
     my $data;
open my $FH, '<' , $config or die "Cannot open $config: $!\n";
local $/ = undef;
s/^\s*#.*\n|^\n//gm for $data = <$FH>;
  2. or download this
    open my $FH, '<' , $config or die "Cannot open $config: $!\n";
local $/ = undef;
my $data = <$FH>;
 $data =~ s/^\s*#.*\n|^\n//gm;
  3. or download this
    (my $data = <$FH>) =~ s/^\s*#.*\n|^\n//gm;
  4. or download this
    my $data = do {
    local $/ = undef;
...
    <$FH>;
};
$data =~ s/^\s*#.*\n|^\n//gm;