Useless use of private variable in void context (solved) (Allgemeines zu Perl)

[thread]18834[/thread]

Useless use of private variable in void context [solved]

Tags: perl5 Similar Threads

Readers: 21

Articles: hide open all | hide show old branches

+10 replies
der_thomas

2014-01-06 23:07
User since
2013-09-07
158 articles
BenutzerIn
Hallo,

ich bekomme hier eine Warnmeldung, einmalig direkt beim Programmstart, die ich nicht richtig einordnen kann:

Useless use of private variable in void context at listenmanipulator.pm line 197.
Useless use of private variable in void context at listenmanipulator.pm line 203.

Ich verstehe das so, dass ich eine Variable sinnlos nutze, also ohne dass diese Variable einen Einfluss auf irgendwas hätte ??

Hier der Code der das erzeugt:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42

#!/usr/bin/perl use v5.12; use warnings; use Time::localtime; package t; my @testliste; my $maxspalte; my $zeiger; ...... sub get_new{ # in der Datensatzliste wandern, Argumente <<,<,>,>> my $richtung = shift; my @return; if ($richtung eq "<<"){$zeiger = 0} elsif ($richtung eq "<" && $zeiger > 0){ my $zz = $zeiger - 1; for ($zz; $zz > -1; $zz--){ #zeile 195 if ($testliste[$zz][-1] == 1){$zeiger = $zz; last} } #zeile 197 } elsif ($richtung eq ">" && $zeiger < $#testliste){ my $zz = $zeiger + 1; for ($zz; $zz < $#testliste + 1; $zz++){ #zeile 201 if ($testliste[$zz][-1] == 1){$zeiger = $zz; last} } #zeile 203 } elsif ($richtung eq ">>"){$zeiger = $#testliste} for my $spalte (0..$maxspalte){ #zeile 207 push (@return, $testliste[$zeiger][$spalte]) } return @return #zeile 210 }
Wenn ich die Zeilen 195-197 und 201-203 mit # auskommentiere, bleibt die Warnmeldung weg (Habe ich probeweise ausprobiert um auszuschließen dass es sich um einen Folgefehler handelt).

Zum Verständnis:
Mit dieser Funktion hole ich mir für das (GUI) Frontend die Datensätze, die in @testliste[]->[] abgelegt sind.
Wird beispielsweise der Datensatz Nr.10 gerade ausgegeben und ich rufe die Funktion mit t::get_new(">") auf, soll der nächste Datensatz per return (an den Aufrufer - das Frontend) geliefert werden.
$zeiger ist die aktuelle Position in der Datensatzliste, also im Beispiel 10
$testliste[$zeiger][-1] weist auf die letzte Datensatzspalte, steht dort eine 1, kann der Datensatz geliefert werden, steht dort ein 0 wird weitergesucht (Diese Indexspalte wird von einer Suchen Funktion beschrieben und standardmässig steht dort eine 1)

Funktionieren tut das alles wie vorgesehen, zumindest konnte ich bisher keinen Fehler im Programmablauf in Verbindung mit dieser Funktion entdecken.

Ich könnte das also übergehen, oder mit 'no warnings' überbrücken, ich will es aber eigentlich schon verstehen ;)

Weiß von euch jemand was ich da falsch mache oder falsch verstehe ?

P.S. Ich verwende Perl 5.14.2 auf Linux Mint 15
- +2 replies
- guest wer
  
  2014-01-06 23:28
  Code (perl): (dl )
  
  1 2
  
  my $zz = $zeiger - 1; for ($zz; $zz > -1; $zz--)
  
  Besser:
  
  Code (perl): (dl )
  
  1 2
  
  my $zz = $zeiger - 1; for (; $zz > -1; $zz--)
  
  oder:
  
  Code (perl): (dl )
  
  for(my $zz = $zeiger - 1; $zz > -1; $zz--)
  
  oder:
  
  Code (perl): (dl )
  
  for my $zz (reverse( 0 .. $zeiger - 1))
  
  Last edited: 2014-01-07 00:07:13 +0100 (CET)
  - der_thomas
    
    2014-01-07 20:08
    User since
    2013-09-07
    158 articles
    BenutzerIn
    
    Elefantös :)
    auf ein:
    
    Code (perl): (dl )
    
    for (; $zz > -1; $zz--)
    
    wäre ich nie gekommen, habe ich bewusst so noch gar nie gesehen...
    
    Mir persönlich gefällt die mittlere Version fast am besten.
    
    Tausend Dank...
