Permalink
Browse files

Changes to UniqSeqs labelling

  • Loading branch information...
1 parent 1acf1f6 commit 7a3b62feb8e99df62af4e5ecbfb3ade26a8f0616 @josephhughes committed Apr 11, 2012
Showing with 8 additions and 4 deletions.
  1. +8 −4 UniqSeqs.pl
View
@@ -49,11 +49,15 @@
if ($first){
my @ids = split (/\s+/,$desc);
foreach my $ids (@ids){
- my $newdate=$1 if $ids=~/D(.+)S\d+$/;
- #print "New date $newdate\n";
- if ($newdate<$date){
+ my $newdate;
+ if ($ids=~/D(\d+)S\d+$/){
+ $newdate=$1;
+ }else{
+ $newdate=1000000000000000;
+ #print "New date $newdate\n";
+ }if ($newdate<$date){
$date=$newdate;
- $new_id=$ids;
+ $new_id=$ids."_$matching_hash{$uniqseq}";
}
}

0 comments on commit 7a3b62f

Please sign in to comment.