Re: Win32::OLE and Excel Question/Help


No such thing as a small change
	PerlMonks

Re: Win32::OLE and Excel Question/Help

by kcott (Archbishop)

on Feb 13, 2013 at 09:12 UTC ( [id://1018507]=note: print w/replies, xml )

Need Help??

in reply to Win32::OLE and Excel Question/Help

G'day mmittiga17,

Here's another way to do it:

#!/usr/bin/env perl

use 5.010;
use strict;
use warnings;

local $/ = 'CUSIP';

while (<DATA>) {
    s{\s*$/$}{}m;
    next unless $_;
    s{\n}{ }gm;
    s{\s*$}{};
    say $/, $_;
}

__DATA__
CUSIP    data data data
data data data data
data data data data
CUSIP    data data data
data data data data
data data data data
CUSIP    data data data
data data data data
data data data data
[download]

Output:

$ pm_merge_multiline_with_leader.pl
CUSIP    data data data data data data data data data data data
CUSIP    data data data data data data data data data data data
CUSIP    data data data data data data data data data data data
[download]

-- Ken