Just nu i M3-nätverket
Jump to content

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


Yvonne

Recommended Posts

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!

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...