Thanks to all for your kind support.
On Wed, May 6, 2015 at 1:39 PM, Илья Рассадин <elcaml...@gmail.com> wrote:
> HI, Anirban.
>
> Regexp and hash of arrays can help you.
>
> my @a =
>
> ('1900-0','1900-1','NULL','NULL','1900-2','1900-4','1902-5','1902-6','1902-7','1902-8');
>
> my %result;
> foreach (@a) {
> next if $_ eq 'NULL';
> my ($earfcn, $pcid) = /^(\d+)-(.+)$/;
> push @{$result{$earfcn}}, $pcid;
> }
>
> say "EARFCN=$_,PCID=" . join ("&", @{$result{$_}}) . ";" for sort keys
> %result;
>
> Outcome is exatly what you want
> EARFCN=1900,PCID=0&1&2&4;
> EARFCN=1902,PCID=5&6&7&8;
>
>
> ср, 6 мая 2015 г. в 10:25, <beginners-digest-h...@perl.org>:
>
>>
>> beginners Digest 6 May 2015 07:20:38 -0000 Issue 4811
>>
>> Topics (messages 125337 through 125337):
>>
>> Perl array question
>> 125337 by: Anirban Adhikary
>>
>> Administrivia:
>>
>> To subscribe to the digest, e-mail:
>> <beginners-digest-subscr...@perl.org>
>>
>> To unsubscribe from the digest, e-mail:
>> <beginners-digest-unsubscr...@perl.org>
>>
>> To post to the list, e-mail:
>> <beginners@perl.org>
>>
>>
>> ----------------------------------------------------------------------
>>
>>
>>
>> ---------- Forwarded message ----------
>> From: Anirban Adhikary <anirban.adhik...@gmail.com>
>> To: beginners <beginners@perl.org>
>> Cc:
>> Date: Wed, 6 May 2015 12:49:53 +0530
>> Subject: Perl array question
>> 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;
>>
>> I am not able to generate any idea how to adress this isuue. Please give
>> me some starting point.
>>
>> Best Regards
>> Anirban.
>>
>>
