umm, why are you testing twice? Just capture the last digit (instead
of the whole version number) in the first regex.
next unless /\s+\d+\.\d+\.(\d+)\s+/;
print "$1\n"
b/c he asked two questions,
1) how to capture version string;
2) how to capture last number from version string.
surely I know testing one time is enough.
--
Chinese Practical Mod_perl book online
http://home.arcor.de/jeffpang/mod_perl/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/