Thread Leerzeichen (in Klammer) durch '@' ersetzen (2 answers)
Opened by kimmy at 2011-05-04 09:52

kimmy
 2011-05-04 09:52
#148244 #148244
User since
2010-09-10
87 Artikel
BenutzerIn
[default_avatar]
Hallo,

ich hätte gern alle Leerzeichen, die in Klammer stehen, durch '@' ersetzen.
Code: (dl )
1
2
3
aaa bbb ccc (dd ee)
(aa bb) (cc dd) eee fff
aaa (bb cc) (dd ee ff) ggg


Code: (dl )
1
2
3
aaa bbb ccc (dd@ee)
(aa@bb) (cc@dd) eee fff
aaa (bb@cc) (dd@ee@ff) ggg


Mein Skript sieht folgt aus,
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#!/usr/bin/perl

use strict;
use warnings;

while(<>){
     chomp;
     while(/(.*)(\([^\(]+([^\(]+?)+\))(.*)/g){
		my $vorn = $1;
		my $klammer = $2;
		my $hinter = $4;
		$klammer =~ s/ /@/g;
		$text = $vorn.$klammer.$hinter;
	}
}

Wie kann ich mein Skript verbessern (Geschwindigkeit)?

View full thread Leerzeichen (in Klammer) durch '@' ersetzen