How can I remove the title name of each unique number in Data::Dumper in perl?

Question

I use Data::Dumper to catch uniqe number in each element.

#!perl

use warnings;
use strict;
use Data::Dumper;
$Data::Dumper::Sortkeys = 1;

my @names = qw(A A A A B B B C D);
my %counts;
$counts{$_}++ for @names;
print Dumper (\%counts);

exit;

This is output.

$VAR1 = {
          'A' => 4,
          'B' => 3,
          'C' => 1,
          'D' => 1
        };

How can I remove the title name of each unique number to get output like this format?

$VAR1 = { 4 ,3 ,1 ,1 }

Welcome to SO! It is hard to retype your code when you already did it. Please, post code, not images. — David García Bodego, Dec 02 '19 at 03:59

ikegami · Accepted Answer · 2019-12-02T07:48:38.457

Presuming you want the counts in descending order, you could use the following:

printf "\$VAR1 = { %s};\n",
   join ',', 
      map "$_ ",
         sort { $b <=> $a }
            values(%counts);

If instead you want the counts sorted by key,

printf "\$VAR1 = { %s};\n",
   join ',', 
      map "$counts{$_} ",
         sort
            keys(%counts);

Either way, that's a really weird format. Square brackets would make more sense than curly ones.

score 1 · Answer 2 · answered Dec 02 '19 at 07:36

1

One of many ways to get desired result

use strict;
use warnings;

use feature 'say';

my @names = qw( A A A A B B B C D );

my %counts;

$counts{$_}++ for @names;

my @values = map { $counts{$_} } sort keys %counts;

say join(',', @values);

output

4,3,1,1

answered Dec 02 '19 at 07:36

Polar Bear

6,762
1
5
12

1

As alternative you can use `my @values = @counts{sort keys %counts};` instead `map` approach. – Polar Bear Dec 02 '19 at 07:55
Or you can avoid intermediate storage `@values` and `say join(',', @counts{sort keys %counts});` instead; – Polar Bear Dec 02 '19 at 07:57

How can I remove the title name of each unique number in Data::Dumper in perl?

2 Answers2