Details Fehler (gelöst) (Allgemeines zu Perl)

[thread]16510[/thread]

Details Fehler [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 21

Articles: hide open all | hide show old branches

+3 replies
bianca

2011-07-10 08:04
User since
2009-09-13
7016 Artikel
BenutzerIn
Guten Morgen!

Folgender Code:
Code (perl): (dl )

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

#!/usr/bin/perl -w use strict; use warnings; my $a = 'a'; my $b; my $c = 'c'; print "variablen:" .$a .$b .$c ; my %hash = ( a => 'a', c => 'c', ); print "variablen:" .$hash{a} .$hash{b} .$hash{c} ;
Bringt natürlich:
Code: (dl )

1 2 3

Use of uninitialized value $b in concatenation (.) or string at test.pl line 7. Use of uninitialized value in concatenation (.) or string at test.pl line 16. variablen:acvariablen:ac
Frage 1: Gibt es eine Möglichkeit, Perl zu veranlassen, die genaue Zeile der undef. Variable anzuzeigen? Für oben würde ich mir Zeile 9 statt 7 und für unten 18 statt 16 wünschen.

Frage 2: Wieso nennt es mir in Beispiel 2 nicht die genaue Variable um die es geht?

Getestet mit Strawberry 5.10.1 auf Win 7 32 Bit.

Danke
10 print "Hallo"
20 goto 10
- +2 replies
- MatthiasW
  
  2011-07-10 12:07
  
  User since
  2008-01-27
  367 Artikel
  BenutzerIn
  
  Anscheinend gibt es da ein CPAN Modul: uninit. Allerdings funktioniert es bei mir nicht; ich denke es ist veraltet. (edit: Es ist vom 30. Oktober 2001, also perl 5.6/5.8 glaube ich.)
  
  Eigentlich finde ich die Meldungen so auch in Ordnung. Wenn es zu ungenau ist, kann man schließlich das betreffende Statement weiter unterteilen.
  
  Wenn du es unbedingt anders brauchst, musst du wohl selbst ran. Zum Beispiel mit B, so wie es auch uninit versucht. Oder du gehst über den Quelltext, dass ist aber sicherlich recht fehleranfällig, dafür jedoch schnell programmiert.
  
  edit2: Vielleicht noch zu 1) Die Informationen sind 2 verschiedene: Das aktuelle Verhalten gibt die Zeile an, in welcher das "fehlerhafte" Statement beginnt, deine Variante gäbe die Zeile an, in welcher der uninitialisierte Wert "steht" bzw. das Konstrukt, welches undef liefert. Beide Angaben sind hilfreich.
  
  Darüber hinaus könnte ich mir vorstellen, - ohne wirkliche Ahnung von perl-Bytecode zu haben - dass nicht bei jedem B::OP hinterlegt ist, in welcher Zeile der dazugehörige Code steht. Manche Abschnitte werden auch noch optimiert, sodass der Bezug verloren gehen kann. Diezbezüglich denke ich, wird bei jedem Statementbeginn die Zeile hinterlegt sein.
  
  MfG
  Last edited: 2011-07-10 14:48:03 +0200 (CEST)
  perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
  - bianca
    
    2011-07-11 06:50
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Danke dir. Werde dann die Unterteil-Methode anwenden, wenn ich das nochmal habe.
    10 print "Hallo"
    20 goto 10

View all threads created 2011-07-10 08:04.