@ in Variablen (Allgemeines zu Perl)

[thread]14215[/thread]

@ in Variablen

Readers: 25

Articles: hide open all | hide show old branches

+33 replies
guest Knowbody

2009-11-03 15:53

Hallo,
leider habe ich von perl immer noch keine Ahnung aber mal wieder ein Problem.
Von meiner Variablendefinition $storename = "brom@otton.de"; wird ausgegeben "brom.de". Das heißt der Teil "@otton" ist verschwunden. Da das allerdings eine url ist ist das natürlich fatal.
Woran kann das liegen und wie kann ich das richten?
Danke für Kopfnüsse
Knowbody
- Taulmarill
  
  2009-11-03 15:54
  
  User since
  2004-02-19
  1750 articles
  BenutzerIn
  
  perl denkt hier, dass @otton ein Array ist. Setze die E-Mail Adresse einfach in einfache Anführungszeichen, dann versucht perl nicht den Inhalt zu verstehen sonder behandelt ihn einfach als String.
  
  Wenn du use strict; benutzen würdest, hätte perl dich darauf hingewiesen, dass ihm die Definition der Variable @otton fehlt.
  $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
- bianca
  
  2009-11-03 15:55
  User since
  2009-09-13
  7016 articles
  BenutzerIn
  @ ist ein Steuerzeichen für Variablen.
  
  Entweder maskierst Du das Zeichen
  
  Code (perl): (dl )
  
  $storename = "brom\@otton.de";
  
  oder Du machst es mit Hochkommata und gibst damit vor, keine Variablen im Text zu ersetzen:
  
  Code (perl): (dl )
  
  $storename = 'brom@otton.de';
  
  10 print "Hallo"
  20 goto 10
