<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>

<body>

<style type="text/css" style="display:none;"><!-- P {margin-top:0;margin-bottom:0;} --></style>

<div id="divtagdefaultwrapper" style="font-size:12pt;color:#000000;font-family:Calibri,Arial,Helvetica,sans-serif;" dir="ltr">

<p>Eu resolvi o problema, era so eu retornar um array de resultados da recurção [caso tenha] e incluir juntar com o array da interação anterior sempre que terminar uma das recurções.<br>

<br>

Quanto a dúvida da string, seria forçar uma string vazia (uma string que não está guardando nenhuma referência) virar um array;<br>

<br>

my @a = qw(a b c d e);</p>

<p>my $b = \@a; #isso é uma string com o endereço de memoria do array (referÊncia)<br>

<br>

my $b;</p>

<p>@$b = qw(a b c d e); #isso é um array forçado<br>

<br>

mas a dúvida é, o que fica em $b?<br>

Pelo que me parece ele cria automaticamente uma referência pra um array anonimo que dereferenciado por @$b

<br>

<br>

O que me leva a crer que<br>

my @a = qw(a b c d e);</p>

<p>my $b = \@a;</p>

<p><br>

</p>

<p>é o mesmo que<br>

<br>

my $b ;</p>

<p>@$b = qw(a b c d e);j<br>

</p>

</div>

<hr style="display:inline-block;width:98%" tabindex="-1">

<div id="divRplyFwdMsg" dir="ltr"><font face="Calibri, sans-serif" style="font-size:11pt" color="#000000"><b>From:</b> Rio-pm <rio-pm-bounces+guedes_1000=hotmail.com@pm.org> on behalf of Andre Carneiro <andregarciacarneiro@gmail.com><br>

<b>Sent:</b> Friday, March 24, 2017 4:54:22 PM<br>

<b>To:</b> Perl Mongers Rio de Janeiro<br>

<b>Subject:</b> Re: [Rio-pm] (sem assunto)</font>

<div> </div>

</div>

<div>

<div dir="ltr">Creio que você esteja pensando nisso errado!<br>

<br>

Se vc tem uma String em $S, você não tem uma referência para array @A. Se você quer uma referência do array @A em $S, você pode fazer:<br>

<br>

my $S = \@A;<br>

<br>

Eu sugiro que você use Data::Printer ou mesmo Data::Dumper para ver o conteúdo das variáveis.<br>

<br>

Quanto ao problema da string, não sei se entendi o que vc quer. Vou dizer como transformar uma string em array sem usar 'join'.<br>

<br>

<code><br>

use strict;<br>

use warnings;<br>

use feature qw/say/;<br>

use Data::Printer colored => 1;<br>

<br>

my $s = "WHATEVER";<br>

my @A = split //,$s;<br>

<br>

print p @A;<br>

<br>

<br>

<br>

</code><br>

<br>

<br>

</div>

<div class="gmail_extra"><br>

<div class="gmail_quote">2017-03-22 19:14 GMT-03:00 Aureliano Guedes <span dir="ltr">

<<a href="mailto:guedes_1000@hotmail.com" target="_blank">guedes_1000@hotmail.com</a>></span>:<br>

<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">

<div dir="ltr">

<div id="m_315937130601290449divtagdefaultwrapper" style="font-size:12pt;color:#000000;font-family:Calibri,Arial,Helvetica,sans-serif" dir="ltr">

<p>Olá monges,<br>

<br>

Estou com uma série de dúvidas relacionada a uma rotina que estou fazendo;<br>

<br>

Dado um hash de arrays eu preciso construir uma hierarquia não redundante dos valores desse array.<br>

<br>

Tudo esta explicado melhor em :<br>

<a href="http://pastebin.com/64fJvYr6" class="m_315937130601290449OWAAutoLink" id="m_315937130601290449LPlnk751684" disabled="" target="_blank">http://pastebin.com/64fJvYr6</a><br>

</p>

<p><br>

</p>

<p>Duas dúvidas surgiram meio essa questão<br>

1- Como forçar uma string virar um array sem fazer join dos valores, sendo que a string não está guardando uma referência?<br>

Algo como:<br>

my $s;<br>

@$s = qw(a b c d e);</p>

<p><br>

</p>

<p>2- Se eu tenho uma string $S que guarda uma referencia para um array @A, essa string está dentro de uma rotina e a rotina é recursiva, e precisa enviar os valores da string S para a recursão, o que deve ser enviado é a string $S ou o array @$S?

<br>

</p>

<p>sub teste{</p>

<p>my ($S) = @_;</p>

<p>teste(\@$S) # ou simplesmente $S?<br>

}<br>

<br>

Desde já grato.</p>

<p>Att,<br>

acp<br>

</p>

</div>

</div>

<br>

______________________________<wbr>_________________<br>

Rio-pm mailing list<br>

<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>

<a href="http://mail.pm.org/mailman/listinfo/rio-pm" rel="noreferrer" target="_blank">http://mail.pm.org/mailman/<wbr>listinfo/rio-pm</a><br>

</blockquote>

</div>

<br>

<br clear="all">

<div><br>

</div>

-- <br>

<div class="gmail_signature" data-smartmail="gmail_signature">André Garcia Carneiro<br>

Software Engineer<br>

(11)982907780</div>

</div>

</div>

</body>

</html>