Chinaunix首页 | 论坛 | 博客
  • 博客访问: 138845
  • 博文数量: 46
  • 博客积分: 0
  • 博客等级: 民兵
  • 技术积分: 300
  • 用 户 组: 普通用户
  • 注册时间: 2014-03-15 23:00
文章分类

全部博文(46)

文章存档

2018年(18)

2017年(11)

2015年(14)

2014年(3)

我的朋友

发布时间:2015-04-07 00:17:12

Perl在处理中文时经常出现Wide character警告,原因是编码格式问题,默认采用utf8就行了,在代码头部加入:use utf8;binmode(STDIN,':encoding(utf8)');binmode(STDOUT,':encoding(utf8)');binmode(STDERR,':encoding(utf8)');对于输出到文件时会继续报Wide characte警告,在输出到文件前关闭变量的uft8标志,用下面代.........【阅读全文】

阅读(1645) | 评论(0) | 转发(0)

发布时间:2015-04-07 00:14:29

use Encode;#gbk转utf-8$str =  encode("utf8",decode("gbk",$str));#gbk转utf-8方法二$str = encode_utf8(decode("gbk",$str));#utf-8转gbk$str = encode("gbk",decode("utf8",$str));#utf-8转gb2312$str = encode("gb2312",decode("utf8",$str));perl 只识别 UTF8编码的字符串(TK).........【阅读全文】

阅读(1524) | 评论(0) | 转发(0)

发布时间:2015-04-02 00:07:01

我见到很多人有一些需求。就是想给自己的程序加密。比如商业程序和一些记录着关键信息的程序。这样让自己的源代码不可读,但又不想对程序的性能靠成什么大的影响。当然在 Perl 中也有一堆的方法来实现这个功能。因为我写的跳板程序直接给 Key 写到程序本身,所以我不希望别人能见到我的 SSH 的 Key 。所以我对整个程序进.........【阅读全文】

阅读(2041) | 评论(0) | 转发(0)

发布时间:2015-03-28 15:34:55

#! perl -wuse Config::Tiny;  ###这种方法不用安装模块,最方便,是一个引用的散列(必须文件已经存在) my $Config = Config::Tiny->new;$Config = Config::Tiny->read('configini.ini');  ###得到整文件并赋值给这个引用while (my ($key,$val)  = each %{$Config->{newsection}})  ###.........【阅读全文】

阅读(1310) | 评论(0) | 转发(0)

发布时间:2015-03-28 15:30:01

open (READ,"<","/misc");open (WRITE,"+<","/misc"); while (my $text = <READ>) {  if ($text =~ m/yyww/)  {   $text =~ s/yyww/aabb/;    ###将所有原件中的yyww内容替换为aabb  }  print WRITE $text;   &n.........【阅读全文】

阅读(1259) | 评论(0) | 转发(0)
给主人留下些什么吧!~~
留言热议
请登录后留言。

登录 注册