Re^2: 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. 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
...
[download]

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.

"The three principal virtues of a programmer are Laziness, Impatience, and Hubris. See the Camel Book for why." -- `man perl`

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

Replies are listed 'Best First'.
Re^3: Change the behavior of Perl's IRS by BrowserUk (Patriarch) on Jul 14, 2007 at 20:10 UTC
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` [download] Produces: `C:\test>junk2 'field1=item1 field2=item2 ' 'field1=item1 field2=item2 ' 'field1=item1 field2=item2 ' 'field1=item1 field2=item2 '` [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] [select]
Re^3: Change the behavior of Perl's IRS by ikegami (Patriarch) on Jul 15, 2007 at 07:57 UTC
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]	[reply] [d/l]
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]