> -----Original Message-----
> From: Ankit Gupta [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, June 05, 2002 3:49 PM
> To: [EMAIL PROTECTED]
> Subject: Help in Regular expression with array
>
>
> Hello,
>
> I am facing a problem in using regular expression on array. My code is
> written below:
> open(FILE, $dirvalue) ;
> my @lines = <FILE>;
> print @lines; # prints the file contents
Here @lines is used in list context, so you get the contents of
the array.
> if( @lines =~ m/Date:/) { print "ok";}
Here @lines is used in scalar context, so you get a number representing
the number of elements in the array.
> close(FILE);
>
> here I can print @lines which gives me:
>
> Received: from pc_jrs.spacebel.be (pc_jr) by earth.spacebel
> (5.x/SMI-SVR4)
> id AA26092; Sun, 27 Oct 1996 16:44:52 +0100
> Date: Sun, 27 Oct 96 17:38:51 PST
> From: John Reynolds <[EMAIL PROTECTED]>
> Subject: Ebnf2ps
>
>
> Now @lines does contain Date: characters but it does not return true
> anwswer. Could someone please help me as how I can achieve this.
You need a loop:
/Date:/ && print("ok\n"), last for @lines;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
