Einfache Möglichkeit, Perl-Array zu drucken? (mit ein wenig Formatierung)

Gibt es eine einfache Möglichkeit, ein Perl-Array mit Kommas zwischen den einzelnen Elementen auszudrucken?

Eine for-Schleife zu schreiben ist ziemlich einfach, aber nicht ganz elegant ... wenn das Sinn macht.

Verwenden Sie einfach join():

# assuming @array is your array:
print join(", ", @array);

Sie können verwenden Data::Dump:

use Data::Dump qw(dump);
my @a = (1, [2, 3], {4 => 5});
dump(@a);

Produziert:

"(1, [2, 3], { 4 => 5 })"

Wenn Sie für die Art von Klarheit programmieren, die von jemandem verstanden wird, der gerade erst mit Perl anfängt, sagt das traditionelle Konstrukt, was es bedeutet, mit einem hohen Maß an Klarheit und Lesbarkeit:

$string = join ', ', @array;
print "$string\n";

Dieses Konstrukt ist in dokumentiert perldoc -fjoin.

Mir hat jedoch immer gefallen, wie einfach es $,macht. Die spezielle Variable $"dient zur Interpolation und die spezielle Variable $,zur Liste. Kombinieren Sie eine der beiden Optionen mit dynamischen Bereichsbeschränkungen local, um Welligkeitseffekte im gesamten Skript zu vermeiden:

use 5.012_002;
use strict;
use warnings;

my @array = qw/ 1 2 3 4 5 /;

{
    local $" = ', ';
    print "@array\n"; # Interpolation.
}

ODER mit $,:

use feature q(say);
use strict;
use warnings;

my @array = qw/ 1 2 3 4 5 /;
{
    local $, = ', ';
    say @array; # List
}

Die speziellen Variablen $,und $"sind in Perlvar dokumentiert . Das localSchlüsselwort und wie es verwendet werden kann, um die Auswirkungen der Änderung des Werts einer globalen Interpunktionsvariablen einzuschränken, wird wahrscheinlich am besten in perlsub beschrieben .

Genießen!

Vielleicht möchten Sie auch Data :: Dumper ausprobieren . Beispiel:

use Data::Dumper;

# simple procedural interface
print Dumper($foo, $bar);

Überprüfen Sie das Data::PrinterModul auf Inspektion / Debugging . Es soll nur eins und eins tun:

Anzeige von Perl-Variablen und -Objekten auf dem Bildschirm, ordnungsgemäß formatiert (von einem Menschen zu überprüfen)

Anwendungsbeispiel:

use Data::Printer;  
p @array;  # no need to pass references

Der obige Code könnte Folgendes ausgeben (mit Farben!):

   [
       [0] "a",
       [1] "b",
       [2] undef,
       [3] "c",
   ]

Sie können es einfach print.

@a = qw(abc def hij);

print "@a";

Sie erhalten:

abc def hij

# better than Dumper --you're ready for the WWW....

use JSON::XS;
print encode_json \@some_array

Verwenden von Data::Dumper:

use strict;
use Data::Dumper;

my $GRANTstr = 'SELECT, INSERT, UPDATE, DELETE, LOCK TABLES, EXECUTE, TRIGGER';
$GRANTstr    =~ s/, /,/g;
my @GRANTs   = split /,/ , $GRANTstr;

print Dumper(@GRANTs) . "===\n\n";

print Dumper(\@GRANTs) . "===\n\n";

print Data::Dumper->Dump([\@GRANTs], [qw(GRANTs)]);

Generiert drei verschiedene Ausgabestile:

$VAR1 = 'SELECT';
$VAR2 = 'INSERT';
$VAR3 = 'UPDATE';
$VAR4 = 'DELETE';
$VAR5 = 'LOCK TABLES';
$VAR6 = 'EXECUTE';
$VAR7 = 'TRIGGER';
===

$VAR1 = [
          'SELECT',
          'INSERT',
          'UPDATE',
          'DELETE',
          'LOCK TABLES',
          'EXECUTE',
          'TRIGGER'
        ];
===

$GRANTs = [
            'SELECT',
            'INSERT',
            'UPDATE',
            'DELETE',
            'LOCK TABLES',
            'EXECUTE',
            'TRIGGER'
          ];

Dies ist vielleicht nicht das, wonach Sie suchen, aber hier ist etwas, das ich für einen Auftrag getan habe:

$" = ", ";
print "@ArrayName\n";

Die Karte kann auch verwendet werden, ist aber manchmal schwer zu lesen, wenn viele Dinge vor sich gehen.

map{ print "element $_\n" }   @array; 

Ich habe jedoch nicht versucht, unten zu rennen. Ich denke, das ist ein kniffliger Weg.

map{print $_;} @array;