SION0019

<B><FONT color="#0000FF">sos2.cgi # Sub Input # Line1897-1900 (本家original) </FONT></B><BR>
<B><FONT color="#0000FF">perl/subsos.cgi # Sub Input # Line42-45(dollEx) </FONT></B><BR>
<b># Sub Input #<BR>
sub input {<BR>
print qq|&lt;input type=$_[0] name=$_[1] value=&quot;$_[2]&quot;$_[3]&gt;$_[4]|; <BR>
}</b><BR>
<TEXTAREA name="textfield" cols="100" rows="5" wrap="OFF">
#=《 Input 》============#
sub input {

$label++;
print qq|<LABEL for="$label$_[1]">\n|;
print qq|<INPUT type="$_[0]" name="$_[1]" id="$label$_[1]" value="$_[2]"$_[3]>$_[4]\n|;
print qq|</LABEL>\n|;

}
</TEXTAREA>