in reply to pattern matching and array comparison
sorry - made a typo:
should be
}foreach my $line (@ids) { if ($line =~ /^(\w+\|\w+\.{0,1}\d{0,1}\|{0,1}:c{0,1}\d+\-\d+)/ +) { push @accessions, "$1"; }
|
---|
In Section
Seekers of Perl Wisdom