Nach jedem Zeichen ein Leerzeichen (gelöst) (Allgemeines zu Perl)

[thread]15969[/thread]

Nach jedem Zeichen ein Leerzeichen [gelöst]

Leser: 31

Articles: hide open all | hide show old branches

+8 replies
bora99

2011-02-17 15:03

User since
2009-12-05
54 Artikel
BenutzerIn

Ich möchte im UNIX nach jedem Zeichen (Ziffern,Buchstaben) ein Leerzeichen einfügen, aber am Ende der Zeichenkette keines (mein Perl-Know How ist leider nicht sehr ausreichend dafür).
leider schaffe ich es am Ende nicht ...

echo abcd1234 | perl -n -e '$s=$_; $s =~ s/([a-z0-9])/${1} /sg; print "$s" ;'
Test: abcd1234
Soll: a b c d 1 2 3 4

Gruss
- havi
  
  2011-02-17 15:19
  User since
  2003-08-04
  2036 Artikel
  BenutzerIn
  Code (perl): (dl )
  
  1 2
  
  s%(.)% $1%g; s%^\s+%%;
  
  Wenns nicht nur Buchstaben/Ziffern sein können, kannst du auch den . verwenden...
  Last edited: 2011-02-17 15:42:10 +0100 (CET)
  Perl-Zeitung - http://perl-zeitung.at/
  Perl-Blog - http://usr-bin-perl.blogspot.com/
- Gast wer
  
  2011-02-17 15:47
  Code (perl): (dl )
  
  echo abcd1234 | perl -pe 's/(?<=[a-z0-9])/ /sg'
- clms
  
  2011-02-17 16:54
  
  User since
  2010-08-29
  373 Artikel
  BenutzerIn
  
  Ich würde es mit $s =~ s/(?<=\w)(?=\w)/ /g; machen.
  (Also mit look-behind und look-ahead. Der eigentliche Match-String hat dann die Länge 0 und wird durch das Leerzeichen "ersetzt".)
  
  Dabei werden die Leerzeichen nur zwischen zwei \w (also Buchstaben und/oder Ziffern) eingefügt. "Abc def. g1" würde so zu "A b c d e f. g 1". Ich weiss nicht, ob Du das willst.
  
  Wenn Du Großbuchstaben (u.ggf. Umlaute) ausschließen willst, kannst Du die
  \w in der Regex selbstverständlich durch [a-z0-9] ersetzen.
- +4 replies
- nepos
  
  2011-02-17 19:42
  User since
  2005-08-17
  1420 Artikel
  BenutzerIn
  Wie wärs so:
  
  Code: (dl )
  
  1 2
  
  echo abcd1234 | perl -nle 'print ">" . join(" ", split(//, $_)) . "<" ' >a b c d 1 2 3 4<
  - +3 replies
  - bora99
    
    2011-02-21 08:16
    
    User since
    2009-12-05
    54 Artikel
    BenutzerIn
    
    danke für die lösungen !!!
    - +2 replies
    - havi
      
      2011-02-21 08:21
      
      User since
      2003-08-04
      2036 Artikel
      BenutzerIn
      
      Sei doch so gut und markiere den Thread als gelöst.
      
      Danke!
      Perl-Zeitung - http://perl-zeitung.at/
      Perl-Blog - http://usr-bin-perl.blogspot.com/
      - renee
        
        2011-02-21 08:26
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Hab ich gemacht...
        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/

View all threads created 2011-02-17 15:03.