videosite/JSSimpleArrayParser.pm

   1 #
   2 # A helper class for parsing textual JS hashes into perl
   3 # hashes
   4 #
   5 # This parser is based on simple regexps.
   6 #
   7
   8 package videosite::JSSimpleArrayParser;
   9
  10 use videosite::JSArrayParser;
  11 @ISA = qw(videosite::JSArrayParser);
  12
  13 use strict;
  14
  15 sub new {
  16     my $class = shift;
  17     my $self = $class->SUPER::new();
  18
  19     return bless($self, $class);
  20 }
  21
  22 sub parse {
  23     my $self = shift;
  24     my $s = shift;
  25     my $ret;
  26
  27     if ($s =~ /{(.*)}/) {
  28         my $str = $1;
  29         while ($str =~ /"(\S+)":\s+"([^"]*)"(,\s*)?/g) {
  30           $ret->{$1} = $2;
  31         }
  32     } else {
  33         return undef;
  34     }
  35     return $ret;
  36 }
  37
  38 1;