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

[thread]16032[/thread]

Daten mit Config::Tiny einlesen und mit JSON::PP als JSON ausgeben [gelöst]

Leser: 13

Articles: hide open all | hide show old branches

+4 replies
sitescriptor

2011-03-04 23:02
User since
2009-08-09
105 Artikel
BenutzerIn
Hallo, nach langer Zeit des Mitlesens muss ich mal wieder eine Frage stellen.
Ich habe das Gefühl, dass ich hier etwas falsch sehe oder einfach nicht verstehe:
Das Objekt Dotcar liest mit Config::Tiny eine INI-Datei ein. Das Ergebnis ist korrekt und wird in $Self->{'tinyobj'} festgehalten.
Dann will ich $Self->{'tinyobj'} mittels JSON::PP als JSON ausgeben. Diese Umwandlung klappt nicht, entweder bekomme ich "null" oder die Fehlermeldungen $Self->{'tinyobj'} sei ein Scalar oder ein Objekt, je nachdem welche Einstellungen ich für JSON::PP wähle.
Unten der sehr abgespeckte Code und der zughörige Dump:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

package Sitescriptor::Module::Metatest::Dotcar; use Thirdparty::Config::Tiny; use Thirdparty::JSON::PP; # # das uebliche new() etc..... # sub upload_handler { my $Self = shift; #---- $Self->{'tinyobj'} = Config::Tiny->new(); # Open the config $Self->{'tinyobj'} = Config::Tiny->read( $Self->{'tinyfilename'} ); # Create a config return ; } sub json_handler { my $Self = shift; #---- if( exists $Self->{'tinyobj'} ) { $Self->{'json'} = JSON::PP->new->ascii->allow_nonref->allow_blessed->encode( $Self->{'tinyobj'} ); } return; }
Der Dump:
Code (perl): (dl )

1 2 3 4 5 6

Sitescriptor::Module::Metatest::Dotcar(Self); = bless( { "json" => "null", "tinyfilename" => "/Users/g/htdocs/_root_/aikxde/cgi-bin/tmp/20110304201025_1081-0.car", "tinyobj" => bless( { ... daten hier ... }, 'Config::Tiny_mod' ) }, 'Sitescriptor::Module::Metatest::Dotcar' )
Packe ich da etwas grundsätzlich falsch an??
- +3 replies
- 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 )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
  
  #!/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/
  - +2 replies
  - renee
    
    2011-03-06 11:25
    
    User since
    2003-08-04
    14371 Artikel
    ModeratorIn
    
    Ein anderer Weg wäre natürlich, eine TO_JSON-Methode für das Config::Tiny-Objekt zu schreiben... Ist aber aufwändiger und je nach Anwendungsfall nicht notwendig.
    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/
    - sitescriptor
      
      2011-03-06 12:38
      
      User since
      2009-08-09
      105 Artikel
      BenutzerIn
      
      2011-03-06T10:25:17 renee
      Ein anderer Weg wäre natürlich, eine TO_JSON-Methode für das Config::Tiny-Objekt zu schreiben... Ist aber aufwändiger und je nach Anwendungsfall nicht notwendig.
      
      ...ich werde mich hüten... :-)
      
      2011-03-06T10:23:54 renee
      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.
      
      In die Richtung hatte ich auch schon gedacht:
      
      Code (perl): (dl )
      
      \%{ $Self->{'tinyobj'}}
      
      Klappt aber so nicht: "--->encountered object...."
      Mit Zwischenschritt nach Deinem Beispiel geht es:
      
      Code (perl): (dl )
      
      1 2 3
      
      my $json_obj = JSON::PP->new(); my %hash = %{$Self->{'tinyobj'}}; $Self->{'json'} = $json_obj->encode( \%hash );
      
      Wo ist der Unterschied?
      Danke Renee!

View all threads created 2011-03-04 23:02.