Hash im Methodenaufruf (gelöst) (Allgemeines zu Perl)

[thread]19022[/thread]

Hash im Methodenaufruf [gelöst]

Tags: perl5 OOP Methoden Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+16 replies
bianca

2014-04-12 10:11
User since
2009-09-13
7016 Artikel
BenutzerIn
Guten Morgen!
Hab meine Frage in den Code geschrieben und bitte um Hilfe:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

#!/usr/bin/perl use strict; use warnings; use 5.010; use JSON; use utf8; my %parameter = ( json_charset => 'latin1', ); my $jsoncodierung = 'latin1'; my %hash = ( test => 'öäüßÖÄÜ@€', ); print JSON->new->$jsoncodierung->encode(\%hash); # funktioniert print JSON->new->$parameter{json_charset}->encode(\%hash); # syntax error at test.pl line 16, near "$parameter{json_charset" # wie schreibt man das richtig?
Wieso funktioniert der Aufruf nur, wenn die Variable ein Skalar ist bzw. wieso nicht, wenn sie ein Hash ist?

modedit Editiert von pq: Titel: "Modulaufruf" durch "Methodenaufruf" ersetzt. Stichworte OOP, Methoden hinzugefügt
Last edited: 2014-04-13 12:24:19 +0200 (CEST)
10 print "Hallo"
20 goto 10
- +3 replies
- GwenDragon
  
  2014-04-12 10:37
  
  User since
  2005-01-17
  14748 Artikel
  Admin1
  
  Du benutzt bei den JSON-Objekten keine Methoden sondern Skalare.
  Ich kann in der Dokumentation nicht erkennen wo das erlaubt ist.
  
  Wieso JSON->new->$jsoncodierung->... im Grunde genommen von Perl zu JSON->new->latin1()->... expandiert wird, hab ich gerade nicht parat.
  Last edited: 2014-04-12 10:40:36 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - bianca
    
    2014-04-12 10:49
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    2014-04-12T08:37:35 GwenDragon
    Wieso JSON->new->$jsoncodierung->... im Grunde genommen von Perl zu JSON->new->latin1()->... expandiert wird, hab ich gerade nicht parat.
    
    Ist das nicht normal? Sollte ich das lieber nicht so machen?
    Aber wie sähe denn ein besserer Aufruf des Moduls aus der das selbe Ergebnis hat? Ich bin nicht festgelegt auf diese -> Schreibweise.
    10 print "Hallo"
    20 goto 10
  - pq
    
    2014-04-12 11:40
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    perldoc perlobj:
    
    Code: (dl )
    
    1 2 3
    
    The right side of the arrow typically is the method name, but a simple scalar variable containing either the method name or a subroutine reference can also be used.
    
    Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
    lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
