Ersetzten eines Zeichnes in einem String (Allgemeines zu Perl)

[thread]7771[/thread]

Ersetzten eines Zeichnes in einem String

jason-duff

2006-03-07 16:58

User since
2005-10-11
23 Artikel
BenutzerIn
[default_avatar]

hallo ich habe 2 kleine Probleme die mich beschäftigen.

1 Frage. Ich tue in einem String Zeichen ersetzten. das mache ich so

Code: (dl )

sub replace { 
    $_[0] =~ tr/#/*/; 
    return $_[0]; 
  }

Wenn ich den Gartenzaun aber durch einen Slash "/ " ersetzten will,
dann funktioniert das nicht mehr ..
Ich habe das so probiert

Code: (dl )

sub replace { 
    $_[0] =~ tr/#/*/; 
    return $_[0]; 
  }

2 Frage: Ich habe einen String im Perl Script stehen der so lang ist, das er irgendwann umgebrochen wird. Doch wenn ich diesen String dann ausgeben lasse, dann hat er noch den blöden Zeilenumbruch den er selber reingemacht hat noch drin.

Wie kann ich also einen String über mehrere Zeilen schreiben ohne das bei der späteren Ausgabe noch ein Zeilenumbruch drin ist.

gruss jason

Crian

2006-03-07 17:03

User since
2003-08-04
5872 Artikel
ModeratorIn

Du kannst als Begrenzungszeichen auch andere Zeichen als den Slash nehmen, oder dur escapst den Slash.
Zur zweiten Frage: Den Umbruch macht dein Editor. Benutze ggf. einen anderen Editor oder entferne den Umbruch von Hand oder setze den String mittels . zusammen.\n\n

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

View all threads created 2006-03-07 16:58.