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
