>
> ok with that can I still continue through the loop and
> process the next line?
>
You can use $_ :
for(qw(1 2 3)) {
print "Processing files - iteration number $_\n";
my @files = qw(foo.txt bar.html);
for(@files) {
open(FH,"<$_") or die "Can not open $_ : $!;
my $prev;
while(FH) {
print "Previous item was $prev\n" if defined $prev;
print "Current item is $_\n";
$prev = $_;
}
close(FH);
}
}
What happens when you do something like that?
> will I not loose the second line now?
>
> On Tue, 2003-12-30 at 09:49, Dan Muey wrote:
> > 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>
