#!/usr/bin/perl
$_ = "welcome to groad.net";
s/(groad.net)/\U$1/;
print "$_\n";
./case.pl
welcome to GROAD.NET
$_ = "WelCome to groad.net";
s/(WelCome)/\L$1/;
print "$_\n";
./case.pl
welcome to groad.net
#!/usr/bin/perl
$_ = "welcome to groad";
s/(\w+) to (\w+)/\U$1 to $2/i;
print "$_\n";
./case.pl
WELCOME TO GROAD
./case.pl
WELCOME to groad
#!/usr/bin/perl
$_ = "welcome to groad";
s/(welcome)/\u$1/;
print "$_\n";
./case.pl
Welcome to groad
欢迎光临 曲径通幽论坛 (http://www.groad.net/bbs/) | Powered by Discuz! X3.2 |