in reply to Comment mark
\/\*is right, but don't put it in the character class ([...]) because it will catch / and * separately. Put it outside, for example something like:
# *** UNTESTED *** if( ($row =~/^(?:[#;*\s+]|\/\*)?\s*version:?\s+(\d+\.\d+|)/i) # *** UNTESTED ***
Ciao!
--bronto
The very nature of Perl to be like natural language--inconsistant and full of dwim and special cases--makes it impossible to know it all without simply memorizing the documentation (which is not complete or totally correct anyway).
--John M. Dlugosz
|
|---|