<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 ( "=", $ENV{ QUERY_STRING} );</b><br>
<br>print header(),start_html("Simple Life Corp");<br>print h1(align_center("Simple Life Corp"));<br>print p('Entre com apenas uma palavra favorita sua aqui: ');<br>print '<form method = "GET" action = "aplicativo.pl">';<br>
print '<input type ="text" name = "word">';<br>print '<input type = "submit" value = "Submit Word">';<br>if ($name eq 'word'){<br>print p(' Sua palavra favorita: ',b($value) );<br>
}<br>print end_html();<br><br><br>sub align_center<br>{<br>my $align_center = shift;<br>return "<p align=center>$align_center</p>"<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>"A sede pelo aprendizado é insaciável"<br><a href="http://mantovanihouse.blogspot.com/">http://mantovanihouse.blogspot.com/</a><br>------------------------------------------------------------<br>
</div>