Perl'de bir karma içeriğini nasıl yazdırabilirim?

Karma değerimi ayrılmış kova sayısı # olarak ayırmaya devam ediyorum. Karma içeriğimi nasıl yazdırabilirim?

Bir whiledöngü kullanılmadan en çok tercih edilir (örneğin, bir astar en iyi olurdu).

Veri :: Damper senin arkadaşın.

use Data::Dumper;
my %hash = ('abc' => 123, 'def' => [4,5,6]);
print Dumper(\%hash);

çıktı olacak

$VAR1 = {
          'def' => [
                     4,
                     5,
                     6
                   ],
          'abc' => 123
        };

Kolay:

print "$_ $h{$_}\n" for (keys %h);

Zarif, ama aslında% 30 daha yavaş (!):

while (my ($k,$v)=each %h){print "$k $v\n"}

Kullanmadan nasıl yazdırabilirsiniz Data::Dumper

print "@{[%hash]}";

Hata ayıklama amacıyla sık sık kullanacağım YAML.

use strict;
use warnings;

use YAML;

my %variable = ('abc' => 123, 'def' => [4,5,6]);

print "# %variable\n", Dump \%variable;

Sonuçlar:

# %variable
---
abc: 123
def:
  - 4
  - 5
  - 6

Diğer zamanlarda kullanacağım Data::Dump. Sizden daha güzel bir biçimde çıktı alabilmesi için çok sayıda değişken ayarlamanıza gerek yoktur Data::Dumper.

use Data::Dump = 'dump';

print dump(\%variable), "\n";

{ abc => 123, def => [4, 5, 6] }

Son zamanlarda Data::Printerhata ayıklama için kullanıyorum .

use Data::Printer;
p %variable;

{
    abc   123,
    def   [
        [0] 4,
        [1] 5,
        [2] 6
    ]
}

(Sonuç bir terminalde çok daha renkli olabilir)

Burada gösterdiğim diğer örneklerin aksine, bu açıkça sadece görüntüleme amaçlı olacak şekilde tasarlanmıştır. Bağlı bir değişkenin veya bir nesnenin yapısını dökerseniz daha kolay görünür.

use strict;
use warnings;

use MTie::Hash;
use Data::Printer;

my $h = tie my %h, "Tie::StdHash";
@h{'a'..'d'}='A'..'D';
p %h;
print "\n";
p $h;

{
    a   "A",
    b   "B",
    c   "C",
    d   "D"
} (tied to Tie::StdHash)

Tie::StdHash  {
    public methods (9) : CLEAR, DELETE, EXISTS, FETCH, FIRSTKEY, NEXTKEY, SCALAR, STORE, TIEHASH
    private methods (0)
    internals: {
        a   "A",
        b   "B",
        c   "C",
        d   "D"
    }
}

Bu sorunun cevabı, karma değerinizde ne olduğuna bağlıdır. Basit bir karma varsa

print map { "$_ $h{$_}\n" } keys %h;

veya

print "$_ $h{$_}\n" for keys %h;

ancak referanslarla doldurulmuş bir karmanız varsa, bu referansları yürütebilecek ve makul bir çıktı oluşturabilecek bir şey elde edersiniz. Referansların bu şekilde yürümesine normalde serileştirme denir. Farklı stilleri uygulayan birçok modül var, daha popüler olanlardan bazıları:

• Data::Dumper
• Data::Dump::Streamer
• YAML::XS
• JSON::XS
• XML::Dumper

Aslında nedeniyle Data::Dumperçekirdek Perl kitaplığının parçasıdır, muhtemelen en popüler olduğu; ancak, bazı diğer modüllerin sunabileceği çok iyi şeyler var.

En sevdiğim: Smart :: Yorumlar

use Smart::Comments;
# ...

### %hash

Bu kadar.

Döngü:

foreach(keys %my_hash) { print "$_ / $my_hash{$_}\n"; }

fonksiyonel

map {print "$_ / $my_hash{$_}\n"; } keys %my_hash;

Ama saf zerafet için, wrang-wrang'ları seçmeliydim. Kendi kodum için, foreach'mi seçerdim. Veya tetro'nun Dumper'ı kullanın.

Deneyimlerimdeki en kolay yol sadece Dumpvalue kullanmaktır .

use Dumpvalue;
...
my %hash = { key => "value", foo => "bar" };
my $dumper = new DumpValue();
$dumper->dumpValue(\%hash);

Bir cazibe gibi çalışır ve Perl hata ayıklayıcısının yaptığı gibi çıktıyı biçimlendirmek için endişelenmenize gerek yoktur (hata ayıklama için harika). Ayrıca, Perl modüllerinin stok setinde Dumpvalue bulunur, bu nedenle bir çeşit acımasız proxy'nin arkasındaysanız (işteyim gibi) CPAN ile uğraşmak zorunda kalmazsınız.

Bilgiçlikçi olmak ve bir satırda tutmak istiyorsanız (kullanım ifadeleri ve shebang olmadan), o zaman bir tür domuzcuk tetromino cevabından geri döner ve öneririm:

print Dumper( { 'abc' => 123, 'def' => [4,5,6] } );

Temp değişkenini atlamak için anonim karma kullanmak dışında özel bir şey yapmamak;)

İyi görmek için karma her elemanı için bir boşluk ekleyin:

print map {$_ . " "} %h, "\n";

Gerçekten bir liner kodu anahtarları sıralamak istiyorum:

print "$_ => $my_hash{$_}\n" for (sort keys %my_hash);