Perl: the Markov chain saw PerlMonks

### Re^2: P2P Golf: MoleSter

by dragonchild (Archbishop)
 on Dec 17, 2004 at 14:24 UTC ( #415633=note: print w/replies, xml ) Need Help??

```sub f{for\$w(keys%k){&t}}\$/=\$_;(\$,,\$w=\$a,%k)=splice@ARGV,0,3;socket S,2
+,1,6;bind
S,&a;sub i{\$k{\$w}=1}sub a{\$w=~/:/;pack'CxnC4x8',2,\$',split'\.',\$`}sub
+t{socket
...
listen S,5;while(@ARGV&&(\$_="\$, \$a f".shift)||accept(C,S)&&(\$_=<C>)&&c
+lose){
m!(\S*) ([e-i])([^/]*)/!s&&\$,eq\$`&&&\$2(\$w=\$1,\$3,\$')}sub e{open F,'>',\$
+3;print F
\$';close}sub g{open(F,'<',\$3)&&t\$a,"e\$3", <F>;close F}sub h{t\$_,i for
+keys%k}
```
```sub f{
for\$w(keys%k){&t}
...
sub h{
t\$_,i for keys%k
}
```
```sub f{for\$w(keys%k){&t}}\$/=\$_;(\$,,\$w=\$a,%k)=splice@ARGV,0,3;socket S,2
+,1,6;bind
S,&a;sub i{\$k{\$w}=1}sub a{\$w=~/:/;pack'CxnC4x8',2,\$',split'\.',\$`}sub
+t{socket
...
for keys%k}m!(\S*) ([e-i])([^/]*)/!s&&\$,eq\$`&&&\$2(\$w=\$1,\$3,\$')}sub e{o
+pen
F,'>',\$3;print F \$';close}sub g{open(F,'<',\$3)&&t\$a,"e\$3",<F>;close F}
}
```

Create A New User
Node Status?
node history
Node Type: note [id://415633]
help
Chatterbox?
 [Corion]: A good daystart to everybody!

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (13)
As of 2017-09-26 07:41 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
During the recent solar eclipse, I:

Results (292 votes). Check out past polls.

Notices?