sos2.cgi # Sub Input # Line1897-1900 (ËܲÈoriginal)
perl/subsos.cgi # Sub Input # Line42-45(dollEx)
# Sub Input #
sub input {
print qq|<input type=$_[0] name=$_[1] value="$_[2]"$_[3]>$_[4]|;
}
#=======¡Ô 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|; }