Kleines Problem - #82637 (Allgemeines zu Perl)

[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]