If / elsif / else Block weigert sich zu tun was er soll (Allgemeines zu Perl)

[thread]17576[/thread]

If / elsif / else Block weigert sich zu tun was er soll

Tags: perl5 Ähnliche Threads

Leser: 23

Articles: hide open all | hide show old branches

+8 replies
Gast Errorsmith

2012-07-21 15:18
Hi!

Ich schreibe ein Skript das Statistiken aus meinem DSL Modem auslesen und (später dann) via rrd-tool speichern soll.
Zur Zeit schreibe ich den zentralen Block, der auf Anfrage hin die Parameter zurückgibt. Als Argument bekommt die Subroutine den gewünschten Parameter, ermittelt die Daten vom Modem (oder bentutzt bereits gespeicherte Werte) und gibt sie zurück.

Irgendwie haut die Auswahl der Parameter jedoch nicht hin.

Mein Code dafür sieht so aus:

more (6.6kb)

Der Aufruf im Programm erfolgt so:
Code: (dl )

1 2 3 4 5 6 7 8

my ($snr_dn,$snr_up) = dsl_cache_basicstats("snr"); my ($att_dn,$att_up) = dsl_cache_basicstats("att"); my ($pwr_dn,$pwr_up) = dsl_cache_basicstats("pwr"); print "DSL Werte: SNR: $snr_dn / $snr_up ATT: $att_dn / $att_up PWR: $pwr_dn / $pwr_up ";
Dinge die ich nicht mit hier im Post habe:
sub "debug" - prüft ob globale Variable "debug == 1" und gibt ggf ihre Argumente mit "print" aus
sub "comm_open" - baut eine Verbindung zum DSL Modem auf und gibt ein Handle zurück (nutzt Net::Telnet)
sub "comm_close" - beendet die Telnet Verbindung wieder
subs rwhite, lwhite - entfernen leerzeichen aus strings
globale Variable $commstatus bedeutet: 0->Keine Verbindung, 1-> Verbindung offen, 2->login, 3-> authientifizierung, 9->Verbindung steht und ist für Befehle bereit

Leider gibt das meine Routine nur die Werte für SNR zurück, egal mit welchem Argument ich sie aufrufe. Selbst mit unsinnigem Parameter - bei denen ich die entsprechende Meldung erhalten muesste, liefert mir die Routine nur die snr Werte zurueck, er landet auch jedesmal beim Auswahlverfahren bei "snr".

Ich benutze strict und warnings und bin sicher das das irgendwas dummes, einfaches ist, aber ich komm einfach nicht drauf...

Ich würde mich über einen Stupser in die richtige Richtung freuen, da sitz ich nun schon seit gestern dran und komm nicht weiter...

Grüße,
Errorsmith

modedit Editiert von pq: more-tag um script hinzugefügt
Last edited: 2012-07-21 16:22:27 +0200 (CEST)
- +5 replies
- GwenDragon
  
  2012-07-21 15:56
  
  User since
  2005-01-17
  14757 Artikel
  Admin1
  
  Stringvergleiche mit == ? Niemals! == wird nur für numerische Vergleiche verwendet.
  
  Für Stringvergleiche verwende bitte eq.
  
  Probiere es mal aus.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +2 replies
  - murphy
    
    2012-07-21 16:22
    
    User since
    2004-07-19
    1776 Artikel
    HausmeisterIn
    
    In diesem Fall, wo dieselbe Stringvariable mit mehreren Konstanten verglichen wird, würde sich auch ein given-when-Konstrukt statt einer Reihe von if-Anweisungen anbieten.
    When C++ is your hammer, every problem looks like your thumb.
    - betterworld
      
      2012-07-21 22:08
      
      User since
      2003-08-21
      2614 Artikel
      ModeratorIn
      
      2012-07-21T14:22:01 murphy
      ...würde sich auch ein given-when-Konstrukt statt einer Reihe von if-Anweisungen anbieten.
      
      Bei given-when läuft man wohl Gefahr, dass es bald depreziert wird...
      Last edited: 2012-07-21 22:22:31 +0200 (CEST)
      Lieblingsmodule: IPC::System::Simple, Path::Class
  - +2 replies
  - GUIfreund
    
    2012-07-21 17:12
    
    User since
    2011-08-08
    559 Artikel
    BenutzerIn
    
    2012-07-21T13:56:56 GwenDragon
    Stringvergleiche mit == ? Niemals! == wird nur für numerische Vergleiche verwendet.
    
    Für Stringvergleiche verwende bitte eq.
    
    Aus dem OP:
    Quote
    Ich benutze strict und warnings
    
    Bei der Verwendung von use warnings; muss es zur Laufzeit eine Warnmeldung geben.
    Gruß
    GUIfreund
    - GwenDragon
      
      2012-07-21 18:08
      
      User since
      2005-01-17
      14757 Artikel
      Admin1
      
      2012-07-21T15:12:00 GUIfreund
      Bei der Verwendung von use warnings; muss es zur Laufzeit eine Warnmeldung geben.
      
      Ja. Die wurde wahrscheinlich von Gast Errorsmith übersehen.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- GwenDragon
  
  2012-07-21 18:47
  
  User since
  2005-01-17
  14757 Artikel
  Admin1
  
  Ist dir eigentlich klar, dass eine Deklaration einer Variablen mit my nur innerhalb des Blocks ( also des {} ) sichtbar ist?
  Oder warum die vielen my ($retval1,$retval2) in den if-else-Zweigen?
  Copy&Paste-fehler?
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- AndiE
  
  2012-07-21 23:15
  
  User since
  2010-10-24
  65 Artikel
  BenutzerIn
  
  Hallo,
  
  ich fand die Idee gut, und habe mir den Quelltext genauer angesehen. Im zweiten Teil sind die schon genannten Fehler drin.
  Wenn man die Fehler beseitigt läuft er anstandslos.
  
  Aber auch im ersten Teil, wo du die Daten einliest, sind Ungereimtheiten. Leider unterstützt mein "W700V" diese Abfrage(mit telnet "adsl info --stats") nicht, weshalb ich die Ergebnisse nicht nachprüfen kann.(Schade, ich fand ja die Idee gut) Aber das Array @output besteht z.B. aus den Skalaren $output[0], $output[1] usw. Und was die Konstruktionen mit substr und zusätzlich noch rwhite soll, habe ich auch nicht verstanden.

View all threads created 2012-07-21 15:18.