Revision as of 15:53, 2 July 2011 (view source) rosettacode>Dkf (→‎Tcl: Added implementation) ← Older edit		Revision as of 15:55, 2 July 2011 (view source) rosettacode>Dkf m (Attribution note) Newer edit →
Line 81: } }</lang> =={{header\|Perl}}== Line 144 ⟶ 143: =={{header\|Tcl}}== This version is adapted from [http://wiki.tcl.tk/28412 the Tcler's Wiki]. <lang tcl>proc accept {chan addr port} { while {[gets $chan] ne ""} {}

Hello world/Web server: Difference between revisions

Hello world/Web server (view source)