Hi Andrea,
Thanks for your great help.
The 2nd solution is working for me...
Thanks a LOT.
Raj.
----- Original Message -----
From: Andrea Holstein <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, February 12, 2002 4:40 PM
Subject: Re: Reading Multiple lines
> In article <057501c1b305$6a15b360$[EMAIL PROTECTED]> wrote "J. Raj
Mohan"
> <[EMAIL PROTECTED]>:
>
> > Hi Andrea,
> >
> > Thanks for responding my mail.
> >
> > Actually I want to read(store it into a string) like; Begin keyword is
"<!ATTLIST" and the End
> > keyword is ">". By using these two delimiters I like/want to read the
file.
> >
> > Of the file:-
> > <!ATTLIST abbrevList
> > id ID #IMPLIED
> > linkLabel CDATA #IMPLIED
> > role CDATA #IMPLIED
> >>
> >>
> > Pls. help!!!
> > Raj.
> >
> There are >= two ways to solve:
> 1. with regexps:
>
> I assume the file is in the variable $text;
> my $start = "<!ATTLIST abbrevList";
> my $end = ">";
> $text =~ /\<!ATTLIST abbrevList\s*
> ([^\>]+)
> \>/x;
> my $what_you_want = $1;
>
> 2. If the structur of the file is exactly like above,
> including all line ends a quicker way is:
>
> my $what_you_want = '';
> open FILE, "filename" or die "Cannot open filename: $!";
> my $active = 0;
> while (<FILE>) {
> chomp;
> if ($_ eq '<!ATTLIST abbrevList') {
> $active = 1;
> next;
> }
> next unless $active;
> $_ eq '>' and last;
> $what_you_want .= "$_\n";
> }
> close FILE;
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
