[EMAIL PROTECTED] [am], on Friday, January 7, 2005 at 23:17
(+0530) wrote:
am> Found solution.
am> ================
am> $len = length($temp);
am> if ($len > 2)
am> {
am> $temp=substr($temp,$len-2,2);
am> }
am> ====================
hm, what about:
$temp = $1 if $temp /(\d\d)$/;
or
$temp = s/.*(\d\d)$/$1/;
--
...m8s, cu l8r, Brano.
[No Silicon Heaven? Then where do all the calculators go?]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
