Ищу простой парсер JSON на перле

Как запасной вариант всегда можешь себе копирнуть код JSON::PP

Ну и быстрый поиск по metacpan выдал: JSON::Tiny

всегда одномерный ассоциативный массив.

Массив чего? Если там цифры, то чем плох split?

Дай пример json'а. Может там действительно самому навелосипедить несложно.

в json-е всегда одномерный ассоциативный массив.

Тогда с этим справится как `Data::Dumper` Так и наколеночный лисапет.

Массив чего? Если там цифры, то чем плох split?

конфиг. цифры буквы урлы всякие

чем плох split?

а ничем, я на нем и навелосипедил. но я корявый, думал мож все знают про какое проверенное решение, только мне не рассказывали )

Дай пример json'а.

{
  "DSS.EPGReceiver.ListenerAddress": "224.100.0.13:12346",
  "DSS.EPGReceiver.Mode": "Unicast",
  "DSS.EPGServer.ListenerAddress": "127.0.0.1:1001",
  "MWARE.DSS.BOOTSTRAP.LISTENER_PORT": "54321",
  "DHCPC.IPADDR": "192.168.216.50",
  "NORFLASH.MAC_ADDRESS": "00:03:e6:a5:96:90",
  "NORFLASH.DHCP": "false",
  "SETTINGS.GFX_RESOLUTION": "1080 HD",
  "SYSTEM.SOFTWARE_VERSION": "VITEC-EZTV-8.1.0.816",
  "AMINO_SYSTEM.FlashMounted": "true",
  "SETTINGS.HDMI_AUDIO_FORMAT": "",
  "NORFLASH.DNS": "192.168.216.252",
  "NORFLASH.SUBTITLES": "false",
  "DVR_FILEMANAGER_ENABLED": "Disabled",
  "SETTINGS.IR_BRAND": "",
  "MWARE.DSS.UPGRADE_MODE": "Manual",
  "NORFLASH.OUTPUT_RESOLUTION": "1080P50",
  "SYSTEM.EMS_STB_PROFILE": "DEFAULT",
  "SYSTEM.STB_MODEL": "EP5",
  "MWARE.DSS.BOOTSTRAP.LISTENER_IP": "224.100.0.3",
  "NORFLASH.IPADDR": "192.168.216.50",
  "DSS.EndpointHDR": "false",
  "DVR_FILEMANAGER_PASSWORD": "",
  "NORFLASH.SERIAL_ID": "72-5425992",
  "DHCPC.NETMASK": "255.255.255.0",
  "DHCPC.DNS": "192.168.216.252",
  "NETCONF.TIME_ZONE": "Asia/Kolkata",
  "NORFLASH.NETMASK": "255.255.255.0",
  "MWARE.DSS.ENDPOINT_CLUSTER": "eztv-test.vikra",
  "NORFLASH.TIME_SERVER": "eztv-win2016t3.eztv.vikra",
  "DHCPC.GATEWAY": "192.168.216.254",
  "SETTINGS.HDMI_VIDEO_FORMAT": "",
  "SETTINGS.BROWSER_HOMEPAGE": "https://192.168.216.220/eztv/tvmiddleware/index.html",
  "ENTONE_WEBENGINE.enjs_system_pref.MWARE%2EDSS%2EEZTV_AD": " ",
  "NORFLASH.GATEWAY": "192.168.216.254",
  "NORFLASH.OUTFMT": "HDMI"
}

лисапед:

sub parse_json {
    my $json_data = @in{'json_data'};
    my @json_pairs = split /,/, $json_data;
    foreach $json_pair (@json_pairs) {
      $json_pair =~ /"(.*?)"\:"(.*?)"/;
      $json_vars{$1} = $2;
    }
  }

конфиг. цифры буквы урлы всякие

Так конфиг - это объект (ассоциативный массив) а не просто массив.

а ничем, я на нем и навелосипедил. но я корявый, думал мож все знают про какое проверенное решение, только мне не рассказывали )

Ну, split там, где в строках не встречаются разделители.

лисапед:

И на чём он лагает? Запятые в строках?

а я и говорил про ассоциативный массив, а не просто про массив

Ну, split там, где в строках не встречаются разделители.

ну, вроде, нигде не встречаются, вроде все работает. но вот это вот «вроде» не годится же

И на чём он лагает?

ну, например, я его сначала дрессировал на тестовых данных (которые запостил), оно работало, а потом дал боевые — не сработало (оказалось браузер все в одну строку гонит, а у меня перевод строки в разделителе был).

ну я пофиксил, так бог знает чего я еще не учел

Возьми любую json либу тогда, да не парься. А вообще, кроме запятых в строке я проблем не вижу. Ну и скобки в начале/конце обрезать.

ну я пофиксил, так бог знает чего я еще не учел

Ну скорее всего ещё \" только осталось учесть. Ибо у вас даже числа и booleans как строки, и вряд ли будут коментарии...

JSON:Tiny - быстрая, простая, работает. Она у меня всегда подключается.

https://metacpan.org/source/DAVIDO/JSON-Tiny-0.58/lib/JSON/Tiny.pm

Ты можешь использовать в проекте любые cpan модули, а затем собрать его в один файл

Чтобы запятые внутри строки не мешали, можно перед парсингом заменить их на что-нибудь.

# Что-то типа
s/",/"\n/g
# Или даже
s/","/"\n"/g

Но чтобы уж точно наверняка, конечно, лучше притащить уже упоминавшийся здесь JSON::Tiny.

Попробуй туда что нить XS поставить и заюзать JSON::MaybeXS оно автоматом детектит наилучшие и потом уже откатываться если что на решение на перле .

JSON::Tiny + App::FatPacker