
Perl
平凡的兵
AI的实践者
展开
-
Perl学习
1. 作用域 (scope)(1)全局变量(global or package variable)(2)局部变量(lexical or local variable)类似于C2. 函数参数的传递传递的是参数的引用add(10,20);sub add { my $arg1 = shift @_; my $arg2 = shift @_;原创 2013-04-06 20:13:03 · 468 阅读 · 0 评论 -
Unicode杂谈
1. 两个重要函数 ord()和chr() ord(): 将字符转换为字节码 chr(): 将字节码转换为字符2. 大端littleEndian和小端bigEndian 如果一个Unicode格式文档的开头为"FF FE", 表示小端 如果一个Unicode格式文档的开头为"FE FF", 表示大端3. 回车换行Unix: \n原创 2013-05-25 13:41:50 · 688 阅读 · 0 评论 -
Perl多进程实例
use strict;use warnings;my @arr_cmd = ("echo child1", "echo child2", "echo child3");my $child;my @arr_child;foreach(@arr_cmd){ my $cmd = $_; unless($child = fork){ system($cmd); exit;原创 2014-12-23 13:14:24 · 474 阅读 · 0 评论 -
perl中文处理
# 汉字之间加入空格use strict;use warnings;use Encode;open(IN, "<", "中文文件.txt");open(OUT, ">", "中文文件.txt.processed");while(){ chomp(); my $line=$_; $line = decode("GB2312", $line); my @chars=split原创 2015-12-08 20:16:12 · 1154 阅读 · 0 评论 -
普通dos编码文件批量转换为UTF-8格式文件
今天发现巨好用工具EditPlus,批量转换文件编码格式 文档(Document)菜单——文件编码(File encoding)——批量转换编码(File encoding multiple),选中全部文件后转码,然后再全部保存 最近将windows下的代码移到linux平台,发现linux下对中文支持的不好,导致代码文件里中文注释部分全为乱码,因此,在...原创 2015-07-26 11:25:32 · 8489 阅读 · 0 评论