Help for this page

Select Code to Download


  1. or download this
    my $data = do { open my $fh, '<', $file or die "$file: $!";
    local $/; <$fh> };
  2. or download this
    my $data = do { open my $fh, '<:raw:encoding(UTF-8)', $file
    or die "$file: $!"; local $/; <$fh> };
  3. or download this
    my $data; { open my $fh, '<', $file or die "$file: $!";
    local $/; $data = <$fh> };
  4. or download this
    my $data = do { local (*ARGV,$/); @ARGV=$file; <> };