Suchen und ersetzen (solved) (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2026-06-09 22:44:24
Europe/Berlin
Login (Register)
- Preferences
- Statistics
Jemand zu Hause?
0 users online
8 guests

[thread]19058[/thread]

submit to reddit

Suchen und ersetzen [solved]

[solved]

Tags: perl5 Similar Threads

Readers: 12

Articles: hide open all | hide show old branches

+3 replies
guest Peter

2014-04-28 16:12
Hallo, ich habe ein Programmierproblem bei dem ich nicht weiterkomme. Ich habe einen String der immer so aufgebaut sein soll " dddddd/dddddd ". Jetzt kommt der String ziemlich oft ohne das Leerzeichen am Anfang und am Ende vor. Das zu lösen war nicht so schwierig.
Code: (dl )

if ( $feld =~ /(\d{6}\/\d{6})/i ) { $feld = " " .$1 . " "; }
Ich möchte jetzt auch alle die Werte ersetzen bei denen anstelle des Slash (zwischen den Zahlen) irgendein anderes Zeichen oder Leerzeichen steht. Z.B. soll "000234+123456" zu " 000234/123456 " werden.

LG, Peter
Last edited: 2014-04-28 16:49:46 +0200 (CEST)
- +2 replies
- murphy
  
  2014-04-28 16:53
  User since
  2004-07-19
  1776 articles
  HausmeisterIn
  Zum Beispiel könntest Du
  
  Code (perl): (dl )
  
  if ($feld =~ /(\d{6}).(\d{6})/) { $feld = " $1/$2 " }
  
  schreiben.
  When C++ is your hammer, every problem looks like your thumb.
  - guest Peter
    
    2014-04-29 15:54
    
    Super Idee. Vielen Dank!
    
    LG
    Last edited: 2014-04-29 16:04:09 +0200 (CEST)

View all threads created 2014-04-28 16:12.