- +26 replies
- GwenDragon
  
  2009-11-03 15:55
  User since
  2005-01-17
  14741 articles
  Admin1
  Das @ ist dazu da, ein Array anzugeben. @ottom existiert aber nicht und deswegen expandiert @ottom zu einem Leerstring.
  
  Du solltest sowas in einfache Anführungszeichen setzen oder bestimmte zeichen wie %@$ in Zeichenketten mit \ maskieren, wenn sie so ausgegegeben werden sollen.
  
  Also so:
  
  Code (perl): (dl )
  
  $storename = 'brom@otton.de';
  
  oder
  
  Code (perl): (dl )
  
  $storename = "brom\@otton.de";
  
  Siehe auch perldoc Perls Variablentypen
  Last edited: 2009-11-03 15:58:34 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +25 replies
  - bianca
    
    2009-11-03 15:58
    
    User since
    2009-09-13
    7016 articles
    BenutzerIn
    
    2009-11-03T14:55:57 GwenDragon
    deswegen expandiert @ottom zu einem Leerstring.
    
    Oder nicht eher doch zu einem "use of uninitialized...."...
    
    ...wenn Fragesteller mal mit use strict arbeiten würde?
    10 print "Hallo"
    20 goto 10
    - +10 replies
    - pq
      
      2009-11-03 16:04
      
      User since
      2003-08-04
      12208 articles
      Admin1
      
      nö. das ist eine warnung, dass ein wert nicht initialisiert wurde.
      strict jedoch beschwert sich, wenn eine variable nicht deklariert wurde (wie ich eben weiter unten im thread schrieb)
      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
      - +9 replies
      - bianca
        
        2009-11-03 16:11
        
        User since
        2009-09-13
        7016 articles
        BenutzerIn
        
        2009-11-03T15:04:15 pq
        nö. das ist eine warnung, dass ein wert nicht initialisiert wurde.
        strict jedoch beschwert sich, wenn eine variable nicht deklariert wurde (wie ich eben weiter unten im thread schrieb)
        
        Dennoch expandiert ein nicht definiertes @otton nicht zu einem Leerstring sondern zu undef.
        War eine Spitzfindigkeit, zugegeben.
        Aber wenn hier ein Lernender schon fragt, sollte er es auch richtig beigebracht bekommen, finde ich.
        10 print "Hallo"
        20 goto 10
        
        +8 replies
        
        pq
        
        2009-11-03 16:21
        
        User since
        2003-08-04
        12208 articles
        Admin1
        
        2009-11-03T15:11:25 bianca
        Dennoch expandiert ein nicht definiertes @otton nicht zu einem Leerstring sondern zu undef.
        
        das ist blanker unsinn.
        $string = "blubb @foo";
        so soll da bitte undef rauskommen??
        ein nicht definiertes array ist einfach leer, und ein leeres array interpoliert ergibt natürlich den leeren string. nur wenn das array ein element enthalten würde, das undef ist, gabe es ein undef im string, was zu "" würde und gleichzeitig eine warnung ausgeben würde.
        ein interpoliertes array ist doch nichts anderes als join $", @array. was eben zum leerstring wird, wenn @array leer ist.
        bitte probier vorher aus, bevor du sowas behauptest!
        
        Quote
        Aber wenn hier ein Lernender schon fragt, sollte er es auch richtig beigebracht bekommen, finde ich.
        
        ja deswegen versuche ich euch beiden das mit dem undef auch schnell wieder aus dem kopf zu kriegen.
        glashaus, steine...
        vorher testen!
        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
        
        +3 replies
        
        bianca
        
        2009-11-03 16:22
        
        User since
        2009-09-13
        7016 articles
        BenutzerIn
        
        JAAAAAAAAAAAAAAAAA.
        Sorry!
        Siehe Beitrag weiter unten.
        10 print "Hallo"
        20 goto 10
        
        +2 replies
        
        pq
        
        2009-11-03 16:25
        
        User since
        2003-08-04
        12208 articles
        Admin1
        
        den habe ich jetzt gesehen, ja. da unterstellst du mir spitzfindigkeit. aber erst nicht zugeben wollen, dass das blödsinn ist, was du über undef schreibst. da brauchst du jetzt nicht anfangen zu schreien.
        wer ist hier spitzfindig?
        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
        
        2009-11-03 16:27
        
        User since
        2009-09-13
        7016 articles
        BenutzerIn
        
        2009-11-03T15:25:51 pq
        den habe ich jetzt gesehen, ja. da unterstellst du mir spitzfindigkeit. aber erst nicht zugeben wollen, dass das blödsinn ist, was du über undef schreibst. da brauchst du jetzt nicht anfangen zu schreien.
        wer ist hier spitzfindig?
        
        Hast Du mit dem Begriff ein Kindheitstrauma?
        Ich hab mich selbst ebenso bezeichnet.
        Ist das jetzt ein Grund, gleich in 4 Beiträgen darüber auszurasten?
        10 print "Hallo"
        20 goto 10
        
        +4 replies
        
        GwenDragon
        
        2009-11-03 16:28
        
        User since
        2005-01-17
        14741 articles
        Admin1
        
        @pq
        Danke für den Hinweis, ich Trottel. So eine Gedankenlosigkeit.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +2 replies
        
        pq
        
        2009-11-03 16:29
        
        User since
        2003-08-04
        12208 articles
        Admin1
        
        kann ja mal passieren =)
        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
        
        GwenDragon
        
        2009-11-03 16:37
        
        User since
        2005-01-17
        14741 articles
        Admin1
        
        Ich dachte, dass autovivification des @ottom ein Element als undef erzeugt.
        Ich muss mal nachsitzen, glaube ich.
        
        Da hat der stroke damals doch mehr angerichtet als gedacht.
        Sorry. Ich wollte niemand falsches beibringen.
        
        /EDIT: Vertipper in autivivification verbessert
        Last edited: 2009-11-03 16:40:09 +0100 (CET)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        bianca
        
        2009-11-03 16:30
        
        User since
        2009-09-13
        7016 articles
        BenutzerIn
        
        2009-11-03T15:28:33 GwenDragon
        @pq
        Danke für den Hinweis, ich Trottel. So eine Gedankenlosigkeit.
        
        Ach, so muss man das machen, dass pq keinen Anfall bekommt.
        Moment......
        10 print "Hallo"
        20 goto 10
    - +14 replies
    - GwenDragon
      
      2009-11-03 16:07
      
      User since
      2005-01-17
      14741 articles
      Admin1
      
      mach doch mal in Perl folgendes:
      
      Code: (dl )
      
      print "'@bottom'";
      
      Dann siehst du, es ist leer (ja ich gebe zu, es ist wohl eigentlich undef anstatt '').
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +2 replies
      - bianca
        
        2009-11-03 16:09
        
        User since
        2009-09-13
        7016 articles
        BenutzerIn
        
        2009-11-03T15:07:15 GwenDragon
        (ja ich gebe zu, es ist wohl eigentlich undef anstatt '').
        
        Das wollte ich damit sagen.
        10 print "Hallo"
        20 goto 10
        
        pq
        
        2009-11-03 16:10
        
        User since
        2003-08-04
        12208 articles
        Admin1
        
        das ist aber falsch.
        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
      - +11 replies
      - pq
        
        2009-11-03 16:10
        
        User since
        2003-08-04
        12208 articles
        Admin1
        
        undef ist es nicht, sondern einfach ein array mit null elementen. falls es also deklariert ist, würde auch keine warnung kommen.
        und ein string, der ein array mit null elementen interpoliert - wo soll da undef bei rauskommen?
        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
        
        +3 replies
        
        bianca
        
        2009-11-03 16:13
        
        User since
        2009-09-13
        7016 articles
        BenutzerIn
        
        2009-11-03T15:10:27 pq
        undef ist es nicht, sondern einfach ein array mit null elementen. falls es also deklariert ist, würde auch keine warnung kommen.
        und ein string, der ein array mit null elementen interpoliert - wo soll da undef bei rauskommen?
        
        Jut, das ist jetzt wiederum eine andere Spitzfindkeit, ist es halt nicht use of uninitialized sondern Possible unintended interpolation.
        Mein Fehler.
        
        Fazit an den Fragesteller: benutze bitte
        
        Code (perl): (dl )
        
        use strict;
        
        !
        10 print "Hallo"
        20 goto 10
        
        +2 replies
        
        pq
        
        2009-11-03 16:23
        
        User since
        2003-08-04
        12208 articles
        Admin1
        
        2009-11-03T15:13:54 bianca
        Jut, das ist jetzt wiederum eine andere Spitzfindkeit,
        
        spitzfindigkeit, soso.
        und im anderen posting schreibst du oberlehrerhaft "Aber wenn hier ein Lernender schon fragt, sollte er es auch richtig beigebracht bekommen, finde ich.".
        ich glaub, mein schwein pfeift.
        ich bin sptizfindig, und du bringst den leuten diesen unsinn mit undef. klar.
        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
        
        2009-11-03 16:26
        
        User since
        2009-09-13
        7016 articles
        BenutzerIn
        
        2009-11-03T15:23:20 pq
        und im anderen posting schreibst du oberlehrerhaft
        
        Bitte keine Emotionalität rein interpretieren wo keine ist. Es geht nicht um mich sondern um die Frage.
        
        Und zur Sache sagte ich schon: JAAAAAAAAA, sorry, mein Fehler. Hab es falsch geschrieben!
        10 print "Hallo"
        20 goto 10
        
        +7 replies
        
        bianca
        
        2009-11-03 16:31
        
        User since
        2009-09-13
        7016 articles
        BenutzerIn
        
        @pq
        Danke für den Hinweis, ich Trottel. So eine Gedankenlosigkeit.
        10 print "Hallo"
        20 goto 10
        
        +6 replies
        
        GwenDragon
        
        2009-11-03 16:33
        
        User since
        2005-01-17
        14741 articles
        Admin1
        
        Du Faulpelz! Kopiert mich einfach. :)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +5 replies
        
        bianca
        
        2009-11-03 16:37
        
        User since
        2009-09-13
        7016 articles
        BenutzerIn
        
        2009-11-03T15:33:41 GwenDragon
        Du Faulpelz! Kopiert mich einfach. :)
        
        Damit ich nicht wieder das Falsche schreibe und Prügel kriege.
        10 print "Hallo"
        20 goto 10
        
        +4 replies
        
        pq
        
        2009-11-03 16:48
        
        User since
        2003-08-04
        12208 articles
        Admin1
        
        komm, lass es gut sein. du hast was falsches geschrieben, was kein verbrechen ist, aber nach einer korrektur hast du drauf bestanden, dass du recht hast, ohne zu testen, mit dem zusatz, man wolle ja niemandem was falsches beibringen. jetzt einen auf opfer machen ist wirklich fehl am platz.
        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
        
        +3 replies
        
        bianca
        
        2009-11-03 17:01
        
        User since
        2009-09-13
        7016 articles
        BenutzerIn
        
        2009-11-03T15:48:29 pq
        komm, lass es gut sein. du hast was falsches geschrieben, was kein verbrechen ist, aber nach einer korrektur hast du drauf bestanden, dass du recht hast, ohne zu testen, mit dem zusatz, man wolle ja niemandem was falsches beibringen. jetzt einen auf opfer machen ist wirklich fehl am platz.
        
        Dann ist das falsch rüber gekommen. Sicher war ich mir nicht mit dem undef (darauf kam es mir auch garnicht an) sondern nur damit, dass es nicht zu einem Leerstring expandiert wobei ich davon ausging, dass das Array ansonsten im Script keine Verwendung findet.
        Dass auch das falsch ist, hab ich ja nun gelernt, dies aber erst NACHDEM ich den Satz schrieb, den Du mir als "oberlehrerhaft" unterstellt hattest.
        
        Zu diesem Zeitpunkt dachte ich noch, ich hätte mich nur beim undef vertan und könnte wenigstens den Rest klar stellen. Leider lag ich damit auch völlig daneben, SORRY nochmal!
        
        Jetzt muss es aber auch reichen oder wie werde ich als nächstes bezeichnet? Oberlehrer, Faulpelz und Opfer hatten wir schon....
        Dummkopf, Vollidiot oder Depp vielleicht noch? Ist Dir dann wohler?
        10 print "Hallo"
        20 goto 10
        
        +2 replies
        
        GwenDragon
        
        2009-11-03 17:22
        
        User since
        2005-01-17
        14741 articles
        Admin1
        
        Bitte, es ist jetzt genug.
        Wenn du dich beschimpft fühlst, trage es nicht hier aus, sondern spreche bitte mit pq direkt per PN oder Mail.
        
        Der Faulpelz war von mir noch spassig gemeint. Da hast du wohl das :) übersehen. Tut mir leid, wenn dich das kränkte.
        Es ist mir aber noch nie vorgekommen, dass Leute einfach meine Postings als ihre Antwort ausgeben.
        
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        bianca
        
        2009-11-03 18:20
        
        User since
        2009-09-13
        7016 articles
        BenutzerIn
        
        2009-11-03T16:22:58 GwenDragon
        Der Faulpelz war von mir noch spassig gemeint. Da hast du wohl das :) übersehen. Tut mir leid, wenn dich das kränkte.
        
        Kein Problem, hab das nur aufgezählt, weil ich gerade dabei war.
        Ich habe ohnehin genügend Humor für solche Threads. Manchmal mache ich mir nur um pq's Blutdruck Sorgen und finde ihre Äußerungen gemessen an den Umständen viel zu ernst und überzogen. Vielleicht nimmt sie das zu persönlich, ich weiß es nicht.
        
        Deinen Smilie hatte ich selbstverständlich gesehen. Deinen Text zu kopieren war ebenfalls spassig gemeint, wollte eigentlich pq ein wenig zum Lachen bringen. Es scheint aber kein Keller in ihrer Nähe gewesen zu sein.... schade :)
        10 print "Hallo"
        20 goto 10