- +7 replies
- Muffi
  
  2014-01-07 08:24
  
  User since
  2012-07-18
  1465 articles
  BenutzerIn
  
  Die Lösung des Problems wurde ja schon erwähnt.
  Aus Neugier: Kann man diese "ungültigen" Datensätze nicht am Anfang einmal rausfiltern, bevor man da jedes mal mit einer Schleife drüber läuft?
  Und das Nächste: Das was du da hast sieht sehr nach einem Iterator aus.
  Zumindest syntaktisch wäre da ein Objekt mit ->next() ->last() ->first() ->prev()
  intuitiver. Das eliminitert zudem das hässliche globale $zeiger
  
  Allerdings wird's mit vorgefilterten Datensätzen wohl so einfach, dass man sich überlegen kann, ob es da überhaupt noch extra Funktionen braucht.
  Last edited: 2014-01-07 08:27:54 +0100 (CET)
  1 + 1 = 10
  - +3 replies
  - Muffi
    
    2014-01-07 11:41
    
    User since
    2012-07-18
    1465 articles
    BenutzerIn
    
    Leicht OT:
    
    Ist Perl eigentlich (mittlerweile) so intelligent, so eine Schleife mit Range-Operator zu optimieren, so dass intern die Liste nicht komplett im Speicher landet?
    
    Weil (persönliche Meinung) eines der hässlichsten Sachen, die die Programmierwelt jemals hervorgebraucht hat und sich zudem überall hin verbreitet hat ist diese C-for-Schleife.
    Wenn ich das z.B. mit Pascal for i := 0 to 5 do vergleiche... keine Ahnung, warum dieses komische Ding der "Standard" wurde.
    Last edited: 2014-01-07 11:43:29 +0100 (CET)
    1 + 1 = 10
    - +2 replies
    - pq
      
      2014-01-07 11:47
      
      User since
      2003-08-04
      12209 articles
      Admin1
      
      2014-01-07T10:41:25 Muffi
      Ist Perl eigentlich (mittlerweile) so intelligent, so eine Schleife mit Range-Operator zu optimieren, so dass intern die Liste nicht komplett im Speicher landet?
      
      Schon länger:
      http://perldoc.perl.org/perl5005delta.html#foreach...
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - Muffi
        
        2014-01-07 11:56
        
        User since
        2012-07-18
        1465 articles
        BenutzerIn
        
        Oh Gott...
        wär da jetzt 5.14 gestanden hätt ich mich nicht ganz so alt und veraltet gefühlt.
        1 + 1 = 10
  - +3 replies
  - der_thomas
    
    2014-01-07 20:48
    
    User since
    2013-09-07
    158 articles
    BenutzerIn
    
    Quote
    Kann man diese "ungültigen" Datensätze nicht am Anfang einmal rausfiltern
    
    Die ungültigen Datensätze ändern sich oft sekündlich, angenommen ich suche ein Buch in dessen Titel "Afrika" vorkommt, ich den genauen Titel aber nicht weiß, ... dann erziele ich mit "Afrika" vielleicht 5 Treffer (die dann die 1 bekommen, alles andere bekommt 0) und habe das, wonach ich suche schnell gefunden... dann klicke ich wieder auf "Alle zeigen" und jeder Datensatz bekommt wieder die 1.
    Diese Indexspalte wird auch nicht auf der Festplatte abgespeichert, sondern nach dem Laden der Daten temporär an die Tabelle angehängt - und beim Abspeichern ignoriert.
    
    Quote
    Zumindest syntaktisch wäre da ein Objekt mit ->next() ->last() ->first() ->prev()
    intuitiver. Das eliminitert zudem das hässliche globale $zeiger
    
    In Python habe das gleiche bereits umgesetzt und dort das Array als Objekt eingebaut, und da dann vier Methoden .get_next_row, .get_last_row u.s.w.
    Wobei ich auch dort einen Zeiger habe, das Objekt muss ja wissen welches seiner Zeilen (Datensätze) gerade aktuell im Frontend steht.
    
    Ansonsten empfinde ich den $zeiger jetzt gar nicht als so hässlich, vor allem weil der ja nie direkt vom Frontend angesprochen oder verändert wird.
    Von außen betrachtet, aus Sicht des Frontends, entspricht dieser Zeiger einer privaten Instanzvariable (bei OOP).
    
    Aber ich bin da für Alternativen und Ideen wie man das anders umsetzen könnte, sehr aufgeschlossen... ;)
    - +2 replies
    - Muffi
      
      2014-01-08 08:29
      
      User since
      2012-07-18
      1465 articles
      BenutzerIn
      
      Vielleicht sowas?
      
      Code (perl): (dl )
      
      my @gueltige_datensaetze = filter($nach_irgendwas, @alle_datensaetze);
      
      dann hast du ein Array mit nur dem was du haben willst.
      1 + 1 = 10
      - der_thomas
        
        2014-01-08 20:53
        
        User since
        2013-09-07
        158 articles
        BenutzerIn
        
        Quote
        Vielleicht sowas?.....
        
        Schaut gut aus und die oben gezeigten Methoden wären simpler, ich meine aber dass sich der Aufwand letztendlich ziemlich gleich bleibt, weil beim zurückschreiben in die Originaldatei (wenn also an den gefilterten Daten was verändert wurde - was sehr häufig der Fall ist) der Aufwand sich erhöhen würde.
        Ich werde das aber auf jeden Fall testen - auch wenn ich meine, dass die Komplexität des Ganzen doch steigen würde ?
        Danke für die Anregung !
        thomas

View all threads created 2014-01-06 23:07.