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

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)) {
   ...
}
[download]

Comment on Re^3: Change the behavior of Perl's IRS Download Code

Replies are listed 'Best First'.
Re^4: Change the behavior of Perl's IRS by BrowserUk (Patriarch) on Jul 15, 2007 at 08:04 UTC
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>) { ... }` [download] Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice. "Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."	[reply] [d/l]
Re^5: Change the behavior of Perl's IRS by ikegami (Patriarch) on Jul 16, 2007 at 02:31 UTC
Sounded to me that he wanted alternatives to what he already had.	[reply]