Erm, how about...
$hr = $1;
$min = $2;
$sec = $3;
instead? Just a thought. :-)
| Ken Barker <[EMAIL PROTECTED]>
Sent by: [EMAIL PROTECTED] 03/21/2006 08:33 PM
|
To: "Naresh Bajaj" <[EMAIL PROTECTED]>, [email protected] cc: Subject: Re: Extracting numbers from a string |
How about using a regex....
if($string =~ /PT(\d+)H(\d+)M(\d+).(\d+)/){
$1=$hr;
$2=$min;
$3=$sec;
$time = ($hr*3600)+($min*60)+$sec;
}
untested....
At 07:28 PM 3/21/2006, Naresh Bajaj wrote:
>Hello all,
>I have one string PT2H46M7.815S.
>It is in hours, minutes and seconds. I want to extract number between
>the alphabets and
>stored in seconds. How should I approach this problem.
>Right now I am using the split command which is not much elegant way.
>Crude method:
>extractinterval(PT7.815S)
>sub extractinterval{
> my $interval =$_[0];
> my @temp =split //,$interval;
> my $output = $temp[2].$temp[3].$temp[4].$temp[5];
> }
>Is there any other way of doing.
>Thanks,
>Naresh
>--
>Naresh Bajaj, Intern,
>Cardiac Rhythm Disease Management,
>Medtronic Inc.,
>763-514-3799
>
>_______________________________________________
>ActivePerl mailing list
>[email protected]
>To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________ ActivePerl mailing list [email protected] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
