Re: Problems with formatting the results of my regex

Why make it more complicated than it needs to be?

#!/usr/bin/perl -w
use strict;

my $in ="20120704 00:05:53.46;CmdTask(0);EV;FBLdxPreAlignment rtn=0, Y
+offset=-4278   ";

#desired: 20120704,00:05:53.46,,,-4278 

my ($num, $time, $offset) = $in =~ /\s*(\d+)\s+([\d:.]+).*=([-\d]+)\s*
+$/;

print "$num,$time,,,$offset\n";
__END__
prints:
20120704,00:05:53.46,,,-4278
[download]

Comment on Re: Problems with formatting the results of my regex Download Code

Replies are listed 'Best First'.
Re^2: Problems with formatting the results of my regex by superwombat (Acolyte) on Jul 07, 2012 at 08:19 UTC
Thanks so much for the additional help. I know my Regexes are not as streamlined as they could/should be, and I really appreciate the advice on how to improve them beyond just fixing the issue I was having.	[reply]
Re^2: Problems with formatting the results of my regex by monsoon (Pilgrim) on Jul 07, 2012 at 07:53 UTC
Doesn't match this: "20120704 00:05:53.46;CmdTask(0);EV;FBLdxPreAlignment rtn=0, Yoffset=-4278.25". The more I look at it the more I think the regex for $2 was supposed to match floating point numbers.	[reply]
Re^3: Problems with formatting the results of my regex by superwombat (Acolyte) on Jul 07, 2012 at 08:08 UTC
Exactly, needs to match the possibility of a floating point number.	[reply]
Re^3: Problems with formatting the results of my regex by Marshall (Canon) on Jul 09, 2012 at 04:42 UTC
The ".25" wasn't defined in the input spec, but this is fine addition that makes things more flexible.	[reply]