<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>