Wie füge ich ein Leerzeichen zwischen einem alphanumerischen Zeichen und einem numerischen Zeichen ein? Diese

Question

ist eine Fortsetzung meiner ursprünglichen Frage: Perl- How do I insert a space before each capital letter except for the first occurrence or existing?

konnte ich ein gewünschtes Ergebnis des Einsetzens Raum zwischen Kappen mit nur Buchstaben in der Zeichenkette erreichen:

my $camel ="SomeCamel IsEnteringText"; 
$camel =~ s/(?<=[a-z])(?=[A-Z])/ /g; 
$camel =~ s/([^[:space:]]+)/\u$1/g; 

Drucke:

Einige Kamele geben Text ein

Aber, wenn Zahlen vorliegen, lief ich in Fragen:

my $camel ="Some 440Camel220 IsEntering100Text Nogo"; 
$camel =~ s/(?<=[a-z])(?=[A-Z])/ /g; 
$camel =~ s/([^[:space:]]+)/\u$1/g; 

Drucke:

Einige 440Camel220 Ist Entering100Text Nogo

Wunsch:

Einige 440 Camel 220 Eingabe von 100 Text Nogo

Also, wie füge ich jetzt ein Leerzeichen zwischen den Buchstaben und den Zahlen ein ?.

Answer 1

Veränderung der erste Wechsel zu sein:

$camel =~ s/(?<=[a-z])(?=[A-Z0-9])|(?<=[0-9])(?=[A-Z])/ /g; 

Siehe auch perldoc perlre.

Answer 2

Fügen Sie die folgenden zwei Substitutionen:

$camel =~ s/(?<=[0-9])(?=[a-z])/ /ig; 
$camel =~ s/(?<=[a-z])(?=[0-9])/ /ig; 

Die ersten Einsätze einen Raum an jedem Übergang zwischen einer Ziffer und einem Buchstaben. Der Modifizierer i am Ende macht den Ausdruck case-insensitive. Die zweite macht das Gegenteil.

Answer 3

von den letzten Nacht fortsetzen, eine 5.10+ Lösung,

$camel =~ s/(?:\p{Lu}\p{Ll}*+|[0-9]++)(?!\W)\K/ /g; 

Mit dem \ p {} Eigenschaften [1], dass tchrist hatte mich wieder zu entdecken:) Es ist im Grunde die gleiche Lösung wie beim letzten Mal, aber jetzt sind wir Überprüfen Sie auch auf Zahlen.

1: http://perldoc.perl.org/perluniprops.html#Properties-accessible-through- \ p {} - und- \ P {}