time string parsing question

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: time string parsing question by Roy Johnson (Monsignor) on Jun 02, 2005 at 19:38 UTC
Assuming you really wanted the minutes from $time and not from $string, `my ($time, $minute) = $string =~ /,(\d+:(\d+):\d+)/;` [download] Caution: Contents may have been coded under pressure.	[reply] [d/l]
Re: time string parsing question by VSarkiss (Monsignor) on Jun 02, 2005 at 21:06 UTC
I mainly agree with TedPride above: if it's fixed-length as it appears, just use substr. But if you want to use split, remember that the first argument is a regexp, not a string (everybody else in this thread seems to have forgotten): `my $minute = (split /:\|,/, $string)[4];`or `my $minute = (split /[:,]/, $string)[4];` Do not rebuke them with harsh words ... but rather lead them gently - with URLs - so that they may learn wisdom.	[reply] [d/l] [select]
Re: time string parsing question by tlm (Prior) on Jun 02, 2005 at 19:37 UTC
Shorter is not always better... But you can always do `my ( $minute, $time ) = ( $string =~ /^\d+:(\d+).?,(\d+:\d+:\d+)/ )` [download] BTW, I think* the above is consistent with what you posted, though it makes no sense to me that `$minute` does not come from the same substring as `$time`. the lowliest monk	[reply] [d/l]
Re: time string parsing question by TedPride (Priest) on Jun 02, 2005 at 20:50 UTC
Since the data / time is obviously fixed-length, there's no need for a two-step process or regex. `my $string = '01:01:2000,14:01:12,1.584167'; my $min = substr($string, 14, 2); print $min;` [download] Or if you really MUST use split: `my $string = '01:01:2000,14:01:12,1.584167'; my $min = (split /:/, (split /,/, $string)[1])[1]; print $min;` [download]	[reply] [d/l] [select]
Re: time string parsing question by GrandFather (Saint) on Jun 03, 2005 at 03:03 UTC
This may be what you want if you are sure the time string format won't change too much: `my ($time, $minute) = $string =~ /,(\d\d:(\d\d):\d\d)/g;` Read more... Full example code (379 Bytes) Raise your eyes and look out of the rut.	[reply] [d/l] [select]
Re: time string parsing question by PerlBear (Hermit) on Jun 02, 2005 at 19:32 UTC
Give this a try. It utilizes a combination of split and substr to dig out the minutes string piece that you are looking for. `#!/usr/bin/perl -w use strict; my $string="01:01:2000,14:01:12,1.584167"; my $minute=substr(((split(/\,/,$string))[1]),3,2); print "MINUTE: $minute\n";` [download]	[reply] [d/l]
Re: time string parsing question by sh1tn (Priest) on Jun 02, 2005 at 20:24 UTC
`my $minutes = (split /:/, (my $time = (split /\,/, $string)[1]))[1];` [download]	[reply] [d/l]
Re: time string parsing question by graff (Chancellor) on Jun 03, 2005 at 02:17 UTC
If the input string is always "MM:DD:YYYY,HH:MI:SS,FLOAT", the the minutes field ("MI") is always the fourth colon-delimited substring (regardless of the number of digits in each field). So this is all you need: `my $string = "01:01:2000,14:01:12,1.584167"; my $minute = (split( /:/, $string ))[3];` [download]	[reply] [d/l]