Warum Use of uninitialized value within @array? (gelöst) (Allgemeines zu Perl)

[thread]19940[/thread]

Warum Use of uninitialized value within @array? [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 12

Articles: hide open all | hide show old branches

+4 replies
bianca

2016-01-04 19:27
User since
2009-09-13
7016 Artikel
BenutzerIn
Hi!
Ich verstehe bei folgendem Script nicht, warum ich Fehler
Quote
Use of uninitialized value within @inhalt in string eq at test.pl line 13.
bekomme.
Code (perl): (dl )

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

#!/usr/bin/perl use strict; use warnings; use 5.010; my @inhalt = split //,<<INPUT A INPUT ; say "Gesamt: ".scalar(@inhalt)." Bytes"; for (my $ze = 0; $ze < scalar(@inhalt); $ze ++) { my $anzahl = 0; while (scalar(@inhalt) > ($ze + $anzahl) && $inhalt[$ze + $anzahl + 1] eq ' ') { say "untersuche ".($ze + $anzahl + 1); $anzahl ++; } say "bei Pos. $ze = $anzahl"; }
Aufgrund der Abfrage scalar(@inhalt) > ($ze + $anzahl) - von der ich ausgehe, dass sie zuerst ausgeführt wird, weil sie links vom && steht - darf doch die Abfrage niemals außerhalb des Array's liegen. Wieso tut es das doch?

Der Code ist aus einem Zusammenhang gerissen, bitte nicht wundern.

Auf Windows 7 64 Bit mit Perl This is perl 5, version 18, subversion 4 (v5.18.4) built for MSWin32-x64-multi-thread
10 print "Hallo"
20 goto 10
- Linuxer
  
  2016-01-04 19:48
  
  User since
  2006-01-27
  3891 Artikel
  HausmeisterIn
  
  Einfache Mathematik:
  
  Beispiel:
  - Das Array habe 2 Elemente; also Indizes 0 und 1.
  - Wir sind am letzten Element angekommen, also sei $ze = 1
  - $anzahl = 0
  
  Nun zur while-Bedingung:
  
  $ze+$anzahl (1+0=0) bleibt in diesem Fall kleiner als scalar(@inhalt) (2).
  
  Dann wird der rechte Teil des && geprüft.
  
  Der zu nutzende Index wird berechnet aus $ze+$anzahl+1 (also 1+0+1 = 2). $inhalt[2] ist aber nicht definiert und es kommt zur Warnung.
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
- Raubtier
  
  2016-01-04 19:49
  User since
  2012-05-04
  1083 Artikel
  BenutzerIn
  Quote
  
  Code (perl): (dl )
  
  while (scalar(@inhalt) > ($ze + $anzahl) && $inhalt[$ze + $anzahl + 1] eq ' ') {
  
  Nimm doch mal an, dass das Array die Länge 1 hat.
  1 > 0 + 0 ist true, aber du greifst auf $inhalt[0 + 0 + 1] zu, und das gibt es nicht.
  Last edited: 2016-01-04 19:51:45 +0100 (CET)
- bianca
  
  2016-01-05 17:34
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Ja danke euch. Hatte mich mit scalar(), > und +1 verhaspelt. Extra drüber geschlafen, nützte aber nichts :(
  10 print "Hallo"
  20 goto 10

View all threads created 2016-01-04 19:27.