1. 如何去重
#!/usr/bin/perluse strict;my %hash;while(<>){ chomp; print "$_\n" unless exists $hash{$_}; $_}+=1;}
刚开始没有$hash{$_}+=1这一行,结果发现无论怎么执行,文本都是原样输出,不会去重。加上这一行后就没有问题了,推测如果没有对$hash{$_}进行 *** 作的话,在判断完它的键是否存在以后即会被丢弃掉,不会保存留待下一次判断。
2. 如何输出中文
binmode(STDOUT,':enCoding(gbk)');
3. 无法启动此程序,因为计算机中丢失perl514.dll。
Perl for windows的下载地址为:https://www.perl.org/get.html#win32
在安装DWIM Perl for windows后,打开padre,the perl IDE 报以下错误:
通过搜索,发现C:\DWimperl\perl\bin下明明就有perl514.dll文件。
于是通过 开始->运行->输入regsvr32 perl514.dll,提示以下错误:
怀疑是C:\DWimperl\perl\bin不在环境变量PATH中,在cmd环境下输入perl -v,提示“不是内部或外部命令”。
于是果断重启,打开padre,the perl IDE,没有报丢失perl514.dll错误。
4. 如果以value开头并且以'或者中文)结尾,则删除换行符
open(in,< 1.sql);open(out,1); Font-weight: bold">> g.result.sqlwhile(<in>){if( /^values/ && /['|)]$/ ) { $_=~ s/\n//g; }print out $_;}close in;close out;
总结
以上是内存溢出为你收集整理的Perl碎碎念全部内容,希望文章能够帮你解决Perl碎碎念所遇到的程序开发问题。
如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)