# Returns a list.
- my ( $contig, @tracks, $track, $file, $line, $out_file, $fh, $entry, @entries );
+ my ( $search_track, $search_term, $contig, @tracks, $track, $file, $line, $out_file, $fh, $entry, @entries );
+
+ if ( $cookie->{ 'SEARCH' } =~ /^(.+)\s+track:\s*(.+)/i )
+ {
+ $search_term = $1;
+ $search_track = $2;
+
+ $search_track =~ tr/ /_/;
+ }
+ else
+ {
+ $search_term = $cookie->{ 'SEARCH' };
+ }
foreach $contig ( @{ $cookie->{ 'LIST_CONTIG' } } )
{
push @tracks, path_tracks( $cookie );
}
+ @tracks = grep /$search_track/i, @tracks if $search_track;
+
foreach $track ( @tracks )
{
$file = "$track/track_data.kiss";
{
chomp $line;
- if ( $line =~ /$cookie->{ 'SEARCH' }/i )
+ if ( $line =~ /$search_term/i )
{
$entry = Maasha::KISS::kiss_entry_parse( $line );