Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

Re: P2P Golf: MoleSter

by bgreenlee (Friar)
on Dec 16, 2004 at 16:30 UTC ( #415397=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    use IO::Socket;($t,$s,$u,$p,$x)=@ARGV;if($t eq"server"){$p&&($p{$p}++,
    +map{$_ ne
    $u&&$p{$_}++}f($p,2,$u));while($c=new IO::Socket::INET(LocalAddr=>$u,R
    +euse=>1,
    ...
    $m)=@_;$k=new IO::Socket::INET($h)||return;print$k "$s\n$q\n$m",define
    +d$m?"\n":
    '';$q>1?chomp(@r=<$k>):do{@r=();while(<$k>){chomp;($f,$e)=split'/';pus
    +h@r,[$f,$e
    ]if!$q|!-e$f;next if!$q|-e$f;read$k,$b,$e;open F,">$f";print F$b;close
    +}};@r}
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (10)
As of 2014-09-22 08:59 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (185 votes), past polls