Gå til innhold

Anbefalte innlegg

Videoannonse
Annonse
  • 1 måned senere...

Det hørtes jo ut som noe kjekt å ha, så jeg laget et. Bruk view source om du har problemer med å se hvordan linjeskiftene skal være. Det er ikke med mer enn ett parameter.

 

#!/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 "$strn";

}

}

Lenke til kommentar
  • 4 uker senere...
Can't locate LWP/Simple.pm in @INC (@INC contains: /usr/lib/perl5/i386-linux /usr/lib/perl5 /usr/lib/perl5/site_perl/i386-linux /usr/lib/perl5/site_perl /usr/lib/perl5/site_perl .) at ./tlf line 9.

BEGIN failed--compilation aborted at ./tlf line 9.

 

Fikk denne feilmeldinga når jeg kjørte programmet. Hva mangler jeg, og hvordan kan jeg fikse dette ?

Lenke til kommentar

Heiheihei.

 

Ja her var det mange som lurte paa veldig grunnleggende og enkle ting, ja. Sjoe.

 

Og da er det klart vi vil hjelpe, alle sammen. Seff.

 

Ikke tvil om det. Nei.

 

Selv om spoersmaalene indikerer en haarreisende grad av latskap og initiativ til aa laere seg ting paa egenhand. Klart vi hjelper. Det er jo det vi er til for.

 

Saa her har dere litt hjelp, alle sammen:


man perl

 

Saa kan dere jo lese litt selv, slik at dere har et utgangspunkt for aa kunne det mest elementaere. Have a nice day.

Lenke til kommentar
  • 3 uker senere...
  • 1 måned senere...

Dette hadde hvert morsomt å få til mot Brønnøysundregistrene.

De har pr i dag ingen som helst digital distribusjon av kungjøringer, så alle som ikke vil ut med tusener av kroner for digital vask av kundedatabaser. Irriterende når en sitter med et register i SQL og et på web, og enda måtte sitte å bla i lysningsbladet.

Kan ikke en av dere ringe Helga å tilby kompetansen. Diplom utsendes ;)

Lenke til kommentar

Opprett en konto eller logg inn for å kommentere

Du må være et medlem for å kunne skrive en kommentar

Opprett konto

Det er enkelt å melde seg inn for å starte en ny konto!

Start en konto

Logg inn

Har du allerede en konto? Logg inn her.

Logg inn nå
×
×
  • Opprett ny...