Bild von RRD-Tool herunterladen (Netzwerkprogrammierung und Netzwerke mit Perl)

[thread]16470[/thread]

Bild von RRD-Tool herunterladen

Tags: perl5 Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+3 replies
Gast MULLE123

2011-06-28 15:54
Hallo zusammen,

ich möchte mittels cron-jobs einmal im Monat die z.B. CPU-Daten von einem Netzwerkgerät runterladen (Nagios und RRDtool). Dazu möchte ich ein Perl-Skript schreiben.
Die URL des Bildes sieht wie folt aus:
Code: (dl )

http://192.168.1.1/cgi-bin/show-image.cgi?service=test_cpu&host=test_host&width=600&title=Hourly View&start=now-1h
Ich habe da an lwp::simple gedacht und habe folgendes Skript zum Test geschrieben:
Code: (dl )

1 2 3 4

#!/usr/bin/perl use LWP::Simple; getstore("http://192.168.1.1/cgi-bin/show-image.cgi?service=test_cpu&host=test_host&width=600&title=Hourly View&start=now-1h", "/home/test.jpg"); exit;
Das speichert das Bild jedoch nicht. Bin noch relativer Anfänger. Ich gehe mal davon aus, dass das Problem ist, das nicht der Speicherort des Bildes angegeben wird, sondern nur die show-image Funktion mit den entsprechenden Parametern, macht die Sache nicht so einfach wie gedacht.

modedit Editiert von GwenDragon: URL-Beispiele, wenn sie nicht verlinkt werden sollen, bitte in Code-Tags stellen
Last edited: 2011-06-28 16:15:56 +0200 (CEST)
- Gast wer
  
  2011-06-28 16:17
  
  Hast du schreibrechte auf "/home/"?
  Meinst du nicht eher "/home/<username>/"?
  Last edited: 2011-06-28 16:39:38 +0200 (CEST)
- GwenDragon
  
  2011-06-28 16:32
  User since
  2005-01-17
  14888 Artikel
  Admin1
  getstore liefert keinerlei Fehler, wenn das Verzeichnis nicht existiert oder die Zugriffsrechte nicht passen.
  
  Ich empfehle es so zu machen:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
  
  #!/usr/bin/perl use LWP::Simple; my $logged_user = getlogin() or die "Error: Cant fetch logged user's name"; my $url = shift || 'http://192.168.1.1/cgi-bin/show-image.cgi?service=test_cpu&host=test_host&width=600&title=Hourly View&start=now-1h'; my $dest_file = shift || "/home/$logged_user/test.jpg'; my $content = get($url) or die "Error: Cant fetch $url\n"; open (my $fh, ">", $dest_file) or die "Error: open $dest_file # $!\n"; binmode $fh; print $fh $content; close ($fh) or die "Error: close $dest_file # $!\n"; exit;
  
  Last edited: 2011-06-28 16:42:28 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2011-06-28 15:54.