string - hash of hashes perl

¿Hay un "hash to string" integrado en Perl?

Question

Voy a aprender Perl de un fondo de Python donde la siguiente conversión de hash a string está integrada en el lenguaje:

>>> d = {''a'': 1, ''b'': 2, ''c'': 3}
>>> str(d)
"{''a'': 1, ''c'': 3, ''b'': 2}"

¿Hay un módulo incorporado y / o que tenga una subrutina con salida a lo largo de las líneas de:

"(''a'' => 1, ''b'' => 2, ''c'' => 3)"

Extrañamente, una búsqueda en la web de perl "hash to string" no aparece nada en la línea que estoy buscando. ¡Gracias!

Answer 1

Existe el módulo Data::Dumper que una forma de hacer este tipo de transformación.

Answer 2

Sin embargo, otra solución Swallow:

sub pp {
  my $h = shift();
  qq[{${/(join'','',map"$_=>$h->{$_}",keys%$h)}}]
}
print pp({a => 1, b => 2, c => 3});

Pero usa Data::Dumper lugar.

Para un resultado muy sofisticado, puede usar también:

use Data::Dumper;
use Perl::Tidy;
sub pp {
        local $Data::Dumper::Terse    = 1;
        local $Data::Dumper::Indent   = 0;
        my $source = Dumper(@_);
        my $result;
        Perl::Tidy::perltidy(
                source      => /$source,
                destination => /$result,
                argv        => [qw(-pbp -nst)]
        );
        return $result;
}

Si prefieres algunas teclas, primero deberías utilizar este enfoque (quiero primero el type y luego el segundo):

    local $Data::Dumper::Sortkeys = sub {
            [   sort {
                            if    ( $b eq ''type'' )     {1}
                            elsif ( $a eq ''type'' )     {-1}
                            elsif ( $b eq ''position'' ) {1}
                            elsif ( $a eq ''position'' ) {-1}
                            else                       { $a cmp $b }
                            } keys %{ $_[0] }
            ];
    };

Answer 3

Use Data :: Dump en lugar de Data :: Dumper. Es básicamente lo mismo, excepto sin ese molesto $VAR1 = ... cruft:

use Data::Dump "pp";
print pp({a => 1, b => 2, c => 3});

Produce:

{ a => 1, b => 2, c => 3 }

Si está en Windows, Data :: Dump viene preinstalado con ActivePerl desde la versión 5.8.

Answer 4

use Data::Dumper;
local $Data::Dumper::Terse = 1;
my $str = Dumper({a => 1, b => 2, c => 3});

Answer 5

Ver también JSON :

#!/usr/bin/perl
use warnings; use strict;
use JSON;

my $data = {a => 1, b=> 2, c => 3};

print to_json($data);

Esto produce:

{"c":3,"a":1,"b":2}

Answer 6

Varias de las soluciones anteriores tienen un problema si tiene el potencial para estructuras de varios niveles.

Específicamente esta bandera:

$Data::Dumper::Terse    = 1;

Como se indica en la página de Perldoc para Data :: Dumper, la bandera "corta" podría generar resultados parseables no perl.

Si posiblemente vas a tener estructuras con varias profundidades, lo mejor sería usar:

$Data::Dumper::Indent = 0;

Que se garantiza que perl será analizable por eval, lo que hace una manera muy fácil de hacer serialización a texto plano ...