----- Original Message -----
From: Shawn <[EMAIL PROTECTED]>
To: Saxena, Saurabh <[EMAIL PROTECTED]>
Cc: 'Perl1' <[EMAIL PROTECTED]>; 'Perl2'
<[EMAIL PROTECTED]>
Sent: Monday, June 04, 2001 11:20 AM
Subject: RE: How to read a single line from file
> Ok, try this:
> open (IN, "a.txt");
> my $found_x;
> while (<IN>) {
> if ($_ eq "x") {
> $found_x = 1;
> next;
> }
> if ($found_x) {
> if ($_ eq "y") {
> do something;
> }
> undef $found_x;
> }
> }
> close (IN);
>
Or in a shorter way:
-------------------------------
open (FH, "<test.txt") || die $!;
my @lines = <FH>;
for (@lines) {chomp};
my $line_with_b = grep{ $lines[$_] eq 'b' && $lines[$_+1] eq 'c'}0..$#lines;
print "Line containing b is: $line_with_b\n";
close FH;
----------------------------
test.txt:
a
b
c
d
e
f
_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/activeperl
