随笔分类 -  Perl

1
Perl递归遍历指定文件下的文件
摘要：#!/usr/bin/perl -wuse strict;#use autodie;#use File::HomeDir; #第三方模块，不管在什么操作系统上都能进入指定用户的主目录my $parentDir = 'F:\web\perl\perl program\littleCamp';my $p... 阅读全文
posted @ 2015-09-21 02:35 笑面浮屠 阅读(275) 评论(0) 推荐(0)
Perl语言入门笔记 第十七章 高级perl技巧(eval, grep, map)
摘要：=pod第十七章 高级perl技巧切片： my (undef, $card_num, undef, undef, undef, $count) = split /:/; 定义undef的话，会默认忽略匹配的变量 更好的方法： 列表切片 my $mtime = (stat $some_file)... 阅读全文
posted @ 2015-09-21 02:11 笑面浮屠 阅读(293) 评论(0) 推荐(0)
Perl语言入门笔记 第十六章 进程管理
摘要：=pod第十六章 进程管理身为程序员最棒的一面，就是能运行别人的程序，不必自己动手去写。在perl里有一句话叫 “办法不止一种”system函数： 在perl中，启动子进程最简单的方法是用system函数，例如从perl调用Unix的date命令，需要告诉system要运行的外部程序的名字： ... 阅读全文
posted @ 2015-09-21 02:08 笑面浮屠 阅读(281) 评论(0) 推荐(0)
Perl语言入门笔记 第十五章 智能匹配与given-when结构
摘要：=pod第十五章 智能匹配与given-when结构智能匹配操作符：~~ use 5.010001; say "I found Fred in the same" if $name ~~ /Fred/; 找出哈希表中是否包含“Fred” use 5.010001; say "I found a ke... 阅读全文
posted @ 2015-09-21 02:06 笑面浮屠 阅读(303) 评论(0) 推荐(0)
Perl语言入门笔记 第十四章 字符串与排序
摘要：=pod第十四章 字符串与排序用index查找子字符串： my $where = index($big, $small); eg:my $stuff = "Howdy world"; my $where = index($stuff, "wor"); #$where = 6 index函数还能... 阅读全文
posted @ 2015-09-21 02:04 笑面浮屠 阅读(246) 评论(0) 推荐(0)
Perl语言入门笔记 第十三章 目录操作
摘要：=pod第十三章 目录操作 在目录树中移动： 程序运行时会以自己的工作目录作为相对路径的起点，也就是说，当我们提及fred这个文件时，其实指的是"当前工作目录下的fred" chdir '/etc' or die "Cannot chdir to /etc: $!"; 如果掉... 阅读全文
posted @ 2015-09-21 02:01 笑面浮屠 阅读(332) 评论(0) 推荐(0)
Perl语言入门笔记 第十二章 文件测试
摘要：=pod第十二章 文件测试 文件测试操作符： -e:判断文件是否存在 在创建新文件程序之前，应先检查指定的文件是否已经存在，以免意外覆盖重要的电子表格或是宝贵的生日档案。要达到此目的，我们可以用－e文件测试操作符来测试文件是否存在： die "Oops ! A fil... 阅读全文
posted @ 2015-09-21 01:58 笑面浮屠 阅读(143) 评论(0) 推荐(0)
Perl语言入门笔记 第十一章 perl模块
摘要：=pod第十一章 perl模块寻找模块： cpan -a安装模块： perl Makefile.PL make install #如果没有权限安装在系统级目录，那就安装在个人目录 perl Makefile.PL INSTALL_BASE=/Users/fred/lib使用简易模块： my $nam... 阅读全文
posted @ 2015-09-21 01:54 笑面浮屠 阅读(246) 评论(0) 推荐(0)
Perl语言入门笔记 第十章 其他控制结构(unless,until,elsif,for,last,next,redo,and,or)
摘要：=pod第十章 其他控制结构unless控制结构：和if相对 在条件为假时想要运行代码块，就用unless否则就用if: unless(judge){ } 伴随unless的else子句： unless(){ } else { } until控制结构： until($j > $i) { $j *... 阅读全文
posted @ 2015-09-21 01:51 笑面浮屠 阅读(287) 评论(0) 推荐(0)
Perl语言入门笔记 第九章 用正则表达式处理文本
摘要：=pod#第九章：用正则表达式处理文本用s///进行替换 s///查找替换功能 s/Barney/Fred/; #把Barney替换成Fred s/with (\w+)/against $1's team/; 例子： $_ = "green scaly dinosaur"; s/(\w+) (... 阅读全文
posted @ 2015-09-21 01:47 笑面浮屠 阅读(252) 评论(0) 推荐(0)
Perl语言入门笔记 第八章 用正则表达式进行匹配
摘要：#用正则表达式进行匹配=pod m// = // = m%%,m||,m,m{},m(),匹配的时候根据需要写自己的定界符，像qw省略双引号定界符一样模式匹配修饰符： 跟在定界符后面的,//x,x就是模式匹配修饰符 i 忽略大小写 s 匹配任意字符 if(/Barney.*Fred/s){}#s... 阅读全文
posted @ 2015-09-21 01:44 笑面浮屠 阅读(316) 评论(0) 推荐(0)
Perl语言入门笔记 第七章 漫游正则表达式王国
摘要：=pod正则表达式(regular expression)，在perl里面通常也叫做模式(pattern)，是用来表示匹配或不匹配某个字符串的特征模板。 文件名通配与正则表达式是两个概念。grep指令： $grep 'flint.*stone' chapter*.txt #查看chaper*.txt... 阅读全文
posted @ 2015-09-21 01:40 笑面浮屠 阅读(165) 评论(0) 推荐(0)
Perl语言入门笔记 第六章 哈希(hash)
摘要：=pod哈希 哈希表里只是一堆的键值对而已，而没有任何顺序，键可以是任意字符串，值也是 awk的哈希键值对增多的时候会逐渐变慢，而perl没有这个缺点 访问哈希元素： $hash{$some_key} foreach my $person (qw) { p... 阅读全文
posted @ 2015-09-21 01:33 笑面浮屠 阅读(286) 评论(0) 推荐(0)
Perl语言入门笔记 第五章 输入与输出(标准输入输出，文件句柄，printf，die，say)
摘要：=pod#第五章 输入与输出 while(defined($line = )) #defined (xxx) xxx为undef则为假，否则为真 { print "I saw $line"; }while() #while是一次读取一行，下次读取会忽略上一行，所以最好写while循环 { ... 阅读全文
posted @ 2015-09-21 01:29 笑面浮屠 阅读(579) 评论(0) 推荐(0)
Perl寻找去除数组中重复元素
摘要：原文地址：http://www.cnblogs.com/xufeiyang/p/3747617.htmlPerl寻找去除数组中重复元素写一个小程序时候，需要去除一个数组中的重复元素，搜索了一下，找到的代码主要是两种，一种是使用grep函数，一种是转换为hash表，代码分别如下：使用grep函数代码片... 阅读全文
posted @ 2015-08-24 23:40 笑面浮屠 阅读(341) 评论(0) 推荐(0)
简简单单讲sort--perl
摘要：仙子地址：http://bbs.chinaunix.net/forum.php?mod=viewthread&tid=636546简简单单讲sort仙子注：本文档和仙子前面的2篇文档"简简单单讲grep"，"简简单单讲map"，都译自网络，加上仙子自己的解释整理而成。原文档出自：http://web... 阅读全文
posted @ 2015-08-24 23:37 笑面浮屠 阅读(282) 评论(0) 推荐(0)
Perl语言入门笔记 第四章 子程序
摘要：=pod定义子程序： sub sub_name { #($var1, $var2) = @_; #$var1 = $_[0]; #$var2 = $_[1]; #定义局部变量: my $myVar = $_[1]; my ($m, $n) = @_; } 调用子程序： &sub_name;... 阅读全文
posted @ 2015-08-24 01:02 笑面浮屠 阅读(150) 评论(0) 推荐(0)
Perl语言入门笔记 第三章 列表和数组
摘要：#!/usr/bin/perl -wuse utf8;use diagnostics;=pod列表： 列表是标量的有序集合数组： 是存储列表的变量更精确的说是列表是数据，数组是变量列表和数组的比较： 都是以下标0开始的，包含的标量可以是任何字符串，数字和undef等不同类型标量值的混合数组的使用： ... 阅读全文
posted @ 2015-08-23 18:40 笑面浮屠 阅读(230) 评论(0) 推荐(0)
Perl语言入门笔记 第二章 标量数据
摘要：#!/usr/bin/perl -w=pod数字： perl中的数字全部是以双精度浮点数存储的 数字很长时特俗写法，当然普通写法更支持： 61_298_040_283_768 0377 #八进制 0xff #十六进制 0b11111111 #二进制表示 0x1377_0b77 0x50_65_72_... 阅读全文
posted @ 2015-08-23 15:41 笑面浮屠 阅读(300) 评论(1) 推荐(1)
Perl用CPAN安装模块时错误
摘要：提示不是root权限：需要执行：o conf make_install_make_command 'sudo make'来自动切换到root，但是还是会需要输入密码！！！输出部分信息如下：make: *** [pure_site_install] Error 13 TIMB/DBI-1.634.t... 阅读全文
posted @ 2015-08-23 01:02 笑面浮屠 阅读(666) 评论(0) 推荐(1)

1