Re: Perl array question

[Marius Gavrilescu]

anirban.adhik...@gmail.com (Anirban Adhikary) writes:

> Hi List
> I have the following array ---
> ('1900-0','1900-1','NULL','NULL','1900-2','1900-4','1902-5','1902-6','1902-7','1902-8');
> There are two part for each element separated by a dash.
> first one known as earfcn and second one is pcid .
> The requirement is  For the same “earfcn”, concatenate the “pcid” values
> using "&" separator between values.
> so the output will be like this
> EARFCN=1900,PCID=0&1&2&4;
> EARFCN=1902,PCID=5&6&7&8;

Use a hash from earfcn to an array of pcids.


#!/usr/bin/perl
use v5.14;
use warnings;

my @arr = ('1900-0','1900-1','NULL','NULL','1900-2','1900-4','1902-5','1902-6','1902-7','1902-8');

my %hash;

for (@arr) {
	my ($earfcn, $pcid) = split /-/;
	next unless $pcid; # Skip the NULLs
	$hash{$earfcn} //= [];
	push @{$hash{$earfcn}}, $pcid;
}

for my $earfcn (keys %hash) {
	say "EARFCN=$earfcn,PCID=", join '&', @{$hash{$earfcn}};
}

-- 
Marius Gavrilescu

signature.asc
Description: PGP signature