On Tue, Apr 1, 2008 at 11:09 AM, Rob Dixon <[EMAIL PROTECTED]> wrote:

[snip]

>
>   my ($lastdigit) = $number =~ /.*([0-9])/;
>
>  gives you the last decimal digit (even if there are non-decimals after
>  it).
>

Better yet:

    my ($last) = $number =~ /.*(\d)/;

Let Perl worry about what is and isn't a digit.

Best,

-- jay
--------------------------------------------------
This email and attachment(s): [ ] blogable; [ x ] ask first; [ ]
private and confidential

daggerquill [at] gmail [dot] com
http://www.tuaw.com http://www.downloadsquad.com http://www.engatiki.org

values of β will give rise to dom!

Reply via email to