Schrift
[thread]7771[/thread]

Ersetzten eines Zeichnes in einem String



<< >> 2 Einträge, 1 Seite
jason-duff
 2006-03-07 16:58
#63593 #63593
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 )
1
2
3
4
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 )
1
2
3
4
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
#63594 #63594
User since
2003-08-04
5866 Artikel
ModeratorIn
[Homepage]
user image
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

<!--EDIT|Crian|1141743893-->
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
<< >> 2 Einträge, 1 Seite



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