• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

Perl碎碎念

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

1. 如何去重

#!/usr/bin/perl
use strict;
my %hash;
while(<>){
   chomp;
   print "$_\n" unless exists $hash{$_};
   $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开头并且以'或者中文)结尾,则删除换行符

use strict;
open(in, "< 1.sql");
open(out, "> g.result.sql");
while(<in>){
if( /^values/ && /['|)]$/ ) {
    $_=~ s/\n//g;
    }
print out $_;
}
close in;
close out;

 


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
热门推荐
热门话题
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap