Help for this page

Select Code to Download


  1. or download this
    open(FILE,"<$file") || die $!;
    read FILE, my $data, -s $file;
    close(FILE);
    
  2. or download this
    open(FILE,"<$file") || die $!;
    my $data = do { local $/; <FILE> };
    close(FILE);
    
  3. or download this
    #!/usr/bin/perl
    
    ...
    }
    
    # exit; #<- removed for blazar ;)
    
  4. or download this
    using read function
    0.612063884735107
    ...
    1.08192896842957
    1.02464509010315
    1.0180230140686