linux-l: regexpr

[Ulrich Wiederhold]

Hallo,
* Ruwen Poljak <ruwen at rm-r.de> [010907 13:04]:
> das müßte in etwa so gehen:
> 
> $file = ucfirst lc($file);

Leider nicht so einfach.
So funktioniert es jetzt:

$file = lc($file);
while ($file =~ s/_/ /) {} #converts underlines to spaces
my @word = split(/\s+/, $file);
$file = undef;
foreach my $word (@word) {
   $word = ucfirst($word);
   $file = $file . " $word";
}

Das erscheint mir aber noch sehr aufwendig. Hat nicht jemand noch ne
Idee für ne regexpr? Vielleicht mit \u ?

Gruß
Uli

-- 
'The box said, 'Requires Windows 95 or better', so i installed Linux - TKK 5