letztes Zeichen eines Skalars übernehmen (gelöst) (Allgemeines zu Perl)

[thread]17356[/thread]

letztes Zeichen eines Skalars übernehmen [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+8 replies
Gast HP-User

2012-04-24 13:26
Hallo zusammen

Ich werd noch wahnsinnig *g* Das kann doch wirklich net so schwer sein!

Ich hab einen Skalar und will einfach nur das letzte Zeichen übergeben.
Code: (dl )

$decider = letztenbuchstabenrausrück($storycode);
Ich kann Umbrüche entfernen, das letzte Zeichen Löschen (chomp/chop) aber wie bekomme ich den letzten Buchstaben?

Ich konnte im Perl Doc keinen Befehl finden. Auch die Sufu. zeigt nur chomp/chop. Gibt's da wirklich nichts?

Gruß HP-User

PS:Sorry aber mir scheint das dies wirklich ein lächerliches Problem ist und ich mich gard fürchterlich blamiere! *schäm*
- +3 replies
- GwenDragon
  
  2012-04-24 13:29
  User since
  2005-01-17
  14746 Artikel
  Admin1
  Schau mal substr ist dein Freund.
  
  Code (perl): (dl )
  
  my $letztes = substr($zeichenkette,-1); # -1 bedeutet letztes Zeichen
  
  Last edited: 2012-04-24 13:31:12 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +2 replies
  - Gast HP-User
    
    2012-04-24 13:41
    
    Hallo Gwen Dragon
    
    Erstens: Vielen, vieln Dank! It works!
    
    Zweitens: Himmel axxxx und Zwirn - ich kenne substr. Damit kann man jede beliebige Position in einer Zeichenkette erreichen. Immer von vorne gezählt - dachte ich *hand-auf-stirn-klatsch* Ich hab in noch keiner doku was davon gelesen, daß dieser Wert bei substr auch negatv sein kann - tztz...
    
    Also bedanke ich mich in aller Form - wieder was gelernt heute ;-)
    
    Gruße von HP-User
    Last edited: 2012-04-24 14:00:55 +0200 (CEST)
    - GwenDragon
      
      2012-04-24 14:06
      
      User since
      2005-01-17
      14746 Artikel
      Admin1
      
      Also ich kenne substr bei Javascript, PHP oder SQL bei SUBSTRING() dass negative Zahlen "von hinten gezählt" sind.
      
      Bei Perl bezeichnen negative Zahlen oft sowas wie "von Ende her rückwärts gezählt".
      Beispiel: Bei Arrays ist der zweitletzte Eintrage $ARRAY[-2].
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +4 replies
- FIFO
  
  2012-04-24 14:28
  User since
  2005-06-01
  469 Artikel
  BenutzerIn
  Guest HP-User
  Ich kann Umbrüche entfernen, das letzte Zeichen Löschen (chomp/chop) aber wie bekomme ich den letzten Buchstaben?
  
  perldoc -f chop:
  
  Note that "chop" returns the last character.
  
  Code: (dl )
  
  1 2
  
  perl -e "$_='foo'; print chop()" o
  
  Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
  - +3 replies
  - GwenDragon
    
    2012-04-24 14:56
    
    User since
    2005-01-17
    14746 Artikel
    Admin1
    
    Nur beißt chop den Buchstaben ab, ob das so gewollt war von Gast HP-User? Wer weiß.
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +2 replies
    - FIFO
      
      2012-04-24 15:03
      
      User since
      2005-06-01
      469 Artikel
      BenutzerIn
      
      ja, hast natürlich Recht. Ich dachte, er weiß nicht, dass chop einen Return-Wert hat.
      Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
      - Gast HP-User
        
        2012-04-24 19:48
        
        Hallo Ihr beiden
        
        @FIFO
        Ich wußte nicht, daß chop ein Rückgabewert hat.
        
        @Gwen
        Ja, ich brauchte den kompletten Skalarwert - trotz herauspicken der letzten Stelle.
        
        -->Von da her hattet Ihr beide Recht. :-)
        
        Bin übrigens gerade mit den Perlprogrammen fertig geworden. Sind fünf kleine Skripte geworden, die soweit ich sehe, fehlerfrei arbeiten. Musste hier und da noch nachträglich "chompen", damit die Ausgabe keine Umbrüche produziert. *grins*
        
        Wer will kann kurz durchtesten, lasse es noch bis heute Abend online. Nehm es später wieder runter.
        
        Für den kompletten Programmtest folgendes auswählen:
        Schritt 1/1 = Autonomverhalten
        Schritt 2/2 = Zähneputzen
        Schritt 3/3 = Jungen oder Mädchen oder Alle
        
        Mit dem Zurück-Knopf am Browser (2x klicken) könnt ihr sehen, wie sich die Geschlechterwahl auf das gelistete Ergebnis auswirkt. Das war ganz schön knifflig. Während eine Auswahl nur Jungen oder nur Mädchen einfach ist, musste bei der Auswahl "Alle" nicht nur die Jungen und Mädchentexte gefiltert werden, sondern auch die Texte für "Alle"
        
        Der Link:
        http:///
        
        Viele Grüße von HP-User
        
        modedit Editiert von GwenDragon: URL gelöscht auf Wunsch
        Last edited: 2012-10-05 12:55:39 +0200 (CEST)

View all threads created 2012-04-24 13:26.