Re: [MacPerl] Search::Dict?

[Richard Gordon <gordon@mindspring.com>]

On 2/12/1999 at 18:06, brech@vision.ee.ethz.ch (Christian Brechbuehler) wrote:

> This one works for me:
> 
>   open F, $file                      or  die "$0, opening $file to read: $!";
>   look(*F, $key, $dict, $fold) == -1 and die "$0, can't look: $!";
>   $_ = <F>;           # read that one line
>   close F;
>   print "$key not found; next is: " unless /^$key\b/;
>   print;

Yes, this does work properly, however I've noticed that if while using -w, I
deliberately set $key to something that is outside of the range of data in a
test file so that it searches to EOF without a match and there is not a "next"
record, I wind up with:

# Use of uninitialized value.
File '<AppleEvent>'; Line 27
Abel not found; next is:

That's not a big problem because of the way that this stuff will be used (html
links that pass along $key), but I'd be interested to know how to deal with this
kind of thing for future reference.

Richard Gordon
Gordon Consulting & Design
Voice: 770-565-8267  Fax: 770-971-6887



***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch