Re: [PERL] Udfordring...

[Peter Makholm <sslug@sslug>]

"Frank Nørvig" <sslug@sslug> writes:

> perl -e'socket S,2,1,0;connect S,pack sa14,2,"\nD\321:\226\231";$/=select
> S;$|=print"D ! @ARGV\nQ\n"
> ;print$/ <S>=~/51.*?^(.*?)^\./sm' laptop

Basalt set forbinder den sig til en server, skriver en komando til den
hvori ordet 'laptop' indgår og endelig skriver noget af svaret ud.

> Er der nogen der kan forklare mig hvad denne sætning gør, hvor den slår op,
> og om man evt. kan slå op i andre ordbøger (evt. dansk) på denne måde?

Al logikken foregår på en server ude på internettet. Skal man bruge
andre ordbøger skal man sætte en tilsvarende server op og få den til
at forbinde sig til denne server ved at erstatte "\nD\321:\226\231"
med noget passende andet.


-- 
Hun kan jo svare på spørgsmål:
    http://www.sslug.dk/emailarkiv/forening/2003_03/msg00001.html