Alle leerzeichen in einem String durch EIN Komma ersetzen (Allgemeines zu Perl)

[thread]13579[/thread]

Alle leerzeichen in einem String durch EIN Komma ersetzen

Leser: 24

Articles: hide open all | hide show old branches

+5 replies
trojax

2009-05-28 15:12
User since
2009-05-13
21 Artikel
BenutzerIn
Hallo zusammen,
wie ich alle 1 durch 2 ersetze weis ich, nur wie mach ich das wenn ich folgenden String in der Variable $zeile stehen hab?
Code (perl): (dl )

my $zeile = "234232 hallo forum";
ich möchte ja nicht jedes leerzeichen durch ein "," sondern zusammenhängende Leerzeichen durch ein einziges ersetzen, also das dann sowas bei rauskommt:
Code (perl): (dl )

$zeile = "234232,hallo,forum";
Sicherlich ein kleines Problem, aber irgendwie scheints bei mir dafür nicht zu reichen :-(

Danke auf jeden Fall schon jetzt füreure Hilfe!
- pq
  
  2009-05-28 15:21
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  vielleicht mal perlretut lesen?
  mehrere zeichen matcht man in einer regex mit einem pluszeichen.
  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
- nepos
  
  2009-05-28 15:22
  User since
  2005-08-17
  1420 Artikel
  BenutzerIn
  So einfach:
  
  Code: (dl )
  
  1 2
  
  my $zeile = "234232 hallo forum"; $zeile =~ s/\s+/,/g;
  - +2 replies
  - trojax
    
    2009-05-28 15:43
    
    User since
    2009-05-13
    21 Artikel
    BenutzerIn
    
    Hmmm, dann liegt der Fehler woanders,
    das mit + ist mir klar, nur hatte es nicht geklappt und ich dachte da gäbe es irgendeine sonderbare Ausnahme oder sowas...
    Danke auf jeden fall ganz herzlich!
    
    Viele Grüße
    
    trojax
    - Crian
      
      2009-05-29 08:38
      
      User since
      2003-08-04
      5873 Artikel
      ModeratorIn
      
      Dann bastel mal aus deinem Problem bitte einen kurzen Code, wo der Text definiert wird und der reguläre Ausruck nicht funktioniert.
      s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
      
      use strict; use warnings; Link zu meiner Perlseite

View all threads created 2009-05-28 15:12.