fehler - variable ist doch deklariert (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2024-04-28 20:50:54
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online

[thread]14325[/thread]

submit to reddit

fehler - variable ist doch deklariert

Leser: 23

Articles: hide open all | hide show old branches

+22 replies
jan999

2009-12-02 09:12
User since
2009-04-02
109 Artikel
BenutzerIn
hi !

ich habe eine kleine funktion erstellt um x-mal "<br>" ausgeben zu können.
Code (perl): (dl )

1 2 3 4 5 6 7 8 9

sub printHTMLCreateBr { my $file = shift ; my $count = shift ; if (undef $count) { $count = 1; } print $file "<br>"x$count; return (1) ; }
wird kein zweiter parameter übergeben, dann soll die 1 gesetzt werden.

in meinem programmablauf bekomme ich nun die fehlermeldung:

Use of uninitialized value $count in repeat (x) at OSM/osm_jt.pm line 979.

das ist die zeile "print $file "<br>"x$count;".

kann mir einer weiterhelfen ?

gruß Jan :-)
- renee
  
  2009-12-02 09:32
  
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  
  Dein Fehler liegt in der Zeile if( undef $count ). Du leerst die Variable $count (undef ist ein Befehl) und das undef $count liefert "unwahr" zurück. Deswegen wird nie in den if-Block gegangen. Aber das $count ist *jedesmal* undef.
  
  Du willst hier wohl eher
  
  if( not defined $count )
  
  machen.
  
  Das überprüft nur, ob $count definiert ist oder nicht...
  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/
- +3 replies
- renee
  
  2009-12-02 09:33
  
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  
  Achso: Ja, die Variable ist deklariert. Die Meldung "uninitialized" ist hier etwas irreführend...
  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/
  - +2 replies
  - pq
    
    2009-12-02 10:26
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    finde ich nicht. es steht ja da nicht "undeclared", sondern "uninitialized". also nicht initialisiert, sprich mit keinem wert belegt.
    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
    - renee
      
      2009-12-02 12:56
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Es müsste eher "undefined" oder so heißen. Initialisierung ist ja eigentlich das Belegen mit Startwerten. Und es ist ja explizit mit einem "Wert" belegt, wurde also initialisiert...
      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/
