Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/env perl

...
print "\n*** New hash (\%parsed) ***\n";
use Data::Dump;
dd \%parsed;
  2. or download this
    *** Counts ***
A - 3
...
  A => ["Desc1 On/Off", "Desc3 Momentary", "Desc4 On/Off"],
  B => ["Desc2 Momentary", "Desc5 On/Off"],
}
  3. or download this
    *** Counts ***
B - 2
...
  A => ["Desc3 Momentary", "Desc1 On/Off", "Desc4 On/Off"],
  B => ["Desc5 On/Off", "Desc2 Momentary"],
}