- +8 replies
- GwenDragon
  
  2014-04-12 11:20
  User since
  2005-01-17
  14748 Artikel
  Admin1
  Ich würde statt
  
  Code (perl): (dl )
  
  print JSON->new->$jsoncodierung->encode(\%hash);
  
  eher so handeln:
  
  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 27 28
  
  my %hash = ( test => 'ÄÖÜß' ); my $encoding = 'utf8'; use JSON; package JSON; sub set_encoding { my $self = shift; my $encoding = shift; return eval "\$self->can($encoding) && \$self->$encoding"; } 1; my $json = JSON->new; $json->set_encoding($encoding) or warn "unknown encoding: $encoding"; print $json->encode(\%hash); print "\n"; $encoding = 'latin1'; $json->set_encoding($encoding) or warn "unknown encoding: $encoding"; print $json->encode(\%hash); print "\n"; $encoding = 'deutsch1968'; $json->set_encoding($encoding) or warn "unknown encoding: $encoding"; print $json->encode(\%hash);
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +7 replies
  - bianca
    
    2014-04-12 17:21
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Hmmm, danke dir aber ich muss relativ viele Stellen ersetzen und es wäre einfacher, wenn es nur eine Zeile wäre und nicht gleich ein halbes Script mit Fehlerbehandlung und Pi Pa Po :)
    Geht das irgendwie kürzer?
    10 print "Hallo"
    20 goto 10
    - Gast wer
      
      2014-04-12 17:38
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
      
      sub JSON::set_encoding { my ($self,$encoding)=@_; my $ok = eval { $self->can($encoding) or return 0; $self->$encoding(); return 1; }; die("UNKOWN ENCODING $encoding") unless($ok); return $self; } JSON->new->set_encoding($parameter{json_charset})->encode(\%hash);
      
      Last edited: 2014-04-12 18:36:40 +0200 (CEST)
    - +5 replies
    - Muffi
      
      2014-04-14 08:42
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Irgendwie ist die Stärke von Perl auch immer die Schwäche.
      Bei anderen Sprachen ist bei schlechtem Codedesign einfach irgendwann schluss. Bei Perl geht immer noch irgendwas.
      Das kann dann zwar keiner mehr lesen und gibt Perl seinen typischen Ruf der Unlesbarkeit, aber funktionieren tuts irgendwie.
      Aber vielleicht gibt's auch einen sehr guten Grund warum quer über den Code JSON-Encodes verteilt sind.
      
      Aber um auch was Sinnvolles beizutragen: Das sollte auch gehen.
      
      Code (perl): (dl )
      
      print JSON->can($parameter{json_charset})->(JSON->new)->encode(\%hash);
      
      1 + 1 = 10
      - +4 replies
      - bianca
        
        2014-04-14 09:43
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2014-04-14T06:42:16 Muffi
        Aber vielleicht gibt's auch einen sehr guten Grund warum quer über den Code JSON-Encodes verteilt sind.
        
        Nein, gibt es nicht. Aber auch wenn das nur an einer Stelle wäre möchte ich solche Sachen gern an zentraler Stelle in den Parametern pflegen können und nicht im Code.
        
        2014-04-14T06:42:16 Muffi
        Aber um auch was Sinnvolles beizutragen: Das sollte auch gehen.
        
        Ist das "sicherer" in Bezug auf zukünftige Perl Updates oder im Moment "nur" besser lesbar?
        10 print "Hallo"
        20 goto 10
        
        +3 replies
        
        Muffi
        
        2014-04-14 09:54
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Ich glaub, dass es weder sicherer noch besser lesbar ist. Es ist halt auch eine Möglichkeit wies geht.
        
        Quote
        Nein, gibt es nicht. Aber auch wenn das nur an einer Stelle wäre möchte ich solche Sachen gern an zentraler Stelle in den Parametern pflegen können und nicht im Code.
        
        1. Schritt
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8
        
        sub serialisiere_hash { my ($hash, $encoding) = @_; my $json = JSON->new; if ($encoding eq 'latin1') ... elsif ... }
        
        Dann ist schon mal das String nach Methodennamegeschwurbel weg.
        Als nächstes kann man sich fragen, ob es nicht irgendeine Gesetzmäßigkeit gibt welches Encoding denn gebraucht wird und ob man das wirklich jedes mal neu übergeben muss.
        Weiß es vielleicht das Objekt? Wenn ja, wäre das Serialisieren vielleicht eine Role?
        Nächste Frage: Ist serialisieren überhaupt was, was man im High-Level-Code aufrufen muss? Oder ist es vielleicht Bestandteil einer immer wiederkehrenden Aktion (z.B: save()?)
        
        Und ich trau mir fast wetten, wenn man das ganze Aufgeräumt hat sind die ganzen JSON-Encodes weg - einfach so.
        1 + 1 = 10
        
        +2 replies
        
        bianca
        
        2014-04-14 10:27
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2014-04-14T07:54:09 Muffi
        Und ich trau mir fast wetten, wenn man das ganze Aufgeräumt hat sind die ganzen JSON-Encodes weg - einfach so.
        
        Ja, aber welchen Umfang darf "aufräumen" haben, wenn es keiner bezahlt? Ein- und Ausgabe sind im Projekt zwar zentral aber in der Ausgabe ist nur Clientlesbares vorgesehen, das heißt die Module dürfen Binär, HTML oder JSON zurückgeben. Für eine vierte Rückgabe "Hash mach JSON draus" müsste nochmal einiger Aufwand reingesteckt werden, den ich scheue.
        10 print "Hallo"
        20 goto 10
        
        GwenDragon
        
        2014-04-14 10:56
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Quote
        Ja, aber welchen Umfang darf "aufräumen" haben, wenn es keiner bezahlt?
        Gute Frage. ;)
        Gar keinen, wenn es ein professionelles Projekt ist.
        Hinter Vorgängern, die unsauber und schlecht dokumentiert programmierten, ist ein scharfes Hackebeil hinter her zu werfen. Und Kunden, die den Mist weiter machen wollen, vorsichtig klar zu machen, dass ein Gepatche ohne Codeneustrukturierung später auch nru Mehrkosten erzeugt.
        
        Es wird für Nachfolgende nicht besser, die von Andren und deinen gepatchten und (möglicherweise/egal warum auch unlesbaren) Bandwurmcode warten müssen.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +4 replies
- pq
  
  2014-04-12 11:36
  User since
  2003-08-04
  12208 Artikel
  Admin1
  Code (perl): (dl )
  
  JSON->new->${ $parameter{json_charset} }->encode(\%hash)
  
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +3 replies
  - bianca
    
    2014-04-12 17:19
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    2014-04-12T09:36:11 pq
    
    Code (perl): (dl )
    
    JSON->new->${ $parameter{json_charset} }->encode(\%hash)
    
    Das bringt:
    Quote
    Can't use string ("latin1") as a SCALAR ref while "strict refs" in use at test.pl line 16.
    
    10 print "Hallo"
    20 goto 10
    - +2 replies
    - MarkusH
      
      2014-04-12 17:47
      
      User since
      2012-04-08
      161 Artikel
      BenutzerIn
      
      2014-04-12T15:19:44 bianca
      2014-04-12T09:36:11 pq
      
      Code (perl): (dl )
      
      JSON->new->${ $parameter{json_charset} }->encode(\%hash)
      
      Code (perl): (dl )
      
      JSON->new->${\$parameter{json_charset}}->encode(\%hash);
      
      Das sollte funktionieren.
      $q =~ /(bb|[^b]{2})/
      - bianca
        
        2014-04-12 18:39
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2014-04-12T15:47:52 MarkusH
        
        Code (perl): (dl )
        
        JSON->new->${\$parameter{json_charset}}->encode(\%hash);
        
        Das sollte funktionieren.
        
        ja, das ist es. Danke dir.
        10 print "Hallo"
        20 goto 10

View all threads created 2014-04-12 10:11.