Re: How to check if a word is reserved

[jsprat]

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

[Popcorn Dave]

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

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.

[Chmrr]

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'

[Popcorn Dave]

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.