Perl Guru Forums: Perl Programming Help: Regular Expressions: Re: [dsatish] Regular expressions needed..: Edit Log

CGI/Perl Guide | Learning Center | Forums | Advertise | Login

Site Search: in


	MAIN INDEX	SEARCH POSTS	WHO'S ONLINE	LOG IN

Home: Perl Programming Help: Regular Expressions: Re: [dsatish] Regular expressions needed..: Edit Log

KevinR
Veteran

Apr 20, 2009, 11:21 PM

Views: 2185

Re: [dsatish] Regular expressions needed..

It would be nice to see some effort on your part first to try and solve your requirements, even if it does not work.

Code

$num = 12.89383787; 
if ($num =~ /(\d\d\.\d\d)/) { 
   $num = $1; 
} 
else { 
   $num = substr $num,0,2; 
} 
print $num;

Same thing using the ternary operator:

Code

$num = 1289383787; 
$num =  $num =~ /(\d\d\.\d\d)/ ? $1 : substr $num,0,2; 
print $num;

-------------------------------------------------

(This post was edited by KevinR on Apr 20, 2009, 11:23 PM)

Edit Log:
Post edited by KevinR (Veteran) on Apr 20, 2009, 11:23 PM

Search for (options)