in reply to How to check if a word is reserved

Check keywords.h, located in the CORE directory in your perl tree. Contains a #define line for each keyword. Just parse it, strip off the unneeded cruft, place the words in a hash and there you go!

HTH

Replies are listed 'Best First'.
Re: Re: How to check if a word is reserved
by Popcorn Dave (Abbot) on Jun 13, 2003 at 04:30 UTC
    That's cool! I never knew about that, but I do have one question.

    I've got the following lines in my keywords.h file: 

    #define KEY_x            249
#define KEY_xor            250
#define KEY_y            251

    [download]

    xor I get as that's a function, but x and y are reserved? What gives?

    There is no emoticon for what I'm feeling now.

[reply]
[d/l]

      It's hard to spot when they look paired like that, as they do wholly different things. Proof by example:

      perl -e 'print "x is a reserved word!\n" x 3;'
      perl -e '$a = "y is a _synonym_ for tr\n"; $a =~ y/_//d; print $a;'

      perl -pe '"I lo*`+$^X$\"$]!$/"=~m%(.*)%s;$_=$1;y^`+*^e v^#$&V"+@( NO CARRIER'

[reply]
[d/l]
[select]
        Yes, now that you show me that, I see. That hadn't even occured to me last night. Must have been too tired. Thanks!

        There is no emoticon for what I'm feeling now.

[reply]

In Section Seekers of Perl Wisdom