
<html><head><style type="text/css"><!-- DIV {margin:0px;} --></style></head><body><div style="font-family:times new roman, new york, times, serif;font-size:12pt"><br>&nbsp;&nbsp;&nbsp; Oi Amigos, duvidazinha conceitual :<br><br>#!/usr/bin/perl -w<br>use strict;<br>package test;<br>my %dataTest=( 1&nbsp;&nbsp; =&gt; 'TEST 1',<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp; &nbsp;&nbsp; &nbsp; 2&nbsp;&nbsp; =&gt; 'TEST 2',<br>&nbsp;&nbsp;&nbsp;&nbsp; &nbsp; &nbsp;&nbsp;&nbsp; &nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; 3&nbsp;&nbsp; =&gt; 'TEST 3',<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; 9&nbsp;&nbsp; =&gt; 'TEST 9',<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp; &nbsp; &nbsp; &nbsp;&nbsp;&nbsp; &nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

 10&nbsp; =&gt; 'TEST 10',<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp; &nbsp; &nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; 13&nbsp; =&gt; 'TEST 13',<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 43&nbsp; =&gt; 'TEST 43',<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp; &nbsp; &nbsp;&nbsp; &nbsp;&nbsp;&nbsp; 16&nbsp; =&gt; 'TEST 16',<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp; &nbsp; &nbsp;&nbsp; 44&nbsp; =&gt; 'TEST 44',<br>);<br>print $dataTest{1},"\n\n";<br>package main;<br>print $test::dataTest{1},"\n\n";<br><br>&nbsp;&nbsp;&nbsp; Este script resulta nisto :<br><div><br>daniel@sun4w_nodeF:~/bin$ ./testNS.pl<br>TEST 1<br><br>Use of uninitialized value in print at ../testNS.pl line 16.<br><br>&nbsp;&nbsp;&nbsp; Agora o

 mesmo script com uma pequena troca de "my" para "our" :<br><br>#!/usr/bin/perl -w<br>

use strict;<br>

package test;<br>our %dataTest=( 1&nbsp;&nbsp; =&gt; 'TEST 1',<br>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp; &nbsp;&nbsp; &nbsp;&nbsp;&nbsp; 2&nbsp;&nbsp; =&gt; 'TEST 2',<br>

&nbsp;&nbsp;&nbsp; &nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 3&nbsp;&nbsp; =&gt; 'TEST 3',<br>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 9&nbsp;&nbsp; =&gt; 'TEST 9',<br>

&nbsp;&nbsp;&nbsp; &nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 10&nbsp; =&gt; 'TEST 10',<br>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 13&nbsp; =&gt; 'TEST 13',<br>

&nbsp;&nbsp;&nbsp; &nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 43&nbsp; =&gt; 'TEST 43',<br>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 16&nbsp; =&gt; 'TEST 16',<br>

&nbsp;&nbsp;&nbsp; &nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 44&nbsp; =&gt; 'TEST 44',<br>

);<br>

print $dataTest{1},"\n\n";<br>

package main;<br>

print $test::dataTest{1},"\n\n";<br>

<br>

&nbsp;&nbsp;&nbsp; E o resultado deste script é :<br>

<br>daniel@sun4w_nodeF:~/bin$ ./testNS.pl<br>

TEST 1<br>

<br>

TEST 1<br>

<br>&nbsp;&nbsp;&nbsp; O correto é o uso do "our" mesmo ou usando "my" eu consigo de alguma forma enxergar a variável dataTest no namespace main ?<br>&nbsp;&nbsp;&nbsp; Obrigado.<br><br><br></div>Daniel Ž Antunes<br><em><font color="#007f40">profissional de informática</font></em><br><em><font color="#007f40">msn</font></em> daniel.legend@terra.com.br<br><em><font color="#007f40">mobile</font></em> + 55 11 8965 2999<br><em><font color="#007f40">gnu/linux user</font></em> #238553<div><br></div></div><br>


      <hr size=1>Novo <a href="http://yahoo.com.br/oqueeuganhocomisso ">Yahoo! Cadę?</a> - Experimente uma nova busca. </body></html>