use Perl

• That's a fun bug! (Score:1)

  by Mr. Muskrat (4572)

  I stared at it and stared at it but didn't see it until I actually tried the code. Then it hit me; "$/ has been modified so it's hanging at the <STDIN>!" Thanks for a very fun lunchtime distraction.

  #!/usr/bin/perl
  use strict;
  use warnings;
  
  my $file = shift || die "No file, dummy!";
  open FH, "<", $file or die "Could not open ($file) for reading: $!";
  my @records;
  
  {
    local $/ = "\n.\n";
    chomp(@records = <FH>);
  };
  
  for my $record (@records) {
      print $record;
      <
  • Re:That's a fun bug! (Score:2)

    by Ovid (2709)

    Yup. That's it. In my case, I was reading in a huge file so I didn't want to slurp it all in at once. I went for the following fix:

    {
      local $/ = "\n";
      <STDIN>;
    }
    • Re:That's a fun bug! (Score:1)

      by Mr. Muskrat (4572)

      Believe it or not that is what I did first. There's so many different ways that you could handle this situation and that's the beauty of Perl.
• Re: (Score:1)

  by Aristotle (5147)

  Hehe. I did spot it without running the code – after I stepped out of the box and started thinking about what things it does other than its primary goal. It took about three minutes of staring.

  I can’t think of a solution that is compact, non-obfuscatory, and avoids redundancy (ie setting $/ twice) all at once. The best I can do is

  while( 1 ) {
      do {
         local $/ = "\n.\n";
         my $record = <FH>;
         last if no
  • Re: (Score:2)

    by Ovid (2709)

    this should be a property of the filehandle, not a global variable.

    Perl 6, baby, Perl 6.