From 0c5e6feec1ed52c498e6f3f7578df1bdd0c3bbc6 Mon Sep 17 00:00:00 2001 From: "Zhang, Dabao" Date: Fri, 20 May 2022 13:33:36 -0400 Subject: [PATCH] Update splitchr_ped.pl --- script/geno_prep/splitchr_ped.pl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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() {