samegutt n00b
Joined: 16 Jun 2003 Posts: 26 Location: Oslo, Norway
|
Posted: Thu Aug 21, 2003 12:12 pm Post subject: Fint script for telefonkatalogen.no |
|
|
Hepp!!
Fant dette lure perl-scriptet som gjør oppslag i telefonkatalogen. Kan være av interesse for den noen og enhver:
http://forum.hardware.no/...osv
Ex:
Code: |
localhost: ~$ tlf -f hans -l hansen -k oslo
Hansen, Hans, 0104 Oslo, 971 17 479
Hansen, Hans, Drammensveien 2, 0169 Oslo, 481 05 293
Hansen, Hans, Skovv 2 B, 0257 Oslo, 906 21 839
Hansen, Hans, Markveien 12, 0550 Oslo, 980 17 442
...osv
|
Code: |
#!/usr/bin/perl
#
# Get info from telefonkatalogen.no
#
# Author: Thore Harald Høye
# This program is public domain
#
use LWP::Simple;
if ($ARGV[1] eq "")
{
print "Arguments:\n-f 'fornavn' -l 'etternavn' -s 'gate' -z 'postnr' -c
'poststed' -k 'kommune' -p 'telefonnr'\n";
exit 0;
}
while(my $arg = shift)
{
$arg =~ s/^-//;
$$arg = shift;
}
my $res = get("http://www.gulesider.no/gsi/whiteSearch.do?mode=A&linje=1&sort=2&spraak=1&etter=$l&for=$f&gate=$s&pn=$z&ps=$c&kommune=$k&fylke=00&tel=$p&private=on&mobile=on&profile=on");
my @html = split(/\n/, $res);
while(@html)
{
$_ = shift @html;
if ($_ =~ /^<tr class="hsi"/)
{
my $str;
while ($_ !~ /^<nobr>$/)
{
$str .= "$_ ";
$_ = shift @html;
}
$str =~ s/<\/td>/,/gi;
$str =~ s/<[^>]+>|&[a-z]+;//gi;
$str =~ s/\s+/ /g;
$str =~ s/\s*,[,\s]*/, /g;
$str =~ s/^[\s,]+|[\s,]+$//g;
print "$str\n";
}
}
|
Takk til forfatter Thore Harald Høye. |
|