String nach Leerzeichen abschneiden? (solved) (Perl/CGI)

[thread]19279[/thread]

String nach Leerzeichen abschneiden? [solved]

Tags: perl5 CGI Similar Threads

Readers: 17

Articles: hide open all | hide show old branches

+7 replies
Ionit

2014-09-14 22:50

User since
2006-05-16
81 articles
BenutzerIn

Hallo Freunde,

ich habe einen String in einer Variablen.

$string = 'grün ist der Wald';

Ich möchte nun hinter dem ersten Wort "grün" alles abschneiden und löschen lassen - einschließlch Leerzeichen.

Das Ergebnis soll sein.

$string = 'grün';

Der String ist aber nur ein Beispiel - man weiß vorher nicht wie der String lautet .... es soll aber immer, nach dem ersten Wort (egal wie das Wort heißt), ab dem ersten Leerzeichen alles abgeschnitten und gelöscht werden.

Da ich leider noch Anfänger bin, habe ich damit Probleme. Könnte mir bitte jemand einen Tip geben wie man das macht?

Danke und Gruß
Matthias
Last edited: 2014-09-14 22:53:29 +0200 (CEST)
- +2 replies
- Linuxer
  
  2014-09-14 23:00
  User since
  2006-01-27
  3836 articles
  HausmeisterIn
  Hi,
  
  dafür gibt es verschiedene Möglichkeiten:
  
  1. per Regex
  
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  my $text = "Hallo Welt."; # ersetze alles ab dem ersten Leerzeichen durch einen Leerstring $text =~ s/ .*//; print ">$text<\n";
  
  2. per substr() und index()
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7
  
  my $text = "Hallo Welt."; # index sucht die Position des Leerzeichens von rechts ab Position 0 # substr überschreibt dann in $text ab der gefundenden Position den Reststring mit dem zugewiesenen String substr($text, index($text, ' ', 0) ) = ''; print ">$text<\n";
  
  3. per split()
  
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  my $text = "Hallo Welt."; # splitte an Leerzeichen in 2 Teile; verwende nur den ersten Teil $text = ( split / /, $text, 2 )[0]; print ">$text<\n";
  
  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!
  - Ionit
    
    2014-09-14 23:08
    
    User since
    2006-05-16
    81 articles
    BenutzerIn
    
    Hallo Linuxer,
    vielen Dank - das funktioniert super.
    
    [Schulter klopf]
    
    Schöne Grüße
    Matthias
- +4 replies
- clms
  
  2014-09-14 23:04
  
  User since
  2010-08-29
  373 articles
  BenutzerIn
  
  Das ist in Perl ein ziemliches Standardproblem. Vermutlich happert es also auch an anderen Grundlagen, so dass ich ein allgemeines Tutorial empfehle,
  z.B. Modern Perl.
  
  Das sollte auch Dein konkretes Problem ausreichend abdecken.
  
  Ansonsten lautet das Stichwort für Dich "regular expressions" oder kurz "regex", siehe perlre und perlretut
  - +3 replies
  - Ionit
    
    2014-09-14 23:11
    
    User since
    2006-05-16
    81 articles
    BenutzerIn
    
    Ich habe mich bisher nicht an RegEx herangewagt da das alles für mich wie "Böhmische Wälder" aussieht.
    
    Teilweise ellenlange Zeichenketten die völlig unverständlich aussehen.
    
    Ich muss mich damit aber endlich mal beschäftigen.
    
    Danke für den Hinweis.
    - +2 replies
    - lichtkind
      
      2014-09-15 00:37
      
      User since
      2004-03-22
      5666 articles
      ModeratorIn + EditorIn
      
      es geht auch ohne regex einfach am leerzeichen splitten und erstes element nehmen. TIMTOWTDI. vielleicht langsamer aber wventuell leichter zu verstehen.
      
      Code (perl): (dl )
      
      1 2
      
      my @wort = split / /, $string; say $wort[0];
      
      oder für sezis:
      
      Code (perl): (dl )
      
      say ((split / /, $str)[0]);
      
      Tutorien in der Wiki, mein zeug:
      kephra, baumhaus, garten, gezwitscher
      
      Es beginnt immer mit einer Entscheidung.
      - Ionit
        
        2014-09-15 23:48
        
        User since
        2006-05-16
        81 articles
        BenutzerIn
        
        Danke lichtkind!

View all threads created 2014-09-14 22:50.