uninitialized value in addtion (Allgemeines zu Perl)

[thread]15908[/thread]

uninitialized value in addtion

Leser: 19

Articles: hide open all | hide show old branches

+7 replies
Gast Timo

2011-01-31 07:31
Hallo,

ich habe wahrscheinlich ein recht einfaches Problem, jedoch finde ich keine Hilfe, die mich weiterbringt. Hier habe ich mal ein kleinen Auszug aus meinem Skript:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

use strict; my $zeile = ""; my $i = 0; my(@fh,@que3,@cut); foreach $zeile(@fh) { @cut = split(",",$zeile); if(substr($cut[2],0,6) eq 'OPTIO3') { $i = 3; } if(substr($cut[4],0,14) eq 'Palettenschein') { $que3[$i][0] = $que3[$i][0] + 1; $que3[$i][1] = $que3[$i][1] + 1; }
sobald ich mein Skript ausführe, bekomme ich die Fehlermeldung "Uninitialized value in addition <+> ...".
Es ist doch richtig, dass diese Fehlermeldung mir sagen soll, dass der Inhalt in der Addition nicht initialisiert wurde?? Aber ich habe doch die Arrays und Variablen deklariert bzw. initialisiert?

Ich hoffe ich könnt mir sagen, was ich hier falsch machen?? :)

vg
Timo

modedit Editiert von renee: code-Tags eingeführt
Last edited: 2011-01-31 08:18:58 +0100 (CET)
- +5 replies
- bianca
  
  2011-01-31 08:21
  
  User since
  2009-09-13
  6977 Artikel
  BenutzerIn
  
  Die Inhalte $que3[$i][1] und $que3[$i][0] sind nicht definiert.
  Ein Array zu deklarieren wirkt nicht auf deren Inhalte.
  Probier mal $que3[$i][0] ++
  10 print "Hallo"
  20 goto 10
  - +4 replies
  - Gast Timo
    
    2011-01-31 08:29
    
    Dankeschön, jetzt hat es funktioniert!! :)
    
    aber ich habe noch nicht ganz verstanden, warum "$que3[$i][1] = $que3[$i][1] + 1;" eine Fehlermeldung schmeißt und "$que3[$i][1]++;" nicht, weil im Endeffekt ja beides das selbe bezweckt?!
    
    vg
    Timo
    Last edited: 2011-01-31 08:41:23 +0100 (CET)
    - +3 replies
    - bianca
      
      2011-01-31 09:23
      
      User since
      2009-09-13
      6977 Artikel
      BenutzerIn
      
      Guest Timo
      weil im Endeffekt ja beides das selbe bezweckt?!
      
      Ich glaube, das macht die Autovivifikation von Perl.
      10 print "Hallo"
      20 goto 10
      - +2 replies
      - pq
        
        2011-01-31 11:21
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        wieso, bei beiden varianten passiert doch autovivifikation.
        
        dass das eine statement warnt und das andere nicht, liegt daran, dass der auto-increment-operator etwas "speziell" ist.
        in perldoc perlop steht, dass undef bei diesem operator als 0 behandelt wird. das sieht man schön an folgendem code mit post-increment. post-increment liefert den wert vor dem increment zurück:
        
        Code (perl): (dl )
        
        1 2 3 4
        
        $x = 23; say $x++; # 23 $x = undef; say $x++; # 0
        
        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
        
        bianca
        
        2011-01-31 12:23
        
        User since
        2009-09-13
        6977 Artikel
        BenutzerIn
        
        2011-01-31T10:21:14 pq
        in perldoc perlop steht, dass undef bei diesem operator als 0 behandelt wird.
        
        Ich versuche, mir das auch noch zu merken :)
        10 print "Hallo"
        20 goto 10
- renee
  
  2011-01-31 08:22
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Schau Dir mal mit
  
  Code (perl): (dl )
  
  1 2 3
  
  use Data::Dumper; print Dumper \@que3;
  
  an, ob in dem Array tatsächlich das drinsteckt was Du erwartest...
  
  BTW:
  
  Code (perl): (dl )
  
  $que3[$i][1] = $que3[$i][1] + 1;
  
  kann man auch kürzer schreiben:
  
  Code (perl): (dl )
  
  $que3[$i][1] += 1;
  
  oder
  
  Code (perl): (dl )
  
  $que3[$i][1]++;
  
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/

View all threads created 2011-01-31 07:31.