Path: utzoo!attcan!uunet!midway!linac!pacific.mps.ohio-state.edu!zaphod.mps.ohio-state.edu!usc!snorkelwacker!bloom-beacon!eru!hagbard!sunic!mcsun!tuvie!iiasa!wnp
From: wnp@iiasa.AT (wolf paul)
Newsgroups: comp.lang.perl
Subject: Reading a line in perl
Message-ID: <903@iiasa.UUCP>
Date: 25 Sep 90 09:33:40 GMT
Reply-To: wnp@iiasa.UUCP (wolf paul)
Organization: IIASA, Laxenburg/Vienna, Austria, Europe
Lines: 29

Well, I took the plunge and started to use perl.

One of my first projects is to write an accounting script for our
uucp usage.

The SYSLOG files, on which this is to be based, contain two lines
for each transmission, the first being for the message body, and 
the second for the envelope/command file. I therefore need to process
the file in terms of two lines at a time.

What I want to do is this:

	while ($line1 = <INFILE>)
	{
		$line2 = getline INFILE ;
		.
		.
		.
	}

but I cannot find a "getline" function. Is there a way, short of
writing my own getline function using getc?

Thanks!
-- 
Wolf N. Paul, IIASA, A - 2361 Laxenburg, Austria, Europe
PHONE: +43-2236-71521-465     FAX: +43-2236-71313      UUCP: uunet!iiasa.at!wnp
INTERNET: wnp%iiasa.at@uunet.uu.net      BITNET: tuvie!iiasa!wnp@awiuni01.BITNET
       * * * * Kurt Waldheim for President (of Mars, of course!) * * * *