Αναζήτηση στο www.whitepages.gr (ήταν: Re: Ελληνικά στο Wine)

[George Notaras]

On Sat, 2007-05-26 at 15:28 +0300, Αλέξανδρος Διαμαντίδης wrote:

> #!/bin/sh
> wget -O- -q --post-data=x_tel=$1 http://www.whitepages.gr/resultsX.asp |\
>         iconv -f iso-8859-7 | perl -nwe 's/ / /g;
>                 /<td class="text-black".*<b>(.*)<\/b>/
>                         and print "Name: $1\n" and $found=1;
>                 if ((/<div align="left">/ and $found==1) .. /<\/div>/) {
>                         s/<[^>]+>//g;
>                         s/^\s+//;
>                         s/\s+$//;
>                         /[^\s]/ and print "Address: $_\n"; }
>                 /<div align="center"><b>(.*)<br><\/b>/
>                         and print "Number: $1\n\n" and $found=0;'
> 


Glooorious! ;)

ΥΓ: ίσως να ήταν χρήσιμη και η επιλογή -U του wget.