Citat:
Originally posted by aikon@Apr 1 2006, 14:03
Tack, ska testa.
Men finns inte ucfirst i perl? Hittade det med googlande.
|
Skulle tro det är nåt lib som inte är installerat, känns lite php o sån lyx finns sällan i perl.
Kod:
#!/usr/bin/perl
print "Content-type: text/html\n\n";
$var = "hej pa dej.";
$var2 = "hej pa dej.";
$var =~ s/([A-ZÅÄÖØa-zåäöø])([A-ZÅÄÖØa-zåäöø]+)/\U$1\E\L$2\E/g;
$var2 =~ s/([A-ZÅÄÖØa-zåäöø])([A-ZÅÄÖØa-zåäöø]+)/\U$1\E\L$2\E/;
print "$var\n<br>$var2\n<br>";
ger
Kod:
Hej Pa Dej.
Hej pa dej.