Help for this page

Select Code to Download


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

...
# For testing only
use Data::Dump;
dd \%parsed;
  2. or download this
    $ cat pm_1200636_text.txt
name    Brian
...
device cell   2009
tag   yes
tag    1
  3. or download this
    {
  Andrew => { ipad => [2009] },
  Brian  => { ipad => [2001, 2001, 2001] },
  ryan   => { cell => [2009], ipad => [2005] },
}