Hi All,
I already know of a way to do the following, but I want to know the
simplest way to do this in perl:
I have an input string which is of the following form:
((a+b)*c)*(e+f*(g+h-i*(j+k)))+u
I want to know how to split it easily so that I end up with an array
@tokens, which has the following contents:
['(', '(', 'a', '+', 'b', ')', '*', 'c', ')', '*', '(', 'e', '+', 'f',
'*', '(', 'g', '+', 'h', '-', 'i', '*', '(', 'j', '+', 'k', ')', ')',
')', '+', 'u']
I tried the following:
my @tokenSplit=split("[(\+),(\*),(\(),(\))]", $ARGV[0]);
That didn't work.
where each of the alphabetical letters above can be complex strings,
but only [a-zA-Z0-9]*. For example, the following string is also
acceptable input:
((numberOfApples*priceOfApples)+(numberOfOranges - (numberOfBananas -
numberOfPlaintains)*17))
Any help is appreciated.
Thanks.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
