Re: [PERL] Udfordring...

[Kaare Rasmussen <sslug@sslug>]

> perl -e'socket S,2,1,0;connect S,pack sa14,2,"\nD\321:\226\231";$/=select
> S;

Opretter en socket, forbinder den til port 2628 på 209.58.150.153, klar til 
input.

> $|=print"D ! @ARGV\nQ\n"

Spørger efter det ord, du giver som argument. Port 2628 er "dict".

> ;print$/ <S>=~/51.*?^(.*?)^\./sm' 

Skriver ud med lidt prettyprinting.

> og om man evt. kan slå op i andre ordbøger (evt. dansk) på denne måde?

Dunno.

-- 
Kaare Rasmussen            --Linux, spil,--        Tlf:        3816 2582
Kaki Data                tshirts, merchandize      Fax:        3816 2501
Howitzvej 75               Åben 12.00-18.00        Email: sslug@sslug
2000 Frederiksberg        Lørdag 12.00-16.00       Web:      www.suse.dk