Hello world/Web server: Difference between revisions
Content added Content deleted
(→Tcl: Added implementation) |
m (Attribution note) |
||
Line 81: | Line 81: | ||
} |
} |
||
}</lang> |
}</lang> |
||
=={{header|Perl}}== |
=={{header|Perl}}== |
||
Line 144: | Line 143: | ||
=={{header|Tcl}}== |
=={{header|Tcl}}== |
||
This version is adapted from [http://wiki.tcl.tk/28412 the Tcler's Wiki]. |
|||
<lang tcl>proc accept {chan addr port} { |
<lang tcl>proc accept {chan addr port} { |
||
while {[gets $chan] ne ""} {} |
while {[gets $chan] ne ""} {} |