Just nu i M3-nätverket
Gå till innehåll

"Inledande versal" i sträng i CGI-Perl


Yvonne

Rekommendera Poster

Hej!

 

Är det någon som kan hjälpa mig?

 

Jag vill ha 1:a bokstaven i en sträng till versal?

 

Jag får hela strängen i versaler:

 

$strengen =~ tr/a-z/A-Z/;

 

Tack!

Länk till kommentar
Dela på andra webbplatser

Finns säkert nått 20 ggr enklare sätt med bara användning av tr men jag kom på detta på rak arm:

 

#!/usr/local/bin/perl -w

$str="hejsan";

$blah = $str;

$blah =~ tr/[a-z]/[A-Z]/;

substr($str, 0, 1) = substr($blah, 0, 1);

print "$str\n";

 

Johbe

 

 

Im not even supposed to be here!

BOFH

Länk till kommentar
Dela på andra webbplatser

Efter lite eftertanke slog det mig att det finns en funktion för just detta,

ucfirst() använd den istället, det blir så mycket lättare att läsa.

 

Ex av uppercase first,

 

#!/usr/local/bin/perl -w

$str = "hejsan";

$str = ucfirst($str);

print "$str\n";

 

Johbe

 

Im not even supposed to be here!

BOFH

Länk till kommentar
Dela på andra webbplatser

Arkiverat

Det här ämnet är nu arkiverat och är stängt för ytterligare svar.

×
×
  • Skapa nytt...