Search Results

Fixed my script (modifications in red):

$ cat script.pl
use warnings;
use strict;
use List::Util qw[ min ];

die qq[Usage: perl $0 <input-file>\n] unless @ARGV == 1;

push @ARGV, $ARGV[0];...

This will give you 10 decimal places:

awk -v OFS="\t" '
# Run this for all lines in the first given file
NR==FNR { for(N=2; N<=NF; N++) if((!MIN)||($N < MIN)) MIN=$N; next }
# Run this for all...