- +4 replies
- pq
  
  2009-11-03 16:02
  
  User since
  2003-08-04
  12208 articles
  Admin1
  
  wenn du use strict verwendet hättest, hätte perl dich mit sicherheit gewarnt, dass du da ein array verwendest, dasss du gar nicht deklariert hast. warum verwendest du kein strict? oder hast du etwa tatsächlich ein array namens @otton?
  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
  - +3 replies
  - pq
    
    2009-11-03 16:06
    User since
    2003-08-04
    12208 articles
    Admin1
    
    um das mal zu demonstrieren:
    
    Code (perl): (dl )
    
    1 2 3
    
    use strict; use warnings; my $string = "foo@bar.example";
    
    Code: (dl )
    
    1 2 3
    
    Possible unintended interpolation of @bar in string at - line 3. Global symbol "@bar" requires explicit package name at - line 3. Execution of - aborted due to compilation errors.
    
    das nenn ich doch mal eine hilfreiche fehlermeldung/warnung. wenn du dann noch nicht weisst, was "interpolation" bedeutet, kannst du das ja nachschlagen.
    also, ab sofort nur noch mit strict arbeiten.
    
    edit: use warnings
    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
    - +2 replies
    - guest Knowbody
      
      2009-11-03 16:46
      
      Hallo Experten,
      ich bin überwältigt von soviel Hilfe, Wissen und Bereitschaft das zu teilen.
      Das sind Angaben und Hinweise dir mir hoffentlich weiter helfen.
      Herzlichen Dank für die Hilfe
      Knowbody
      - GwenDragon
        
        2009-11-03 16:50
        
        User since
        2005-01-17
        14741 articles
        Admin1
        
        Bitte sehr. Kein Problem.
        
        Als ich vor Jahren mit Perl anfing, war ich froh, dass bei besonderen Perl-Programmierproblemen die Perl-Community da war.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2009-11-03 15:53.