----- Original Message -----
From: "Mike Burnard" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, December 30, 2002 11:40 PM
Subject: macthing question...
> Hi,
>
> I'm in the midst of writing my first useful perl script. It's designed to
> pull text out of a plain text file and write a xml plist.
>
> The only trouble I'm having (so far) is getting the text out the way I want
> it.
>
> The file I'm pulling data out of is formatted like this:
>
> 010 "red"
>
> 011 "diamond"
>
> 012 "lion"
>
> 010 "blue"
>
> 012 "blue whale"
>
> 011 "emerald"
>
> So, I've got this to get specific groups out at once:
>
> while (<OLDHL>) {
> if(/^010/) {
> -- part I need help with --
> }
> }
Here's one... Should work as long as there are no '"'s in the text you are
trying to pull.
while(<OLDHL>){
if(/^(\d+) "(.*?)"/){
print $2,"\n" if($1 eq '010');
}
}
Shawn
>
> I just need to know what to put to get only the part within quotes out of
> each line. I'm going to put them into either an array, but I can figure
> that part out, its just getting only part of the line I'm having trouble
> with.
>
> I think I'll have no problem writing the xml file with printf, other than
> this small problem I'm having fun. I was proud of myself when I got all of
> the 010's to print to the screen at least!.
>
> Thanks for your help.
>
> -mike
>
>
>
> --
> 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]
