On Sat, Nov 23, 2002 at 02:05:58PM -0600, Joshua Kaufman wrote:
> Thanks for the reply.
>
> That would work in this context, but I'm looking for the more general
> answer, mostly just to convince myself that I'm not crazy and have done it
> this way before.
I'm sorry to report that you may be crazy ;-)
Altering $. has no effect on the position of a filehandle.
> On 11/23/02 8:44 AM, "Wiggins d'Anconia" <[EMAIL PROTECTED]> wrote:
>
> > You could always say <LOG> again inside your if to print the next line.
> > Realize that you will not then be able to check that line for the
> > string, but if that is ok which it sounds like it is then it should
> > work. See below.
> >
> > Joshua Kaufman wrote:
> >> Hi All;
> >>
> >> I'm trying to match a pattern in a text file and then print out the next
> >> line in that file. I could swear that I've done this before by incrementing
> >> $. to move to the next line. However, the code below is printing out the
> >> matched line rather than the next line.
> >>
> >> #!/usr/bin/perl
> >>
> >> open (LOG, "./lmelog");
> >>
> >> for ( <LOG> ) {
> >> if ( /- Student Id/){
> >> ++$.;
> >> print "$_\n";
> > print <LOG>;
> >
> >>
> >> }
> >> }
--
Paul Johnson - [EMAIL PROTECTED]
http://www.pjcj.net
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
