Wenn fünf Zahlen am Anfang des Strings dann löschen (Allgemeines zu Perl)

[thread]19657[/thread]

Wenn fünf Zahlen am Anfang des Strings dann löschen

Tags: perl5 regex Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+3 replies
Gast Mathias

2015-05-13 11:48
Hallo Perl und Regex Kenner

Ich möchte gerne folgendes Ergebis erstellen:

Wenn ein String am Anfang fünf aufeinander folgende Zahlen beginnt, dann soll man diese fünf Zahlen löschen, ansonsten soll man nichts machen.

Die Strings können So aussehen:
$message = "1234567 Das ist der Text" (Ausgabe müsste dann "67 Das ist der Text")
$message = "Das ist der Text" (Ausgabe müsste dann "Das ist der Text")
$message = "567 Das ist der Text" (Ausgabe müsste dann "567 Das ist der Text")

Mit folgendem Code wird bei mir jeweils immer fünf Zeichen gelöscht:
Code: (dl )

$message =~ s/^d{5}//;
Danke für einen Hinweis
Mathias
Last edited: 2015-05-13 12:25:59 +0200 (CEST)
- FIFO
  
  2015-05-13 12:36
  User since
  2005-06-01
  469 Artikel
  BenutzerIn
  Guest Mathias
  Mit folgendem Code wird bei mir jeweils immer fünf Zeichen gelöscht:
  
  Code: (dl )
  
  $message =~ s/^d{5}//;
  
  Mathias
  
  Da fehlt ein Backslash vor dem d ...
  Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
- Linuxer
  
  2015-05-13 13:34
  User since
  2006-01-27
  3891 Artikel
  HausmeisterIn
  Guest Mathias
  Mit folgendem Code wird bei mir jeweils immer fünf Zeichen gelöscht:
  
  Code: (dl )
  
  $message =~ s/^d{5}//;
  
  Wow, Dann ist Dein Perl kaputt. Bei mir würde das nur 5 'd' am Anfang entfernen, aber nicht "immer fünf Zeichen".
  
  Ansonsten hat FIFO Dir ja schon mitgeteilt, dass Du einen Backslash vor das d setzen musst, um auf Ziffern zu matchen.
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
  
  # die ersten 5 d werden ersetzt ~ $ perl -wE '$aa = "dddddd"; $aa =~ s/^d{5}//; say $aa' d # nix wird ersetzt, weil kein Treffer ~ $ perl -wE '$aa = "123456"; $aa =~ s/^d{5}//; say $aa' 123456 # die ersten 5 beliebigen Zeichen werden ersetzt ~ $ perl -wE '$aa = "123456"; $aa =~ s/^.{5}//; say $aa' 6 # die ersten 5 Ziffern werden ersetzt ~ $ perl -wE '$aa = "123456"; $aa =~ s/^\d{5}//; say $aa' 6 ~ $
  
  Siehe auch:
  perlretut
  perlre
  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!

View all threads created 2015-05-13 11:48.