Parse line to determine if variable is set

[CJason]

I want to parse a line of code to determine if a variable is being set or being used. For example:

A = 9

If I parse this correctly, it would tell me that "A" is being set.

HELLO = A

If I parse this correctly, it would tell me that "A" is being used.

A = A + 5

If I parse this correctly, it would tell me that "A" is being set AND used.

FYI, I can't really use:
/\bA\b\s*=/
because of this case:
HELLO(A) = 9

Does anyone have a good way of doing this? Thanks in advance!!!

 

[waiterm]

If you are reading the code into a string or array, firstly I would suggest stripping out the white space, and then read about regexing:

http://www.perldoc.com/perl5.6/pod/perlfaq6.html

If you get stuck then I'll throw in a couple of ideas.

Rob Waite

http://www.hostpipe.co.uk?src=TT

 

[uida1154]

If you want to step through the code, use the -d option:
perl -d <file.pl>