Hello all,
This is similar to the problem I had before but the table that I'm reading
from is a little bit different. We'll use the nitrogen as an example
again.
IN the test table there are four entires for nitrogen. Here they are.
Nitrogen 0.00e+00 1.31e-02 9.86e-01 5.96e-04 0.00e+00 0.00e+00
Nitrogen 9.99e-01 1.48e-03 1.59e-12 0.00e+00 0.00e+00 0.00e+00
Nitrogen -30.000 -1.884 -0.006 -3.225
Nitrogen 3.723 4.007 4.007 4.007
The text that I'd like is the row of all negative numbers. Now, the perl
command that I'm using to get this is the following:
while(<OUTFILE>){
if
(/(Nitrogen)\s+(-\d+\.\d+)\s+(-\d+\.\d+)\s+(-\d+\.\d+)\s+(-\d+\.\d+)\s+(-\d+\.\d
+)/)
{$name = $1; $nitrogen1 = $2; $nitrogen2 =$3; $nitrogen3 = $4; $nitrogen4
= $5; $nitrogen5 = $6;}
}
However, I believe this is choking when it gets to the first line that has
nitrogen in it. It doesn't know what to do with the e's. What happens is
that the material that I want never gets assigned to the variables. I've
tested this by placing in the following print command.
print COMPFILE "HEY, $nitrogen1, $nitrogen2, $nitrogen3, $nitrogen4,
$nitrogen5 \n";
Now, there is a key word which exists before getting to the desired line
of Nitrogen and that's the following:
Log10 Mean Ionisation
So, is there a way of using this text in a while statement or something
like that to get what I need? Or can I change the while statement
above to get just the nitrogen line with just negative numbers? Thanks
for your help.
Brent
