Use as perl -n0 thisScript theDataFile >outputFile
#! perl use strict; s[ Optimized \s Parameters (?: .+? \n ){5} (.+?) -+ \n GradGrad ]{ print "$_\n" for map{ (split)[ 2 ] } split "\n", $1; }gsex or warn 'No match';;
Against your sample (with some junk before and after) produces:
C:\test>perl -n0 junk9.pl junk2.dat 1.1136 1.3392 117.4979 0.9929
In reply to Re: Parsing Guassian '03 Log Files
by BrowserUk
in thread Parsing Guassian '03 Log Files
by Andrew_Levenson
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |