Re: [FWP] small(?) puzzler (misdirection)

[Brand Hilton <bhilton@adc.com>]

Man, that IS a sneaky one!  

On Sun, Jul 11, 1999 at 02:24:00PM -0700, Vicki Brown wrote:
  [snip]
> 			if ($line =~ /^Query=\s+(\w+)/) {
> 				$query = $1;
> 			}
> 			if ($line =~ /^gi\|(\d+)/) {
> 				$seq = $1;
> 				@line = split(/\s+/, $line);
> 				$score = $line[-2];		#ie, the second to the last element
> 				last;
> 			}
> 			if (/No hits found/) {
=================>>>    if ($line =~ /No hits found/) {
> 				print "$query:  no hits found\n";
> 				$hitless++;
> 				last;
> 			}

-- 
 _____ 
|///  |   Brand Hilton  bhilton@adc.com
|  ADC|   ADC Telecommunications
|_____|   Richardson, Texas

==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe