uninitialized value $_ in array (Allgemeines zu Perl)

[thread]18543[/thread]

uninitialized value $_ in array

Tags: perl5 Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+9 replies
Hartmannsgruber

2013-08-28 16:17
User since
2013-08-28
8 Artikel
BenutzerIn
Hallo,

ich habe mich nun entschieden Perl zu lernen und bin schon an die erste Hürde gestoßen :(
Ich finde den Fehler in mein Script nicht. Es ist zwar nur garantiert ein blöder Fehler, aber ich suche bereits seit Zwei Tagen daran.
Code: (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

#!perl use strict; use warnings; my ($anzahl, $summe, $durchschnitt) = ""; my @ar_zahl = (); print "Wie viele Zahlen möchten sie eingeben?: "; chomp ($anzahl = <STDIN>); foreach (1..$anzahl) { print "Bitte Zahl nummer $_ eingeben: "; chomp ( $ar_zahl[$_] = <STDIN>); } foreach $_ (@ar_zahl) { $summe = $ar_zahl[$_]; } $durchschnitt = $summe / $anzahl; print "Anzahl der eingebenen Zahlen: $anzahl\n"; print "Sumer der eingebenen Zahlen: $summe\n"; print "Durchschnitt der eingebenen Zahlen: $durchschnitt\n";
Fehlermeldung dazu:
Use of uninitialized value _$ in array element at script.pl line 18, <STDIN> line 6.

Warum funktioniert die Standardvariable bei der ersten Schleife und bei der Zweiten dann nicht mehr?

modedit Editiert von GwenDragon: Titel sinnvoll geändert
Last edited: 2013-08-28 16:19:38 +0200 (CEST)
- +3 replies
- renee
  
  2013-08-28 16:23
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Der Index eines Arrays beginnt bei 0.
  
  Schau Dir einfach mal an, was im Array steht. Dann fällt Dir wahrscheinlich gleich auf warum die Fehlermeldung kommt:
  
  Code: (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
  
  #!perl use strict; use warnings; use Data::Dumper; # nuetzliches Modul zum Debuggen my ($anzahl, $summe, $durchschnitt) = ""; my @ar_zahl = (); print "Wie viele Zahlen möchten sie eingeben?: "; chomp ($anzahl = <STDIN>); foreach (1..$anzahl) { print "Bitte Zahl nummer $_ eingeben: "; chomp ( $ar_zahl[$_] = <STDIN>); } print Dumper \@ar_zahl; # mal ausgeben was im Array so steckt foreach $_ (@ar_zahl) { $summe = $ar_zahl[$_]; } $durchschnitt = $summe / $anzahl; print "Anzahl der eingebenen Zahlen: $anzahl\n"; print "Sumer der eingebenen Zahlen: $summe\n"; print "Durchschnitt der eingebenen Zahlen: $durchschnitt\n";
  
  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/
  - renee
    
    2013-08-28 16:24
    User since
    2003-08-04
    14371 Artikel
    ModeratorIn
    
    Unabhängig von der Fehlermeldung ist in
    
    Code: (dl )
    
    1 2 3
    
    foreach $_ (@ar_zahl) { $summe = $ar_zahl[$_]; }
    
    noch ein logischer Fehler. Du summierst hier nicht auf, sondern setzt $summe immer wieder neu...
    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/
  - Hartmannsgruber
    
    2013-08-28 16:37
    
    User since
    2013-08-28
    8 Artikel
    BenutzerIn
    
    Merci dir, dein Tipp mit Dumper ist ja schon alleine Gold Wert.
    Vielen Dank für den wertvollen Tipp :-)
- +3 replies
- Muffi
  
  2013-08-28 16:30
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  Die Schleife 17-19 ist komplett kaputt.
  
  Code (perl): (dl )
  
  foreach (@Array) { ...
  
  wirft bei jedem Durchlauf das aktuelle Element nach $_
  
  Code (perl): (dl )
  
  foreach $_ (@Array) { ...
  
  mach wohl wenn du Glück hast das Gleiche, ich würds aber lassen da $_ zu belegen.
  
  Und dann zum Denkfehler: In $_ steht die Zahl, nicht der Index.
  1 + 1 = 10
  - +2 replies
  - Hartmannsgruber
    
    2013-08-28 16:42
    
    User since
    2013-08-28
    8 Artikel
    BenutzerIn
    
    Okay, habe da wohl einiges durcheinander gehaut.
    $_ gibt den Wert aus und nicht den Index.
    
    Logische Lösung^^ Großes Dankeschön :-)
    
    Was meinst du damit:
    ich würds aber lassen da $_ zu belegen. ???
    - Muffi
      
      2013-08-28 16:48
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      $_ wird von Perl selbst belegt (z.B. in Schleifen). Man sollte da nicht selbst rumfuhrwerken, wenns keinen guten Grund dafür gibt.
      
      PS. Ich würds so schreiben:
      
      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
      
      #!perl use strict; use warnings; # das zu initialisieren macht wenig Sinn, schon garnicht mit "" wenns Zahlen sind. #Zudem unterdrückts vielleicht hilfreiche warnings bei Fehlern im Programm, wenn die Variablen nicht belegt werden. my ($anzahl, $summe, $durchschnitt); my @ar_zahl = (); print "Wie viele Zahlen möchten sie eingeben?: "; chomp ($anzahl = <STDIN>); foreach (1..$anzahl) { print "Bitte Zahl nummer $_ eingeben: "; chomp (my $input = <STDIN>); push @ar_zahl, $input; # push macht hier klarer, dass einfach angefügt wird und vermeidet Fehler beim Indexzählen. } $summe += $_ for @ar_zahl; # $summe += ist Kurzform für $summe = $summe + $durchschnitt = $summe / @ar_zahl; # / forciert hier sowas wie numerischen Kontext. Arrays in diesem (oder besser scalarkonext) liefern die Anzahl ihrer Elemente print "Anzahl der eingebenen Zahlen: $anzahl\n"; print "Sumer der eingebenen Zahlen: $summe\n"; print "Durchschnitt der eingebenen Zahlen: $durchschnitt\n";
      
      1 + 1 = 10
- payx
  
  2013-08-28 16:40
  User since
  2006-05-04
  564 Artikel
  BenutzerIn
  Hallo Hartmannsgruber,
  
  zusätzlich zu Renées Hinweisen:
  
  Zeile 17-19:
  
  Code (perl): (dl )
  
  1 2 3
  
  foreach $_ (@ar_zahl) { $summe = $ar_zahl[$_]; }
  
  foreach (oder gleichbedeutend for) iteriert über die Werte im Array, nicht über die Indices. Deshalb (und wegen dem Aufsummieren) muss es in Zeile 18 heißen: $summe += $_;.
  
  Um die Warnung loszuwerden, schreibe in Zeile 14: chomp ( $ar_zahl[$_-1] = <STDIN>); (vgl. Renées Hinweis: der erste Index im Array ist 0). Abgesehen von der Warnung tut Dein Programm aber auch ohne diese Änderung (aber mit der obigen Änderung) das gewünschte.
  
  Generell ist es besserer Stil, nicht viel mit $_ zu programmieren. Schreibe also lieber:
  
  Code (perl): (dl )
  
  1 2 3 4
  
  for my $index (1..$anzahl) { print "Bitte Zahl nummer $index eingeben: "; chomp ( $ar_zahl[$index-1] = <STDIN>); }
  
  und
  
  Code (perl): (dl )
  
  1 2 3
  
  for my $zahl (@ar_zahl) { $summe += $zahl; }
  
  HTH
  Grüße
  payx
- rosti
  
  2013-08-29 09:03
  User since
  2011-03-19
  3496 Artikel
  BenutzerIn
  Moin!
  
  Eine kleine Anmwerkung:
  
  Code (perl): (dl )
  
  my ($anzahl, $summe, $durchschnitt) = "";
  
  Hier aufpassen, Kontext beachten: Du inititalisierst tatsächlich nur die erste Variable $anzahl; $summe und $durchschnitt sind undef.
  
  Möglich wäre, als kleine Verbesserung:
  
  Code (perl): (dl )
  
  my ($anzahl, $summe, $durchschnitt) = ('','','');
  
  (links ne Liste, rechts ne Liste)
  
  Ansonsten herzlich willkommen in der Perl-Welt!!!!
  
  --Rosti

View all threads created 2013-08-28 16:17.