Einbindende Zeichen und diese entfernen (gelöst) (Allgemeines zu Perl)

[thread]15307[/thread]

Einbindende Zeichen und diese entfernen [gelöst]

Leser: 26

Articles: hide open all | hide show old branches

+6 replies
jan999

2010-07-23 15:35

User since
2009-04-02
109 Artikel
BenutzerIn

Moin !

ich habe in einer Variablen ($test) einen String - z.B. {Muster}

Kann mir einer sagen wie ich testen kann, ob $test mit { beginnt und mit } endet ???

Im nächsten Schritt wäre dann { und } entfernen.

Das ist doch sicherlich ganz einfach ??

Gruß Jan :-)
- Linuxer
  
  2010-07-23 15:46
  User since
  2006-01-27
  3875 Artikel
  HausmeisterIn
  Hi,
  
  das kannst Du mit einer Regex direkt tun:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12
  
  use strict; use warnings; my @texte = qw( {muster} {kein_muster ); for my $text ( @texte ) { $text =~ s/\A{(.*)}\z/$1/; print $text, $/; }
  
  PS(edit): Der enthaltene String (hier also "muster" und "kein_muster" darf hierbei keinen Zeilenumbruch enthalten (weil hier . kein Newline trifft); siehe http://perldoc.perl.org/perlre.html und pqs Antwort.
  Last edited: 2010-07-23 15:54:00 +0200 (CEST)
  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!
- +4 replies
- pq
  
  2010-07-23 15:49
  User since
  2003-08-04
  12208 Artikel
  Admin1
  den test kannst du dir eigentlich sparen und gleich ersetzen.
  
  Code (perl): (dl )
  
  1 2 3
  
  if ($string =~ s/^ \{ (.*) \} \z/$1/xs) { print "removed {}\n"; }
  
  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
  - jan999
    
    2010-07-23 15:59
    
    User since
    2009-04-02
    109 Artikel
    BenutzerIn
    
    hi !
    
    erst einmal danke - aber ich muss die schritte schon teilen, da wenn keine {} vorhanden, dann kommt eine andere aktion zum tragen.
    
    gruß Jan :-)
    - +2 replies
    - pq
      
      2010-07-23 16:01
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      dann pack hinter meinen code noch ein
      
      Code (perl): (dl )
      
      1 2 3
      
      else { # mach was anderes }
      
      sehe jetzt das problem nicht...
      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
      - pq
        
        2010-07-30 10:29
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        ist das ein stillschweigendes zustimmen? kann dieser thread als gelöst markiert werden?
        
        edit: und schon isser wieder weg. alte threads interessieren offenbar nicht. ich mal mal den haken dran.
        Last edited: 2010-07-30 10:34:07 +0200 (CEST)
        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

View all threads created 2010-07-23 15:35.