Avatar billede leif Seniormester
28. marts 2008 - 22:14 Der er 6 kommentarer og
1 løsning

Hent side og smid et output

Hej,

Jeg vil lige skynde mig at sige at jeg har ingen idé om jeg spørger det rigtige sted og har ingen kendskab til Perl.

Jeg skal bruge en lille stump Perl til afvikling på en Linux server (CLI) som henter en Webside (www.domain.dk/status.php) og er tallet som den henter under 10 skal den skrive "Warn" og er tallet under 5 skal den skrive "Problem" og er den højere end 10 skal den blot skrive OK


Siden outputter kun et tal og intet andet.


Er det, det rigtige sted jeg har spurgt og er der en som kan hjælpe mig så ville jeg blive lykkelig.


/Leif
Avatar billede Slettet bruger
28. marts 2008 - 22:35 #1
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $url = 'din url';
my $response = $ua->get($url);
if ( $response->is_success ) {
  $content = $response->content;
}
else {
  die "system fejl: " .  $response->status_line;
}

her efter skal $content saa bare behandles. Det er trivielt saa det maa du selv goere
Avatar billede leif Seniormester
28. marts 2008 - 22:41 #2
Nu har jeg ingen kendskab som jeg også skrev, så vil du hjælpe mig lidt videre ?
Avatar billede Slettet bruger
29. marts 2008 - 16:59 #3
Hvis du ikke ved noget om perl, hvorfor skriver du det saa i perl? Lidt sjovt at vi andre skal goere tingene for dig i stedet for at du saetter dig ind i det (no offence intended).

chomp $content;

if ( $content !~ /^\d+$/ ) {
  die "content not just a number: '$content'\n";
}

if ( $content > 10 ) { print 'OK'; exit }
if ( $content >= 5 ) { print 'Warn'; exit }
if ( $content < 5 )  { print 'Problem'; exit}
Avatar billede leif Seniormester
29. marts 2008 - 17:37 #4
Fordi det skal køres på en Linux box !

Mange tak, smider du et svar.
Avatar billede Slettet bruger
29. marts 2008 - 17:42 #5
hvad har det med sagen at goere. Du kan skrive dette i mange forskellige sprog:

shell script
python
perl
ruby
php
Avatar billede leif Seniormester
29. marts 2008 - 17:52 #6
Ja, okay, men det skal kaldes fra et andet internt system som jeg ikke kunne få til at bruge et PHP script, så derfor tænker jeg primært Perl, men det virker og alle er glade så mange, mange tak
Avatar billede leif Seniormester
29. marts 2008 - 17:56 #7
Men jeg vil jo så skynde mig at sige at valideringen ligner noget PHP så derfor kan jeg selv arbejde videre med det som jeg ønsker, tak.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester