Re: Re: Re: Re: Auto linking to words in a text file

[belize]

Example #1 is what I want.

I don't expect the link file to be more than 50 or 60 pairs.

Any idea what kind of overhead on CPU this might have if the returned text file is about 7000 characters in size?

[arturo]

Basic code (assuming the file you're reading consists *ONLY* of word/link pairs on a single line ... I'd suggest separating them with something other than a pipe, too, but whatever.)

    # assuming the link data file is open
my $keywords;

while (<LINKDATA>) {

# regex matches (everything to the left of the pipe), puts 
# it in $1, then (everything to the right of the pipe) 
# and puts that in $2

        /([^|]+)\|(.*)/;
        $keywords{$1} = $2;
}

This should be reasonably efficient in terms of speed and not so bad on memory if your list of words isn't too large.
HTH,

Philosophy can be made out of anything. Or less -- Jerry A. Fodor

[turnstep]

The code:

  /([^|]+)\|(.*)/;
  $keywords{$1} = $2;

should really be:

/([^|])\|(.*)/ and $keywords{$1}=$2;

- never use $1 and friends unless you actually get a match, or your results may be unpredictable.

[belize]

Thanks arturo, I'll work through the code and give it a try.

Appreciate your input.