Leerzeichen (in Klammer) durch '@' ersetzen (gelöst) (Allgemeines zu Perl)

[thread]16250[/thread]

Leerzeichen (in Klammer) durch '@' ersetzen [gelöst]

Tags: perl5 regex Ähnliche Threads

Leser: 20

Articles: hide open all | hide show old branches

+3 replies
kimmy

2011-05-04 09:52
User since
2010-09-10
87 Artikel
BenutzerIn
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)?
- +2 replies
- Taulmarill
  
  2011-05-04 10:00
  User since
  2004-02-19
  1750 Artikel
  BenutzerIn
  Mein Vorschlag wäre ein anderer RegEx der die zweite Schleife überflüssig macht:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13
  
  use warnings; use strict; while( my $line = <DATA> ) { chomp $line; $line =~ s/\s(?=[^(]*\))/@/g; print "$line\n"; } __DATA__ aaa bbb ccc (dd ee) (aa bb) (cc dd) eee fff aaa (bb cc) (dd ee ff) ggg
  
  $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
  - kimmy
    
    2011-05-04 13:15
    
    User since
    2010-09-10
    87 Artikel
    BenutzerIn
    
    Super, Danke!

View all threads created 2011-05-04 09:52.