Как я могу проанализировать JSON в Perl?

Две опции:

  1. Запускаются как root, открывают файл, затем отбрасывают полномочия с setuid. (Я не помню точных системных вызовов отбрасывания полномочий.) необходимо будет сделать это так или иначе, если Вы хотите связать с портом TCP 80 или каким-либо портом ниже 1024.
  2. Создают подкаталог как/var/log/mydaemon наличие пользовательского владения демона, как , WiseTechi заявил .

Файлы под /var/log автоматически не повернуты; вместо этого, вращением управляют /etc/logrotate.conf и файлы под /etc/logrotate.d.

9
задан Sinan Ünür 9 October 2009 в 11:11
поделиться

2 ответа

Install: XML::XML2JSON with

sudo cpan XML::XML2JSON

and then try:

use XML::XML2JSON;
my $JSON = '{"entry":{"name":"Douglas Crockford","phone":"555 123 456"}}';
my $XML2JSON = XML::XML2JSON->new();
my $Obj = $XML2JSON->json2obj($JSON);
my $XML = $XML2JSON->obj2xml($Obj);
print $XML;
10
ответ дан 4 December 2019 в 08:52
поделиться
use JSON;

my $json_string = '................';

my $deserialized = from_json( $json_string );

That's all - your JSON data is parsed and stored in $deserialized.

14
ответ дан 4 December 2019 в 08:52
поделиться
Другие вопросы по тегам:

Похожие вопросы: