Konsolenausgabe von Funktion system() in String umleiten möglich?? (Allgemeines zu Perl)

[thread]16278[/thread]

Konsolenausgabe von Funktion system() in String umleiten möglich??

Tags: perl5 Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+5 replies
heinzdeb

2011-05-11 16:25

User since
2011-05-11
1 Artikel
BenutzerIn

Hallo Freunde,

gleich vorweg! Ich versuche mich als Neuling in Perl und möchte mit einem Script einen File-Server unter Linux überwachen und bei Fehlern mindestens eine Mail mit der BErscheibung des vorliegenden Fehlers generieren.

Habe nun versucht durch verschiedene Suchen im Wiki des Forums und bei perldoc.perl.org meine Unwissenheit etwas einzugrenzen. Dabei kam mir eine Frage auf.

Ich nutze die Funktion "system()" um z. B. ein Ping auf eine IP-Adresse ausführen. Im Normalfall gibt Ping seine Infos auf der Konsole preis. Wie kann ich sinnvoll diese Ausgabe in einen String meines Scripts für eine spätere Auswertung umleiten?

Danke für eure Tipps!

Andy
Last edited: 2011-05-11 16:28:43 +0200 (CEST)
- GwenDragon
  
  2011-05-11 16:35
  User since
  2005-01-17
  14590 Artikel
  Admin1
  So zum Beispiel:
  
  Code (perl): (dl )
  
  my $ausgabe = qx/ping 192.168.0.1/;
  
  oder
  
  Code (perl): (dl )
  
  my $ausgabe = `ping 192.168.0.1`;
  
  die Drachin Gwen
- Gast wer
  
  2011-05-11 16:37
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  open(my $h, '-|', 'ping -c 1 127.0.0.1') or die($!); while(<$h>) { print "PING: $_"; } close($h) or die($!);
  
  Last edited: 2011-05-11 16:41:49 +0200 (CEST)
- topeg
  
  2011-05-11 18:28
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  Dafür gibt es doch ein Modul Net::Ping:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  #!/usr/bin/perl use strict; use warnings; use Net::Ping; my $p = Net::Ping->new(); print "127.0.0.1 is alive.\n" if $p->ping('127.0.0.1'); $p->close();
  
  Man kann auch Net::Ping::External nutzen
- rosti
  
  2011-05-11 18:33
  User since
  2011-03-19
  3237 Artikel
  BenutzerIn
  Willkommen in der Perl-Gemeinde!
  
  Quote
  Ich nutze die Funktion "system()" um z. B. ein Ping auf eine IP-Adresse ausführen.
  
  mein Vorschlag:
  
  Code (perl): (dl )
  
  1 2 3
  
  use Net::Ping; my $p = Net::Ping->new('icmp'); print $p->ping('localhost'); # 1
  
  Es ist ein bischen OOP, aber warum nicht. Wenn Du noch nie mit OOP zu tun hattest, nimm es einfach mal so hin, Zeile 1: Modul einbinden. Zeile 2: Objekt erstellen. Zeile 3: Mit dem Objekt wird eine Funktion (auch Methode genannt) aufgerufen, die gibt 1 oder 0 zurück.
  
  Das Modul Net::Ping greift tief in den IP-Stack (System), Du brauchst Root-Rechte, damit Du Net::Ping nutzen kannst. Der Parameter 'icmp' ist Default, kann auch entfallen. ICMP ist das Protokoll für ping/traceroute (Internet Control Message Protocol).

View all threads created 2011-05-11 16:25.