use mit Schalter mit require formulieren (gelöst) (Fragen zu Perl-Modulen)

[thread]20199[/thread]

use mit Schalter mit require formulieren [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 12

Articles: hide open all | hide show old branches

+6 replies
bianca

2016-12-01 10:02
User since
2009-09-13
7016 Artikel
BenutzerIn
Guten Morgen!

Das Modul JSON kann mit Schalter -support_by_pp aufgerufen werden, sieht dann so aus:
Code (perl): (dl )

use JSON -support_by_pp;
Wie formuliert man das mit require?

Folgende Versuche sind bisher fehlgeschlagen
- require JSON -support_by_pp;
- require JSON; JSON->support_by_pp(1);
- require JSON; JSON->qw(support_by_pp);
Mehr Varianten fallen mir nicht ein. Ich bitte um Hilfe für die richtige Syntax. Danke!

Ob es geklappt hat kann man übrigens hiermit testen:
Code: (dl )

say JSON->new->escape_slash()->encode({foo => 'b/ar'}) eq '{"foo":"b\\/ar"}' ? 'klappt' : 'fail';
Last edited: 2016-12-01 14:41:47 +0100 (CET)
10 print "Hallo"
20 goto 10
- +5 replies
- Linuxer
  
  2016-12-01 10:51
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Code (perl): (dl )
  
  1 2
  
  require JSON; JSON->import('-support_by_pp');
  
  Test:
  
  Code: (dl )
  
  1 2 3 4 5 6
  
  > perl -E " require JSON; JSON->import('-support_by_pp'); say JSON->new->escape_slash()->encode( { foo => qq~b/ar~}) eq qq~{\"foo\":\"b\\/ar\"}~ ? 'klappt' : 'nicht'; " klappt
  
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - bianca
    
    2016-12-01 12:42
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Vielen Dank!
    10 print "Hallo"
    20 goto 10
  - +3 replies
  - bianca
    
    2017-04-30 08:06
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Guten Morgen!
    
    Wie kann ich in dem Syntaxschema ein sort ergänzen?
    Folgender Code wirft leider lauter Fehler, was muss ich ändern?
    
    Vielen Dank!!
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8
    
    #!/usr/bin/perl use strict; use warnings; use 5.010; require JSON; JSON->import('-support_by_pp'); my %test = (1 => 'foo',2 => 'bar'); say "Ergebnis: ".JSON->new->utf8->sort_by(sub {$JSON::PP::a <=> $JSON::PP::b})->escape_slash()->encode(\%test);
    
    10 print "Hallo"
    20 goto 10
    - +2 replies
    - Linuxer
      
      2017-04-30 11:53
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Verwende direkt JSON::PP.
      
      Siehe JSON.
      
      perldoc JSON
      
      Code: (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
      
      $JSON::KeySort $json->canonical->encode($perl_scalar) This is the ascii sort. If you want to use with your own sort routine, check the sort_by method. (Only with JSON::PP, even if -support_by_pp is used currently.) $json->sort_by($sort_routine_ref)->encode($perl_scalar) $json->sort_by(sub { $JSON::PP::a <=> $JSON::PP::b })->encode($perl_scalar) Can't access $a and $b but $JSON::PP::a and $JSON::PP::b.
      
      Speziell die Zeilen 7 und 9 sind bemerkenswert.
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
      - bianca
        
        2017-04-30 16:38
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Hab' ich das richtig umgesetzt?
        
        Code (perl): (dl )
        
        1 2 3
        
        require JSON::PP; JSON->import('-support_by_pp'); my %test = (1 => 'foo',2 => 'bar'); say "Ergebnis: ".JSON::PP->new->utf8->sort_by(sub {$JSON::PP::a <=> $JSON::PP::b})->escape_slash()->encode(\%test);
        
        10 print "Hallo"
        20 goto 10

View all threads created 2016-12-01 10:02.