From: Heng Li <lh3@live.co.uk>
Date: Fri, 24 Jul 2009 13:04:19 +0000 (+0000)
Subject: skip @header lines in SAM
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=1e11e2b52cea529803f5f54bf999f023a3582cff;p=samtools.git

skip @header lines in SAM
---

diff --git a/misc/wgsim_eval.pl b/misc/wgsim_eval.pl
index 99e2ac9..5339fd4 100755
--- a/misc/wgsim_eval.pl
+++ b/misc/wgsim_eval.pl
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 
 # Contact: lh3
-# Version: 0.1.3
+# Version: 0.1.4
 
 use strict;
 use warnings;
@@ -20,6 +20,7 @@ sub wgsim_eval {
   $flag |= 1 if (defined $opts{p});
   $flag |= 2 if (defined $opts{c});
   while (<>) {
+	next if (/^\@/);
 	my @t = split;
 	my $line = $_;
 	my ($q, $is_correct, $chr, $left, $rght) = (int($t[4]/10), 1, $t[2], $t[3], $t[3]);