in reply to Re: Concatenate every 5 lines of input with a comma.
in thread Concatenate every 5 lines of input with a comma.

Hi, sorry my explanation was bad. Comma or semi-colon does not matter :) My scripts seeks serial numbers through ssh connection, return value comes from foreach loop. 
round 1; 123456
round 2; 123456
etc..


and i need to have output print like i said.
12345;12345;12345
12345;12345;12345
etc..

Thanks.

[download]

Replies are listed 'Best First'.
Re^3: Concatenate every 5 lines of input with a comma.
by Anonymous Monk on Jul 10, 2009 at 07:40 UTC
    Hi, awesome guys, answer was above 
    while ( <DATA> ) {
    chomp;
    print $_, $.%5 ? ";" : $/;
}

    [download]
    Thanks.
[reply]
[d/l]

In Section Seekers of Perl Wisdom