小写改大写的问题？

nicaijin

1. #!/usr/bin/perl
   
2. $JOB = 2se2314ao;
   
3. print;

复制代码

我要打印出来的$JOB为大写的  即为“2SE2314AO”

贴上代码 便于了解  谢谢 ~~~

minirain

$JOB = uc("2se2314ao");

最爱在深秋

#!/usr/bin/perl
use strict;
my $JOB;
$JOB= 2se2314ao;
$JOB=~ tr/a-z/A-Z/;
print "$JOB\n";

最爱在深秋

echo "2se2314ao" | tr "[a-z]" "[A-Z]"

nicaijin

还是没有看懂能不能大侠都贴上代码，  我新手~~

seufy88

$JOB=~s/(\w+)/\U$1/;

兰花仙子

uc()不可以么