Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Re^2: Reading file and matching lines

by tbone654 (Beadle)
on Feb 11, 2014 at 20:26 UTC ( #1074501=note: print w/ replies, xml ) Need Help??


in reply to Re: Reading file and matching lines
in thread Reading file and matching lines

One liner

Prompt> perl -ne ' next if !/^E/; print $_; ' datafile

E99HEADER|006|001
E99INSSCH|052|
E99POLCOM|1||IIL|62|35119849249024|||||
E99INSFAC2|C00124||||||XAJX0727,YGAX0000,ZAAJ0203,VABA0018,WJZA1800|


Comment on Re^2: Reading file and matching lines
Re^3: Reading file and matching lines
by tbone654 (Beadle) on Feb 11, 2014 at 20:41 UTC

    modified one-liner and data to test...

    F98020A@LUS76E8012758 /cygdrive/c/package
    $ perl -ne ' if (/^h/){print "error starts with h program exiting"; exit;} if (/^G/){exit;} next if !/^E/; print $_;' data
    E99HEADER|006|001
    E99INSSCH|052|
    E99POLCOM|1||IIL|62|35119849249024|||||
    E99INSFAC2|C00124||||||XAJX0727,YGAX0000,ZAAJ0203,VABA0018,WJZA1800|
    
    F98020A@LUS76E8012758 /cygdrive/c/package
    $ cat data  (note: changed the data to have E's after old)
    Q165HWN0X001
    Q165HWN0X002
    Q165HWN0X003
    E99HEADER|006|001
    E99INSSCH|052|
    E99POLCOM|1||IIL|62|35119849249024|||||
    E99INSFAC2|C00124||||||XAJX0727,YGAX0000,ZAAJ0203,VABA0018,WJZA1800|
    G35119849249024
    h189SMA2
    E99INSSCH|052|
    E99POLCOM|1||IIL|62|35119849249024|||||
    E99INSFAC2|C00124||||||XAJX0727,YGAX0000,ZAAJ0203,VABA0018,WJZA1800|
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1074501]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (3)
As of 2015-07-05 15:19 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (67 votes), past polls