Front page | perl.beginners |
Postings from February 2002
From: Tor Hildrum
February 27, 2002 04:24
Message ID: B8A28E9A.55C8firstname.lastname@example.org
On 27/2/02 13:11, "Jon Molin" <Jon.Molin@resfeber.se> wrote:
> Iain Wallace wrote:
>> I was wondering if any one can help me. Is there any command in perl that
>> will let me match a line only if the next line
>> fufills a certain condition, without doing a double loop over the file?
>> My data is like this
>> Variable1 number number number
>> Variable1 number number number --- want this line
>> Variable2 number number number --- and this
>> Variable2 number number number
I'm pretty new to perl myself, but:
my $variable1 = "line1 \n line2";
print "$1\n" if $variable1 =~ /(.+)["\n"]\sline.+/;
This is a pretty quick and dirty script that somehow does this.
It doesn't really work that nice, but I guess that would work?
It prints the first line of $variable1, if the second line of $variable one
has line in it.