- +17 replies
- sitescriptor
  
  2009-12-02 19:56
  User since
  2009-08-09
  105 Artikel
  BenutzerIn
  Wäre das in Ordnung?
  
  Code (perl): (dl )
  
  1 2 3 4
  
  sub printHTMLCreateBr { my $file = shift ; my $count = shift || 1; ...
  - +16 replies
  - MatthiasW
    
    2009-12-02 20:01
    User since
    2008-01-27
    367 Artikel
    BenutzerIn
    
    Naja, das ist nicht ganz das selbe. Eine 0 als Parameter für $count macht zwar eigentlich keinen Sinn, würde aber hier trotzdem dazu führen, dass <br> in die Datei geschrieben wird.
    Ab Perl 5.10 (oder schon 5.9?) kann man aber // (defined-or) verwenden:
    
    Code (perl): (dl )
    
    my $count = shift // 1;
    
    MfG
    perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
    - +15 replies
    - renee
      
      2009-12-03 08:32
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Und ohne Perl 5.10:
      
      Code: (dl )
      
      1 2
      
      my $count = shift; $count = 1 unless defined $count;
      
      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/
      - +14 replies
      - Gast wer
        
        2009-12-03 09:24
        
        warum nicht so?
        
        Code (perl): (dl )
        
        my $count=@_?shift:1
        
        +12 replies
        
        renee
        
        2009-12-03 09:43
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        TIMTOWTDI ;-)
        
        Ich *persönlich* finde das aber nicht so gut lesbar.
        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/
        
        +11 replies
        
        Gast wer
        
        2009-12-03 09:56
        
        Ich halte es wie Politiker:
        Was interessiert mich mein Code von gestern?! ;)
        
        +5 replies
        
        murphy
        
        2009-12-03 10:16
        
        User since
        2004-07-19
        1776 Artikel
        HausmeisterIn
        
        Meiner meinung nach ist das ist eine recht gefährliche Einstellung, denn gerade die kleinen Skripte, die man eigentlich nach einem Tag wegwerfen wollte, leben oft bedeutend länger und werden schnell unübersichtlich, wenn man sich nicht generell und konsequent einen sauberen Stil angewöhnt.
        When C++ is your hammer, every problem looks like your thumb.
        
        +3 replies
        
        Gast wer
        
        2009-12-03 10:37
        
        Ich sollte mir echt mein Humordrüse lähmen lassen bevor ich hier poste...
        
        +2 replies
        
        bianca
        
        2009-12-03 10:43
        
        User since
        2009-09-13
        6977 Artikel
        BenutzerIn
        
        Guest wer
        Ich sollte mir echt mein Humordrüse lähmen lassen bevor ich hier poste...
        
        Ja, das dachte ich mir auch schon öfter.
        Die Leute hier sind nicht sonderlich humoristisch, leider!
        10 print "Hallo"
        20 goto 10
        
        murphy
        
        2009-12-03 13:03
        
        User since
        2004-07-19
        1776 Artikel
        HausmeisterIn
        
        Das Problem ist nicht, dass wir hier alle keinen Humor haben, sondern dass es in Textform trotz Smileys nicht immer so klar erkennbar ist, was jemand ernst meint und was nicht.
        
        Also nix für ungut, ich konnte mir den Kommentar einfach nicht verkneifen, weil mir schon zu oft Leute begegnet sind, die ähnliche Aussagen toternst gemeint haben :-)
        When C++ is your hammer, every problem looks like your thumb.
        
        sid burn
        
        2009-12-03 10:43
        
        User since
        2006-03-29
        1520 Artikel
        BenutzerIn
        
        Ich glaube vom Post von "wer" war etwas "Ironie" enthalten.
        Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
        
        +5 replies
        
        GwenDragon
        
        2009-12-03 13:10
        
        User since
        2005-01-17
        14538 Artikel
        Admin1
        
        Guest wer
        Ich halte es wie Politiker:
        Was interessiert mich mein Code von gestern?! ;)
        Ja, deine Nachfolger werden dann im Fünfeck springen, wenn sie deinen Code warten müssen. Das kann lustig sein, aber nur wenn du dann dort nicht mehr arbeitest, sonst bekommst du mehrere dicke UNIX-Manuals nachgeschmissen. TTFMACP heißt das dann: Throw The Formidable (or fu****) Manual At Creepy Programmer.
        Solltest du selbst nach längerer Zeit nicht mehr durch blicken, dann biste selber schuld.
        Kann auch lustig werden, je nach Tageslaune von dir oder anderen. *grins*
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
        
        +2 replies
        
        Gast wer
        
        2009-12-03 13:33
        
        Einen Nachfolger gibt es nur wenn man mich feuert, oder ich tot bin. In beiden fällen ist mir das dann egal. :)
        
        Quote
        TTFMACP heißt das dann: Throw The Formidable (or fu****) Manual At Creepy Programmer.
        
        Ach die fünf bekritzelten Blätter. Es würde mehr schmerzen, würden sie mich mit meinem Gehalt bewerfen. So Euros tun schon weh. :)
        
        Heißt eine der wichtigsten Informatiker Regeln nicht:
        Programmiere immer so, dass man dich nicht feuern kann?! ;)
        
        Quote
        Solltest du selbst nach längerer Zeit nicht mehr durch blicken, dann biste selber schuld.
        Kann auch lustig werden, je nach Tageslaune von dir oder anderen. *grins*
        
        Als geilaner Superhaker mit absoluten Ge..Dingsbums und Denkdiges weiß ich noch nach Monaten was ich nicht programmiert habe, von da aus auf das zu schließen was ich programmiert habe, ist dann nicht mehr schwer. :P
        
        aber ernst:
        Den besten Job hast du dann, wenn du dich selbst überflüssig machst.
        
        GwenDragon
        
        2009-12-03 14:18
        
        User since
        2005-01-17
        14538 Artikel
        Admin1
        
        Guest wer
        Heißt eine der wichtigsten Informatiker Regeln nicht:
        Programmiere immer so, dass man dich nicht feuern kann?! ;)
        
        Ach, du dachtest/denkst auch so öfters, da bin ich also nicht die einzige Person. Ja, diese Regel ist nützlich, allerdings nicht bei jedem Auftraggeber. ;)
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
        
        +2 replies
        
        sid burn
        
        2009-12-03 14:31
        
        User since
        2006-03-29
        1520 Artikel
        BenutzerIn
        
        Quote
        Ja, deine Nachfolger werden dann
        
        Es gibt keinen Nachfolger! Du hast den Sinn hinter Perl nicht verstanden!
        
        Ziel ist es immer unleserlichen/unwartbaren Code zu schreiben! Das ganze hat zwei Ziele. Man kann nicht gefeuert werden! Wenn man von seinen Arbeitgeber gefeuert werden möchte dann sagt man einfach. "Aber ich habe Programme/Skripte in Perl geschrieben, niemand auser mir kann den Quelltext verstehen oder sich da einarbeiten!".
        
        Ein Arbeitgeber weiß das auch, also wird man nicht gefeuert, dadurch gewinnt man sehr viel mehr Freiheiten und man kann sich sehr viel mehr erlauben.
        
        Und das ist auch das zweite Ziel. Mehr Freiheiten dadurch und mehr Geld!
        
        Und wenn ich die Firma verlasse dann nur wenn es nicht nach meinen Wünschen läuft. Von daher geschieht es Ihnen nur zurecht wenn Sie keinen Nachfolger einstellen können oder er es schwer hat. Da haben die sich mit dem Falschen angelegt! So sieht es aus!
        
        Ich muss immer über die Pyhton Idioten lachen die sauberen Code schreiben den jeder verstehen kann. Hahaha, die können nicht viel Geld verlangen und sind austauschbar wie Socken!
        
        Da kann ich auch nen Praktikant oder nen 1€ Sklaven einstellen.
        
        P.S.:
        Dieser Post ist frei von Humor, Ironie oder Sarkasmus.
        Last edited: 2009-12-03 14:33:04 +0100 (CET)
        Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
        
        renee
        
        2009-12-03 14:55
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Dem kann ich ganz und gar nicht zustimmen. Man sollte *IMMER* möglichst sauber und wartbar programmieren. Macht einem das Leben echt einfacher. Dann lieber am Ende mit einem passenden Modul arbeiten: In der Bioinformatik mit Acme::DoubleHelix, bei Ariel und meister Proper mit Acme::Bleach oder bei Dämonenjägern mit Acme::Buffy ;-)
        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/
        
        Taulmarill
        
        2009-12-03 10:12
        
        User since
        2004-02-19
        1750 Artikel
        BenutzerIn
        
        Also so schon mal gar nicht. Wenn überhaupt dann eher so:
        
        Code (perl): (dl )
        
        my $count = defined $_[0] ? shift : 1;
        
        Sonst hat man wieder das Problem, dass 0 oder Leerstring mit 1 überschrieben werden.
        
        Mir ist gerade aufgefallen, dass ich Unsinn geschrieben habe. Ich nehme alles zurück.
        Last edited: 2009-12-03 10:17:11 +0100 (CET)
        $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B

View all threads created 2009-12-02 09:12.