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