Pushing formatted data to an array in Perl

Question

I have a string of formatted data that I would like to push to an array, but my Perl skills are lacking.

The string is:

'ShoreTelCallStateInfo' => [
    {
       'callStateDetail' => 'Active',
       'callState' => 'OnHold',
       'callInfo' => {
             'callerIDName' => 'Joel Lewis',                                          
             'callID' => '66766',
             'lineID' => '3947',
             'connectedIDName' => 'VM-Forward',
             'calledID' => '2105',
             'callerID' => '1955',
             'isInbound' => 'false',
             'calledIDName' => 'VM-Forward',
             'callReason' => 'None',
             'callUniqueID' => '2488927099',
             'connectedID' => '2105',
             'isExternal' => 'false',
             'callGUID' => '{00030000-67CA-537E-3FD8-0010492377D9}'
        }
    },
    {
        'callStateDetail' => 'Active',
        'callState' => 'Connected',
        'callInfo' => {
             'callerIDName' => 'Lewis Joel',
             'callID' => '73202',
             'lineID' => '3947',
             'connectedIDName' => 'Lewis Joel',
             'calledID' => '1955',
             'callerID' => '+1385#######',
             'isInbound' => 'true',
             'calledIDName' => 'Joel Lewis',
             'callReason' => 'None',
             'callUniqueID' => '2193468845',
             'connectedID' => '+1385#######',
             'isExternal' => 'true',
             'callGUID' => '{00030000-6809-537E-3FD8-0010492377D9}'
        }
     }
  ]
};

I have tried to simply create the array and assign the string, but this is not working:

my @magicarray = $string;

Is there a quick way to initialize this array with the formatted data?

That's not a string. If you add a { to the beginning, it would be an anonymous hash. Maybe you meant a "scalar"? — choroba
– choroba, Commented Mar 31, 2015 at 15:43
But it might be related to a SOAP object: stackoverflow.com/questions/29370434/… — Sobrique
– Sobrique, Commented Mar 31, 2015 at 15:45
@JoelLewis: You're asking the wrong question again! I tried to explain that it is almost never useful to print the Data::Dumper representation of an object. Most of the information is in the methods that the object provides. Please explain what you're trying to do using the SOAP API, and give example sources if possible so that we can test solutions ourselves — Borodin
– Borodin, Commented Mar 31, 2015 at 16:04

choroba · Accepted Answer · 2015-03-31 16:07:34Z

2

Just prepend the missing left curly bracket and call eval. Before doing so, make sure the string doesn't contain any commands (imagine what system 'rm -rf /' would cause).

my $string = q( 'ShoreTelCallStateInfo' => [
                                     {
                                       'callStateDetail' => 'Active',
# ETC...
                                     }
                                   ]
        };);
my @array = eval "{$string";

answered Mar 31, 2015 at 16:07

choroba

245k27 gold badges221 silver badges304 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

Borodin · Accepted Answer · 2015-03-31 16:30:24Z

1

It is difficult to help without understanding the data better. But I suggest this

my $state_info = $result->{ShoreTelCallStateInfo};

for my $state_item ( @$state_info ) {
  say $state_item->{callInfo}{callerID};
}

when worked with your sample data gives

1955
+1385#######

Is that close to what you want?

answered Mar 31, 2015 at 16:30

Borodin

127k9 gold badges72 silver badges146 bronze badges

3 Comments

June Lewis Over a year ago

This is exactly what I'm looking for, however for some reason $state info is blank. Resulting in no loop. I can't figure out why state info is not getting the data. Also I think you posted this to the wrong question of mine.

Borodin Over a year ago

I apologise for posting against the wrong question, but your new post was very similar to this one. Please pull back a long way and explain the nature of the data source as well as why you are using Data::Dumper to serialise, and then eval to deserialise. You motives may be valid but it is impossible to tell from what you have written. I realise that many things seem obvious to you, but are part of the system with which you are working. We cannot knowany of that, so please imagine that we are from Jupiter and know programming but nothing of your system

June Lewis Over a year ago

Thank you for being patient and trying to help. I have updated my origional question: stackoverflow.com/questions/29370434/… I hope it is a bit easier to understand what is going on.

Collectives™ on Stack Overflow

Pushing formatted data to an array in Perl

2 Answers 2

Comments

3 Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

3 Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related