Zeilenumbrüche ersetzen (gelöst) (Allgemeines zu Perl) - Perl-Community.de

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

2024-12-20 04:30:26
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online

[thread]18990[/thread]

submit to reddit

Zeilenumbrüche ersetzen [gelöst]

[gelöst]

Tags: perl5 regex ersetzen Variablen Ähnliche Threads

Leser: 13

Articles: hide open all | hide show old branches

+3 replies
DarAvanger05

2014-03-22 22:47
User since
2014-03-03
44 Artikel
BenutzerIn
Ich möchte die Zeilenumbrüche ersetzen und mache das momentan so:
Code: (dl )

1 2 3 4 5 6 7 8

sub text_aendern { my $text = shift; chomp $text; $text =~ tr/\n/ersetzt/; printf "--$text--"; }
Aber dann ersetzt er mit das nur durch ein e.
Ich möchte das aber durch ersetzt ersetzten..
was mache ich falsch?
- +2 replies
- Linuxer
  
  2014-03-22 22:56
  
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  
  Dein Fehler: Du willst tr/// für etwas benutzen, wofür es nicht gemacht ist.
  
  Siehe: http://perldoc.perl.org/perlop.html#tr/SEARCHLIST/...
  und auch http://perldoc.perl.org/perlop.html#s/PATTERN/REPL...
  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!
  - DarAvanger05
    
    2014-03-22 23:08
    User since
    2014-03-03
    44 Artikel
    BenutzerIn
    
    Ah okay habs verstanden
    Habe es dann so gelöst:
    
    Code: (dl )
    
    $text =~ s/\n/ersetzt/g;
    
    Danke!

View all threads created 2014-03-22 22:47.