Echo server: Difference between revisions
→{{header|Perl 6}}
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: update calling convention) |
|||
Line 1,663:
}
}</lang>
Async version:
<lang perl6>react {
whenever IO::Socket::Async.listen('0.0.0.0', 12321) -> $conn {
whenever $conn.Supply.lines -> $line {
$conn.print( $line ) ;
}
}
}
</lang>
=={{header|PHP}}==
| |||