Kleines Problem (Allgemeines zu Perl)

[thread]6282[/thread]

Kleines Problem

Gast Gast

2004-05-21 17:19

Hi,

ich habe heute das erste mal mit Perl zu tun und habe daher noch nicht sonderlich viel Erfahrung.

Mein Problem ist folgendes:

Ich habe eine Zeichnkette und würde gerne an bestimmten Stellen Zeilenvorschübe einfügen. Diese bestimmten Stellen sind in diesem Fall: Vor Zahlen im Bereich von 3-6.

Ich habe es bereits mit einer Suchen und Ersetzen Funktion probiert, allerding wurden mir dann die Zahlen durch den Zeilenvorschub ersetzt und nicht wie beabsichtigt das Leerzeichen davor.

Hat jemand eine einfache Lösung für mich? :)

Danke im vorraus!

MfG Orinoko

[E|B]

2004-05-21 17:23

User since
2003-08-08
2561 Artikel
HausmeisterIn

HiHo!

Code: (dl )

$string = "jgfh4u4jfr23jkjvj";
$string =~ s/([3-6])/\n$1/g;

print $string;

Ein einfacher RegExp, der vor jede Zahl zwischen 3-6 eine neue Zeile einfügt. :)

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

View all threads created 2004-05-21 17:19.