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; (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |