Olha eu estou tentando usar mas retorna:<br>&lt;erro&gt;<br><br>*main::47n<br><br>&lt;/erro&gt;<br><br>Olha o meu código:<br>&lt;code&gt;<br><br>#!usr/bin/perl<br><br>use strict;<br>use warnings;<br><br>palavras(&quot;a&quot;);<br>
<br>#Abre o arquivo para somente leitura<br>sub dir {<br><br>&nbsp;&nbsp; my $argvs = shift;<br>&nbsp;&nbsp; if (defined $argvs) {<br>&nbsp;&nbsp;&nbsp; open DIR, &quot;&lt;&quot;, $argvs or die &quot;Não foi possível abrir o arquivo\t erro 01 \n$!\n&quot;;<br>
&nbsp;&nbsp;&nbsp; return split(&quot; &quot;, &lt;DIR&gt; );<br>&nbsp;&nbsp; }<br><br>&nbsp;&nbsp; else {<br>&nbsp;&nbsp;&nbsp; print &quot;Você precisa esclher um arquivo\t erro 02\n&quot;;<br>&nbsp;&nbsp;&nbsp; return undef;<br>&nbsp;&nbsp; }<br>}<br><br>#Filtra as palavras<br>sub palavras {<br>
<br>&nbsp;&nbsp; my $regex = shift;<br>&nbsp;&nbsp; *palavras = &amp;dir(&quot;resposta&quot;);<br>&nbsp;&nbsp; foreach my $palavra( *palavras ) {<br>&nbsp;&nbsp;&nbsp; if ( $palavra =~ qr/$regex/i) {<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp; print $palavra;<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp; }<br>&nbsp;&nbsp; }<br>}<br><br>&lt;/code&gt;<br>
<br>[]s<br><br>Obrigado<br><div class="gmail_quote">2008/12/30 Nelson Ferraz <span dir="ltr">&lt;<a href="mailto:nferraz@gmail.com">nferraz@gmail.com</a>&gt;</span><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div class="Ih2E3d">&gt;&gt; Basta olhar para o lado direito da atribuição.<br>
&gt;&gt;<br>
&gt;&gt; *foo = [ 1, 2, 3 ]; # array @foo<br>
&gt;&gt; *foo = { bar =&gt; &#39;baz&#39; }; # hash %foo<br>
&gt;&gt; *foo = sub { &#39;hello world&#39; }; # sub foo()<br>
&gt;<br>
&gt; Entendi Nelson, mas agora fiquei empolgado, por exemplo:<br>
&gt;<br>
&gt; *foo = [ 1, 2, 3 ]; # array @foo<br>
&gt;<br>
&gt; Por que usar * se você pode usar @ ?<br>
<br>
</div>Não me lembro de ter precisado manipular a tabela de símbolos para<br>
modificar escalares, array, ou hashes.<br>
<br>
Uso este recurso apenas eventualmente, para instalar ou sobrescrever<br>
subrotinas ( como no exemplo *foo = sub { ... } ). Isso é bastante<br>
útil.<br>
<div><div></div><div class="Wj3C7c">_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br>
</div></div></blockquote></div><br><br clear="all"><br>-- <br><a href="http://mantovanihouse.blogspot.com/">http://mantovanihouse.blogspot.com/</a><br><br>-------(\_------------_/)-----------<br>-------)--(----------)--(-----------<br>
------(----(---------)----)----------<br>-------)----(-------)----(-----------<br>-------(----(-------)----)-----------<br>--------\_-(\\.---.//)-_/------------<br>----------\)&#39; -8--8- &#39;(/--------------<br>-----------/------------\---------------<br>
----------(--)--------(--)--------------<br>------------(_c__c_)----------------<br>----------------------------------------<br>