Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight

licking9Volts's scratchpad

by licking9Volts (Pilgrim)
on Jun 02, 2004 at 21:27 UTC ( #359762=scratchpad: print w/replies, xml ) Need Help??

All of the files I'm reading have this at the at the top of the file:
~Version Information VERS . 2.00 : CWLS Log ASCII Standard - V +ersion 2.00 WRAP . NO : One line per depth step # ~Well Information #MNEM.UNIT DATA : DESCRIPTION #----.---- --------- : ----------------- STRT .FT 13400.000 : Start STOP .FT 15870.000 : Stop STEP .FT 0.500 : Step increment NULL . -999.250 : Null value COMP . : Company WELL . : Well FLD . : Field # ~Curve Information #MNEM.UNIT API CODES : CURVE DESCRIPTION #----.---- --------- : ----------------- DEPT .FT 00 001 00 00 : Logged depth GR .GAPI 30 310 01 00 : Gamma Ray DRHO .G/C3 42 356 01 00 : Density Correction # ~Parameter Information #MNEM.UNIT VALUE : DESCRIPTION #----.---- --------- : ----------------- DREF . K.B. : Depth reference GL .FEET 1185.00 : Ground elevation RUN . ON : Run number TDD .FEET 15850.000 : TD (driller) TDL .FEET 15870.000 : TD (logger) # ~Other Information
The lines with tildes don't always have a full sentence. Sometimes they only have the tilde and the letter right after it. ~V, or ~P for example. It is mandatory that the line has at least that to mark the sections. Case doesn't matter. After this header is a huge data section that consists of thousands of lines of data that I don't need my program to read through. Actually, I can stop once I see the ~P section so that's what I'd like to find. My code looks like this:
if (/~P/i) { print "\nHit a tilde!\n"; $section = '1'; $section2 = '0'; }
For some reason, it kept reading through the entire file instead of stopping so I thought it wasn't matching the ~P. I got more confused when I was reading about some regexes matching what you don't expect due to the "zero or more" characteristic of some patterns. I thought that was what was happening to me. I added the "Hit a tilde" line to see if it was indeed matching and it looks like it is. The actual problem is something else in here.
Log In?

What's my password?
Create A New User
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (7)
As of 2017-03-30 11:58 GMT
Find Nodes?
    Voting Booth?
    Should Pluto Get Its Planethood Back?

    Results (356 votes). Check out past polls.