RE: [PERL] Udfordring...

["Jesper Dalberg" <sslug@sslug>]

-bash-2.05b$ telnet miranda.org 2628
Trying 209.58.150.153...
Connected to miranda.org.
Escape character is '^]'.
220 miranda.org dictd 1.7.0/rf on Linux 2.2.19 <auth.mime>
<sslug@sslug>
D ! laptop
150 1 definitions retrieved
151 "laptop" wn "WordNet (r) 1.7"
laptop
     n : a portable computer small enough to use in your lap [syn:
{laptop
         computer}]
.
250 ok [d/m/c = 1/0/35; 0.000r 0.000u 0.000s]

/Jesper

> -----Original Message-----
> From: Frank Nørvig [mailto:sslug@sslug 
> Sent: 25. marts 2003 12:29
> To: sslug@sslug
> Subject: [PERL] Udfordring...
> 
> 
> Hejsa,
> 
> Jeg har modtaget følgende perl-sætning, som jeg har meget 
> svært ved at gennemskue. Ikke desto mindre, så fungerer den 
> som opslag i en engelsk
> ordbog:
> 
> 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
> 
> Erstat evt. laptop med et andet engelsk ord.
> 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?
> 
> Mvh Frank
> 
> 
>