Nach sonderzeichen groß schreiben... (gelöst) - #165678 (Allgemeines zu Perl)

topeg

2013-02-09 13:14

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Ich denke das tifft es besser:

Code (perl): (dl )

$string =~ s/(_\W*)(\w)/$1\U$2/g;

Leider geht ein Lookbehind mit variable Länge nicht.

Wenn der die Texte dekodiert, so dass Perl den String als utf8 markiert kann, dann klappt es auch mit den Umlauten:

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;
use utf8;

while (my $line = <DATA>) {
  last if $line =~ /__END__/;
  chomp($line);
  print "|$line| => |";

  $line=~s/(_\W*)(\w)/$1\U$2/g;

  print "$line|\n";
}

__DATA__
öl im  _((überfluß
wie ist das so?
Das ist _astrophysik!
Mag sein, dass es ;;;perl ist.
__END__