Update splitchr_ped.pl

jiang548 · May 20, 2022 · 0c5e6fe · 0c5e6fe
1 parent 5be9d95
commit 0c5e6fe
Showing 1 changed file with 4 additions and 4 deletions.
diff --git 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(<SIZES>) {
         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(<DATAFILE>) {