Re^2: Change the behavior of Perl's IRS

[LighthouseJ]

But see, that's precisely what I'm trying to avoid, anything except the absolute minimum of code which I'd like to think Perl strives for.  All I want to do is write something like the following and have it work properly.

{
  $/ = 'myrecordsep';
  while (<DATA>) {
    # do the actual work on text here
  }
}
__DATA__
myrecordsep
field1=item1
field2=item2
myrecordsep
...

I want Perl to read a chunk at a time following that model, that's absolutely all I'm looking for. Like I mentioned before, I've written different scripts that utilized different methods but I'm exploring this particular avenue. I appreciate the attention to the problem though.

[BrowserUk]

It's not complicated, just discard the first separator:

#! perl
use strict;

{
    $/ = "myrecordsep\n";
    scalar <DATA>; ##discard the first;
    while (<DATA>) {
        chomp;
        print "'$_'\n";
    }
}
__DATA__
myrecordsep
field1=item1
field2=item2
myrecordsep
field1=item1
field2=item2
myrecordsep
field1=item1
field2=item2
myrecordsep
field1=item1
field2=item2

Produces:

C:\test>junk2
'field1=item1
field2=item2
'
'field1=item1
field2=item2
'
'field1=item1
field2=item2
'
'field1=item1
field2=item2
'

[ikegami]

But see, that's precisely what I'm trying to avoid, anything except the absolute minimum of code which I'd like to think Perl strives for.

True. This is often done by placing reusable code in modules. I wrote the solution to be reusable so you could place it in a module. All that's left is two lines:

my $rec_reader = make_rec_reader('myrecordsep');
while (my $rec = $rec_reader->($fh)) {
   ...
}

[BrowserUk]

What advantage does all that complexity, and 3 lines of code (don't forget the use), have over these 3?

local $/ = "myrecordsep\n";
scalar <DATA>; ## Discard first separator
while (<DATA>) {
    ...
}

[ikegami]

Sounded to me that he wanted alternatives to what he already had.