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;