On Fri, 5 Jan 2001, Paul Lussier wrote:
> Here's another solution:
>
> $foo = '1.2.3a-4b.5.c6';
>
> $foo =~ s/\W//g;
>
> while ($x = chop ($foo) ) {
> unshift @foo,$x;
> }
This fails for the case where a version number component is greater then a
single digit. For example: 2.2.18 yields (2,2,1,8).
> Granted, by now you've already solve the problem, but like I said before,
>
> TIMTOWTDI
There are always incorrect ways to do it. ;-)
--
Ben Scott <[EMAIL PROTECTED]>
Net Technologies, Inc. <http://www.ntisys.com>
Voice: (800)905-3049 x18 Fax: (978)499-7839
**********************************************************
To unsubscribe from this list, send mail to
[EMAIL PROTECTED] with the following text in the
*body* (*not* the subject line) of the letter:
unsubscribe gnhlug
**********************************************************
