Interesting, I'm working on a similar thing.
I've found it useful to use the $1, $2, etc variables. So try something
like:
if( $line =~ /\"([\w\s]*)\"/ )
{
$array[i] = $1;
}
I'm not sure if all that (like the escaped ") is necessary; I'm just
starting myself.
On Mon, 30 Dec 2002, Mike Burnard wrote:
> 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 --
> }
> }
>
> 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]
