Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Re: P2P Golf: MoleSter

by jonadab (Parson)
on Dec 17, 2004 at 04:16 UTC ( #415549=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    $/=$_;$(=shift;$a=shift;i(shift);socket S,2,1,6;bind S,a($a);listen
    S,5;while(@ARGV&&($_="$( $a f".shift)||accept(C,S)&&($_=<C>)&&close
    ...
    keys%k}sub t{socket X,2,1,6;(connect X,a($w=shift))?print
    X"$( $_[0] $_[1]/$_[2]"and close X:$k{$w}=$7}sub
    e{open F,">$_[1]";print F $_[2];close F}
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://415549]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (9)
As of 2014-11-20 21:25 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (101 votes), past polls