Update extractgeno.pl

jiang548 · May 20, 2022 · ad58cad · ad58cad
1 parent 9944d71
commit ad58cad
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/script/adj/extractgeno.pl b/script/adj/extractgeno.pl
@@ -1,15 +1,15 @@
 #!/usr/bin/perl
 # extractrgeno.pl file
 my @IDX;
-open(IDXLIST, $ARGV[0]) || die "Couldn't open $ARGV[0]\n";
+open(IDXLIST, $ARGV[0]) || die "Error: Cannot open $ARGV[0]\n";
 while(<IDXLIST>) {
 chomp;
 push(@IDX,$_);
 }
 close(IDXLIST);
 
 $linescount=1;
-open(MAP, $ARGV[1]) || die "Couldn't open $ARGV[1]\n";
+open(MAP, $ARGV[1]) || die "Error: Cannot open $ARGV[1]\n";
 while(<MAP>) {
 
 while ($linescount eq $IDX[0]) {