Return to BSD News archive
Path: sserve!newshost.anu.edu.au!harbinger.cc.monash.edu.au!msuinfo!agate!howland.reston.ans.net!math.ohio-state.edu!sdd.hp.com!portal.com!decwrl!nntp.crl.com!crl3.crl.com!not-for-mail
From: gene@crl.com (Gene Hightower)
Newsgroups: comp.os.386bsd.apps
Subject: A perl program to do the job.
Date: 3 Jun 1994 10:10:37 -0700
Organization: CRL Dialup Internet Access
Lines: 12
Message-ID: <2sno6d$cvd@crl3.crl.com>
NNTP-Posting-Host: crl3.crl.com
X-Newsreader: TIN [version 1.2 PL2]
#!/usr/local/bin/perl
open(IFILE, "<$ARGV[0]");
$num="aa";
while (read(IFILE, $data, $ARGV[1])) {
open(OFILE, ">$ARGV[0].$num");
print OFILE $data;
close(OFILE);
$num++;
}
-- Gene