Template:

#!/user/bin/perl -w

use strict;

use warnings;

my $jfjdlsfl = ;

Example: 读取文件中的字符串，将每个字符串中的小写字母换成大写字母

#!/user/bin/perl -w use strict; use warnings; ##注意加这些title open FIN,"<classlist.txt" or die "can't open classlist.txt file";#注意要有comma和分号 open FOUT,">classlist_CAP.txt" or die "can't open classlist_CAP.txt file"; my $classlist = " ";#最好是初始化，第一次声明变量的时候要有my，后面的不要用 while(<FIN>) {    $classlist = $_;#不要再用my    $classlist =~ tr/[a-z]/[A-Z]/;#小写字母转换为大写，，，不要用=~ s/    print FOUT $classlist; } close FIN; close FOUT;