<div dir="ltr"><br clear="all">Boa noite pessoal, não estou entendendo algumas partes desse programa, olhem:<br>#!/usr/bin/perl<br><br>use strict;<br>use warnings;<br>use CGI qw( :standard );<br><br><b>our ($name, $value) = split ( &quot;=&quot;, $ENV{ QUERY_STRING} );</b><br>
<br>print header(),start_html(&quot;Simple Life Corp&quot;);<br>print h1(align_center(&quot;Simple Life Corp&quot;));<br>print p(&#39;Entre com apenas uma palavra favorita sua aqui: &#39;);<br>print &#39;&lt;form method = &quot;GET&quot; action = &quot;aplicativo.pl&quot;&gt;&#39;;<br>
print &#39;&lt;input type =&quot;text&quot; name = &quot;word&quot;&gt;&#39;;<br>print &#39;&lt;input type = &quot;submit&quot; value = &quot;Submit Word&quot;&gt;&#39;;<br>if ($name eq &#39;word&#39;){<br>print p(&#39; Sua palavra favorita: &#39;,b($value) );<br>
}<br>print end_html();<br><br><br>sub align_center<br>{<br>my $align_center = shift;<br>return &quot;&lt;p align=center&gt;$align_center&lt;/p&gt;&quot;<br>}<br><br>A linha em negrito que é responsável pelo valor que eu envio da caixa chegar ao nome?<br>
Isso me confundiu completamente.<br>-- <br>Daniel de Oliveira Mantovani<br>&quot;A sede pelo aprendizado é insaciável&quot;<br><a href="http://mantovanihouse.blogspot.com/">http://mantovanihouse.blogspot.com/</a><br>------------------------------------------------------------<br>

</div>