$_ = shift(@tony) until /xx/ or die;

[darkreaper00]

Here's my snippet of code:

else {
	$_=shift(@tony) until (/Genomic: .*\|([\dyxpq_])+[Tt]el/); 
	print STDERR "6.5 ";
	$telomere  = $1; print STDERR "7 ";
	
	$_=shift(@tony) until (m!mRNA: .*/gb=([\w]+)!) 
		or die("eep! mrna $h doesn't have a genbank accession! you lose!"); 
	#....
}

My output is inevitably

6.5 7 eep! mrna 2 doesn't have a genbank accession! you lose!

The /Genomic/ line is proof that

shift until...

works, and I definitely have lines that contain "mRNA:" at the front and "/gb=xxxxx" inside -- in fact, if I simply tell it to find that, I don't have a problem. I realize that I could (and probably will) fix this by making it search for mRNA, and then putting the /gb=/ inside an if statement with the die as an else condition, but I really would like to know why what I have doesn't work -- it really stumps me.

 

[dchoulette]

I am not sure (should check precedence of 'until' versus 'or') but is it possible that perl do this:

$_=shift(@tony) until

(

(m!mRNA: .*/gb=([\w]+)!) 
        or die("eep! mrna $h doesn't have a genbank accession! you lose!")

)

;

 

[justice41]

You probably meant to write it as
[tt]
$_=shift(@tony) or die("eep! mrna $h doesn't have a genbank accession! you lose!&quot
until (m!mRNA: .*/gb=([\w]+)!);
[/tt]
What you have written is equivalent to
[tt]
$_=shift(@tony) until ((m!mRNA: .*/gb=([\w]+)!)
or die("eep! mrna $h doesn't have a genbank accession! you lose!&quot);
[/tt]
This will die if the match is unsuccessful, which will be the case unless you find it on the first try.

jaa

 

[darkreaper00]

I think you're both right about what it's doing with my code, but justice41, your code does the same thing. I fixed it using this loop:

		while ($_=shift(@tony)) {
			if (m!mRNA: .*/gb=([\w]+)!) {	last;	}
			elsif (m!mRNA:!) {	die("eep! mrna $h doesn't have a genbank accession! you lose!"); }
			else {	next;	}
		}

nevertheless, I still don't understand why we couldn't get it to work with an or statement :c) Thanks for the direction, anyhow.