Match integer or floating point numbers, then parse triplets

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

I'm surprised there arent plenty of nodes of info on matching any type of number. But anyway, my problem has 2 steps

GOAL 1

# have $1 contain everything but the leading "0:"
# and the trailing ",$intOrFloat" ... in this case ",4.00"

# http://search.cpan.org/~nwclark/perl-5.8.3/pod/perlretut.pod
$intOrFloat = qr/^[+-]?\ *(\d+(\.\d*)?|\.\d+)([eE][+-]?\d+)?$/;

$_  = "0:20,1.00,g,1.00;65,4.00,g,4.00";
/0:(.)+,$intOrFloat/ and warn $1;
[download]

# (for some reason $intOrFloat is not matching)

GOAL 2

# $1 contains a series of triplets separated by semicolons
# Each triplet consists of price,quantity,unit_of_measure
# The goal is to create an array of hashrefs with this data:
# { price => ..., quantity => ..., unit_of_measure => ... }
[download]

Comment on Match integer or floating point numbers, then parse triplets Select or Download Code

Replies are listed 'Best First'.
Re: Match integer or floating point numbers, then parse triplets by Corion (Patriarch) on Sep 14, 2011 at 19:11 UTC
Maybe you want to use a CSV parser instead? Text::CSV_XS? Also, `(.)+` does not do what you seem to think it does. Maybe `(.+)` does more of what you want?	[reply] [d/l] [select]
Re^2: Match integer or floating point numbers, then parse triplets by AnomalousMonk (Archbishop) on Sep 14, 2011 at 19:42 UTC
`$intOrFloat = qr/^[+-]?\ (\d+(\.\d)?\|\.\d+)([eE][+-]?\d+)?$/;` [download] metaperl: Also note that the definition of `$intOrFloat` given in the OP requires that the integer or float be the only thing in the string (i.e., it must start at the start `^` and end at the `$` end), and the example string given in the OP `$_ = "0:20,1.00,g,1.00;65,4.00,g,4.00";` and the pattern used to match it `/0:(.)+,$intOrFloat/` both have other stuff at the start. Update: metaperl: Good luck with your homework assignment.	[reply] [d/l] [select]
Re: Match integer or floating point numbers, then parse triplets by metaperl (Curate) on Sep 14, 2011 at 20:04 UTC
Thank you Regexp::Common - `use Regexp::Common qw /number/; # GOAL: # have $1 contain everything but the leading "0:" # and the trailing ",$intOrFloat" ... in this case ",4.00" $_ = "0:20,1.00,g,1.00;65,4.00,g,4.00"; /0:(.+),($RE{num}{int}\|$RE{num}{real})/ and warn $1; # SUBGOAL: # $1 contains a series of triplets separated by semicolons # Each triplet consists of price,quantity,unit_of_measure # The goal is to create an array of hashrefs with this data: # { price => ..., quantity => ..., unit_of_measure => ... }` [download] subgoal is a piece of cake. The mantra of every experienced web application developer is the same: thou shalt separate business logic from display. Ironically, almost all template engines allow violation of this separation principle, which is the very impetus for HTML template engine development. -- Terence Parr, "Enforcing Strict Model View Separation in Template Engines"	[reply] [d/l]
Re^2: Match integer or floating point numbers, then parse triplets by GrandFather (Saint) on Sep 15, 2011 at 04:39 UTC
"The cake is a lie." True laziness is hard work	[reply]

Back to Seekers of Perl Wisdom