From 1e11e2b52cea529803f5f54bf999f023a3582cff Mon Sep 17 00:00:00 2001
From: Heng Li <lh3@live.co.uk>
Date: Fri, 24 Jul 2009 13:04:19 +0000
Subject: [PATCH] skip @header lines in SAM

---
 misc/wgsim_eval.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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]);
-- 
2.39.2