diff options
Diffstat (limited to 'contrib/seg/seg-validate.pl')
| -rwxr-xr-x | contrib/seg/seg-validate.pl | 56 |
1 files changed, 32 insertions, 24 deletions
diff --git a/contrib/seg/seg-validate.pl b/contrib/seg/seg-validate.pl index 9272936aef2..cb3fb9a099a 100755 --- a/contrib/seg/seg-validate.pl +++ b/contrib/seg/seg-validate.pl @@ -2,12 +2,12 @@ $integer = '[+-]?[0-9]+'; $real = '[+-]?[0-9]+\.[0-9]+'; -$RANGE = '(\.\.)(\.)?'; -$PLUMIN = q(\'\+\-\'); -$FLOAT = "(($integer)|($real))([eE]($integer))?"; +$RANGE = '(\.\.)(\.)?'; +$PLUMIN = q(\'\+\-\'); +$FLOAT = "(($integer)|($real))([eE]($integer))?"; $EXTENSION = '<|>|~'; -$boundary = "($EXTENSION)?$FLOAT"; +$boundary = "($EXTENSION)?$FLOAT"; $deviation = $FLOAT; $rule_1 = $boundary . $PLUMIN . $deviation; @@ -18,25 +18,33 @@ $rule_5 = $boundary; print "$rule_5\n"; -while (<>) { -# s/ +//g; - if ( /^($rule_1)$/ ) { - print; - } - elsif ( /^($rule_2)$/ ) { - print; - } - elsif ( /^($rule_3)$/ ) { - print; - } - elsif ( /^($rule_4)$/ ) { - print; - } - elsif ( /^($rule_5)$/ ) { - print; - } - else { - print STDERR "error in $_\n"; - } +while (<>) +{ + + # s/ +//g; + if (/^($rule_1)$/) + { + print; + } + elsif (/^($rule_2)$/) + { + print; + } + elsif (/^($rule_3)$/) + { + print; + } + elsif (/^($rule_4)$/) + { + print; + } + elsif (/^($rule_5)$/) + { + print; + } + else + { + print STDERR "error in $_\n"; + } } |