use strict; while (<DATA>) { #OLDmy ($sign, $num, $den) = m@(-)?(\d+)/?(\d*)@; my ($sign, $num, $den) = m@(-)?(\d+)(?:/(\d+))?@; print "sign:$sign numerator:$num denominator:$den\n"; } __DATA__ 23 -35 -23/43 2/3 5/
In reply to Re: regex
by jbware
in thread How do I detect if a number has a minus sign?
by algonquin
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |