diff --git a/script/geno_prep/splitchr_ped.pl b/script/geno_prep/splitchr_ped.pl index a25f34f..3ff5c6c 100755 --- a/script/geno_prep/splitchr_ped.pl +++ b/script/geno_prep/splitchr_ped.pl @@ -9,15 +9,15 @@ # 22 82139 if (!($ARGV[0] =~ /.*\.ped$/)) { - die "Filename must end in .ped\n"; + die "Error: File name must end with .ped!\n"; exit; } $basefn = $ARGV[0]; $basefn =~ s/\.ped$//; -open(DATAFILE, $ARGV[0]) || die "Couldn't open $ARGV[0]\n"; -open(SIZES, $ARGV[1]) || die "Couldn't open $ARGV[1]\n"; +open(DATAFILE, $ARGV[0]) || die "Error: Cannot open $ARGV[0]\n"; +open(SIZES, $ARGV[1]) || die "Error: Cannot open $ARGV[1]\n"; while() { chomp; ($chr, $n) = split; @@ -31,7 +31,7 @@ $endcol[$i] = $startcol[$i] + (2 * $size[$i]) - 1; if($startcol[$i] < $endcol[$i]) { print "$i, $startcol[$i], $endcol[$i]\n";} $fname = $basefn . "_chr" . $i . ".ped"; - open($fh[$i], ">$fname") || die "Cannot open $fname for writing\n"; + open($fh[$i], ">$fname") || die "Error: Cannot open $fname for writing!\n"; } while() {