Mike Burnard wrote:
>
> Hi,
Hello,
> 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!.
while ( <OLDHL> ) {
if ( /^010\s+ # match '010' and one or more whitespace
" # match a " character
([^"]+) # match and capture one or more characters
# that is not a " character
/x ) {
$text = $1; # parenthesized match is in $1
}
}
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
