perl程序例子

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;