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) <reversethis-{moc ... ta} {tarksum.rm}> on 2005.09.08 13:11 (#43152) Journal

      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.

      Reply to This

      Parent