fork download
copy 
  1. #!/usr/bin/env perl
  2.  
  3. use strict;
  4. use warnings;
  5.  
  6. while (<DATA>) {
  7.     chomp;
  8.  
  9.     # A1 => An integer between 1 and 99, without leading zeros.
  10.     #      (Although zero can appear by itself.)
  11.     #
  12.     # A2 => A optional fractional component that may contain no more
  13.     #       than two digits.
  14.     #
  15.     # -OR-
  16.     #
  17.     # B1 => The integer 100.
  18.     #
  19.     # B2 => A optional fractional component following that may
  20.     #       consist of one or two zeros only.
  21.     #
  22.  
  23.     if (/^(?:(?:[0-9]|[1-9]{1,2})(?:,[0-9]{1,2})?|(?:100)(?:,0{1,2})?)$/) {
  24.     #           ^^^^^^^^A1^^^^^^    ^^^^^A2^^^^      ^B1    ^^^B2^^
  25.  
  26.         print "* [$_]\n";
  27.     } else {
  28.         print "  [$_]\n";
  29.     }
  30. }
  31.  
  32. __DATA__
  33. 0
  34. 01
  35. 11
  36. 99
  37. 100
  38. 101
  39. 0,0
  40. 0,00
  41. 01,00
  42. 0,000
  43. 99,00
  44. 99,99
  45. 100,0
  46. 100,00
  47. 100,000
  48. 100,01
  49. 100,99
  50. 101,00
  51.  
Success #stdin #stdout 0s 3696KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
* [0]
  [01]
* [11]
* [99]
* [100]
  [101]
* [0,0]
* [0,00]
  [01,00]
  [0,000]
* [99,00]
* [99,99]
* [100,0]
* [100,00]
  [100,000]
  [100,01]
  [100,99]
  [101,00]
https://ideone.com/Cd20ch
language:
Perl (perl 5.28.1)
created:
10 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!