Re: Win32::OLE and Excel Question/Help

[roboticus]

mmittiga17:

Perhaps something like:

my $buffer;
while (my $line = <$INFH>) {
   $line =~ s/\n$//;
   if ($line =~ /^CUSIP/) {
      print $OUTFH $buffer, "\n" if defined $buffer;
      $buffer = $line;
   }
   else {
      $buffer .= $line;
   }
}

...roboticus

When your only tool is a hammer, all problems look like your thumb.