> Once I get into the while loop the previous line I had is lost. As this
> while is underneath another while that I am using in another routine.
It doesn't make any sense to read.
Why?
Please don't top post.
:)
I was using an array and for() in my example so you could see the principle in action.
Using your file handle with while() will work the same way. (Just don't do an array
with while, that could make for a long running program!)
No matter how many loops within loops you have you need to save the current
item in a variable inside the current block and use
the variable inside you loop, like we did in the examples given.
Dmuey
> > The lines will always be defined but I need to process that
> > previous line. I am still kinda in the closet on what you mean.
> >
>
> He means the variable $last he used. I've tried to do an
> exqample that may help clear it up for you:
>
> my $prev;
> for(qw(a b c d e f g)) {
> print "Previous item was $prev\n" if defined $prev;
> print "Current item is $_\n";
> $prev = $_;
> }
>
> HTH
>
> DMuey
>
> > ..
> > On Tue, 2003-12-30 at 09:42, James Edward Gray II wrote:
> > On Dec 30, 2003, at 10:36 AM, Eric Walker wrote:
> >
> > > I am going through a file and when I enter a certain
> > routine, I am
> > > entering a while loop with the <IN> construct. Is
> > there a way to back
> > > the counter up or back up one line before I go into the
> > while loop?
> > >
> > > a
> > > b
> > > c
> > > d
> > >
> > > Instead of seeing b when I enter the while loop, adjust
> > some option and
> > > see the a.
> >
> > How about adding:
> >
> > my $last;
> > while (<IN>) {
> > # use $last here, but watch for undef on the first
> > iteration, for
> > example:
> > do_something( $last ) if defined $last;
> >
> > $last = $_;
> > }
> >
> > Hope that helps.
> >
> > James
> >
> >
> >
> >
> >
> > --
> > To unsubscribe, e-mail: [EMAIL PROTECTED]
> > For additional commands, e-mail: [EMAIL PROTECTED]
> <http://learn.perl.org/> <http://learn.perl.org/first-response>
>
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> <http://learn.perl.org/> <http://learn.perl.org/first-response>
>
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
