Daten mit Config::Tiny einlesen und mit JSON::PP als JSON ausgeben (gelöst) - #146257 (Fragen zu Perl-Modulen)

renee

2011-03-06 11:23

User since
2003-08-04
14371 Artikel
ModeratorIn

JSON::PP erwartet, dass das Objekt eine TO_JSON-Methode bereitstellt (ist auch so für allow_blessed dokumentiert).

Wenn es Dir wirklich nur um die Werte geht, könntest Du es so machen:

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;
use Config::Tiny;
use JSON::PP;

my $config_file = 'test.ini';
my $config_obj  = Config::Tiny->new;
my $config      = $config_obj->read( $config_file );

my $json_obj    = JSON::PP->new;

my %hash = %{$config};

print $json_obj->encode( \%hash );

Da das Objekt von Config::Tiny ja eine Hashreferenz ist, kannst Du es in einen Hash dereferenzieren. Dann übergibst Du an encode einfach die Referenz auf diesen Hash.

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/