comment on

Another way to do it is to adjust perl's input behavior slightly, in order to get it to read everything up to "Buffers" in one shot. Then, reset perl's input behavior to read line-by-line again: all that's left is the header's newline, and voila! You've got your data:


my $header = "Buffers";
#
# or do it this way:
# my $header = "Buffers   ID      Position  ID      Position   ID     
+Position";
#

$/ = $header;

my $junk = <DATA>;

$/ = "\n";

my $header_end_of_line = <DATA>;

my $data = <DATA>;

print $data;



__DATA__

DDR -- Running --

  # Event  Snoopy   Snoopy   Replay   Replay   Current  Current
  Buffers   ID      Position  ID      Position   ID     Position
  1024     1667721  2975e7c  1667717  6d44e10  1667721  2982000
  1023     1667720  2975e7b  1667716  6d44e09  1667720  2981999
[download]

In reply to Re: Getting the next line after a match by rje
in thread Getting the next line after a match by dthacker

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


Keep It Simple, Stupid
	PerlMonks