Path: utzoo!utgpu!news-server.csri.toronto.edu!rutgers!ucsd!ucbvax!hplabs!hpfcso!hai
From: hai@hpfcso.HP.COM (Hai Vo-Ba)
Newsgroups: comp.lang.perl
Subject: Fast way to join lines ?
Message-ID: <9830001@hpfcso.HP.COM>
Date: 30 Nov 90 17:13:47 GMT
Organization: Hewlett-Packard, Fort Collins, CO, USA
Lines: 29


	I am using perl to join every N lines of a very large file
    together and wonder what is the faster way to do this:

-----------------------------------------------------------------------

#!/usr/local/bin/perl

$\ = "\n";              # set output record separator

while (<>) {
    chop;       # strip record separator
    $line .= $_;
    if (($. % 32) == 0) {
        print $line;
        $line = '';
    }
}

if ($line ne '') { print $line }

-----------------------------------------------------------------------

	Thanks in advance.

Hai  Vo-Ba                              (303)229-3874
IC Business Division                    hai@hpfihvb.fc.hp.com
Hewlett Packard Co.                     MS 72
3404 E. Harmony Rd.                     Fort Collins, Colorado 80525-9599


Brought to you by Super Global Mega Corp .com