PERL学习笔记

leaning perl学习笔记

1： [^x]+ 指不已x开头的任意字符重复一次或更多次 2：perl语言中标量只有浮点数双精度。。 3：单引号内，所有字符代表他们自己。。。 双引号能转义斜杠和变量内插！ 4：连接字符串 扩充数字 5： 使用告警与详细描述 -w  以及 use diagnostics 6： chomp 去除结尾换行符！ 7： 注意undef 变量的使用 8: 在unix上，某个文件可能你
·2015-11-12 10:59

modern perl学习笔记

eq 操作符通过强制 字符串上下文，按字符串对待它的操作数。== 操作符则强制 数值上下文。  在极少数情况下，没有合适类型的操作符存在，你也许需要明确地强制上下文。强制数值上下文，在变量前加零。 强制字符串上下文，将变量和空字符串拼接起来。强制布尔上下文，使用双重否定操作符。 my $numeric_x = 0 + $x; # 强制数值上下文 my $stringy_x = ''
·2015-11-11 16:09

perl学习笔记

如果在qq或q运算符中以偶数对的形式使用这些界限符，就不必使用反斜杠转义符： q可以使用转义字符，单引号‘ ’不能。 如果P e r l不能清楚地指明变量名在何处结束和字符串的其余部分从何处开始，那么可以使 用花括号将变量名括起来。 自动递增对最后一位增加一（like…） 自动递减运算符并不像上面那样对字符串进行递减。 c h o m p运算符能够删除它的参数结尾处的任何换行符。它返回
·2015-11-08 14:35

perl学习笔记——输入与输出

读取标准输入 用<STDIN>进行标准输入：chomp($line=<STDIN>); 如果读到文件尾，行输入操作符就会返回undef。便可利用这一性质跳出循环。 while(defined ($line=<STDIN>)){ 　　print "I saw $line"; } 简写为： while(<STDIN>){
·2015-11-07 12:31

perl学习笔记三

子程序 定义子程序(可以在程序的任意位置) 关键字sub、子程序名（不包含与号）以及用花括号封闭起来的代码快。 如：sub marine{ 　　$n+=1; 　　print "hello,sailor number $n!\n"; } 调用子程序：&marine; 返回值 所有子程序都会有返回值。最后一次运算的结果是什么就将这个运算结果当作改程序的返回值。
·2015-11-07 12:30

perl学习笔记二

数组： 特殊的数组索引：加入对索引值超过数组尾端的元素进行赋值，数组将会根据需要自动扩大，只要有可用的内存分配给数组。意外增加的数组元素的值为undef. $a[0]="aa"; $a[1]="bb"; $a[900]="99"; 有时需要找出数组中最后一个元素的索引值，如对数组rocks而言。其最后一个元素的索引值为$#roc
·2015-11-07 12:26

perl学习笔记一

标量数据 标量：数字、字符。可以存储在标量变量中也可以从文件和设备中读取。 数字：所有数字内部格式相同——双精度浮点数。 浮点数直接量：程序员在程序中直接键入的数字。   整数直接量：61298040283768==61_298_040_283_768； 操作： 字符串：字符串长度没有限制。 usr utf8; 单引号内的字符串直接量：除了单引号和反斜线字符
·2015-11-07 12:25

perl学习笔记——目录操作

在目录书中移动 chdir 操作副改变当前的工作目录。它和shell中cd命令类似： chdir ‘/etc’ or die “cannot chdir to /etc:$1”; 注意：工作目录不能更改的，也就是说Perl程序返回后一定会回到所在的工作目录。 如果调用chdir时不加参数，Perl会猜想是想要回
·2015-11-06 07:42

perl学习笔记——正则表达式

正则表达式 简单模式：匹配$_中的内容，只需要将模式写在一对斜线(/)中就可以了。 如：#!/usr/bin/env perl use 5.010; $_="yabba dabba doo"; if(/abba/){ 　　say "it matched!"; } 关于元字符 和she
·2015-11-06 07:41

perl学习笔记——文件测试

文件测试主要用于查看如文件是否存在、文件大小、文件更新时间等信息。 文件测试操作符 -e  测试文件是否存在； die "Oops!A file called '$filename' already exists.\n" if -e $filename; -M 测试文件是否保持持续的更新，比如测试某个程序的日志文件是否保持每一周或两周更新。 此处测试的是文件句
·2015-11-06 07:41

perl学习笔记——哈希

哈希 哈希是一种数据结构，它和数组的相似之处在于可以容难任意多的值并能按需取用，而他和数组的不同在于索引的方式，数组是以数字为索引而哈希则是以名字为索引。 哈希的键是唯一的，哈希的值可以重复。 哈希的应用场景 举例： 按名字找姓； 按主机名找IP地址或者按照IP地址找主机名； 按照单词统计其出现次数； 按用户名统计每个人使用的磁盘块数量； 按照驾照号码找出姓名。
·2015-11-06 07:40

perl学习笔记——字符串和排序

用index查找子字符串 查找子字符串在主字符串中的相对位置。如： $where=index($big,$small); 注意index是从0开始的，如果查找不到就会返回-1； 加入第三个参数来指定开始搜索的地方，这样index就不会从字符串的最开头寻找。 如果搜索字符串最后出现的位置用rindex函数。 my $last_slash=rindex("/etc/passw
·2015-11-03 21:39

perl学习笔记

#!/usr/bin/perlmy$tmp="ye_qing";my@name=split("_",$tmp);my$list="==$name[0]==$name[1]==\n";print$list;my@ye=(1,2,3,4);my@qing=(1,2,@ye,4,5,6);$scount=@qing;print"==sum:$scount==\n";print"==@qing==\n";
cloves·2015-07-25 09:27

perl学习笔记――控制结构

转载自perl中国http://www.perlcn.com/perlbc/perljc/32.html说实话这些东西各种语言都差不多，看看就好。一、条件判断if ( ){       }  elsif (  ) {                                                       }  ...  else{               }二、循环：   
Jackgreen54321·2015-04-25 19:14

perl学习笔记――匹配模式

转载自perl中国http://www.perlcn.com/perlbc/perljc/30.html记住几个常用的，其他的当成工具查阅就行 一、简介    模式指在字符串中寻找的特定序列的字符，由反斜线包含：/def/即模式def。其用法如结合函数split将字符串用某模式分成多个单词：@array=split(//,$line);二、匹配操作符（=~、!~）    =~检验匹配是否成功：$r
Jackgreen54321·2015-04-25 19:47

perl学习笔记――文件读写

一、打开文件open (filevar, filename)；    其中filevar为文件句柄，或者说是程序中用来代表某文件的代号，filename为文件名，其路径可为相对路径，亦可为绝对路径。open(FILE1,"file1"); open(FILE1, "/u/jqpublic/file1");    打开文件时必须决定访问模式，在PERL中有三种访问模式：读、写和添加。后两种模式的区别
Jackgreen54321·2015-04-25 16:16

perl学习笔记――基本变量

一、标量    PERL最常用的变量为标量，即$x，可用于表示整型（$x=2;）、浮点型($x=5.41e03)、字符串($x="ssss";)。二、数组用@a表示数组，如(@arr[0..3]=(11,12,13,14);)，其中需要注意的是数组变量创建时初始值为空列表。    1、数组的存取        ①对数组中的值通过下标存取，第一个元素下标为0。试图访问不存在的数组元素，则结果为NUL
Jackgreen54321·2015-04-25 12:24

Perl学习笔记（十）--通过DBI访问数据库

Perl访问数据库最常用的包是DBI，可以在www.cpan.org找到。使用ppm命令即可图形化安装。另外还需要安装对应数据库的驱动包，例如DBD::MySQL、DBD::Oracle、DBD::Sybase或者DBD::ODBC等。一、基本流程一般来说，数据库操作由以下几个步骤组成一个常见的流程：1．建立一个数据库连接2．通过建立的数据库连接，执行SQL语句3．执行SQL后获取返回的数据集4．
水月灵心·2015-04-22 17:00

Perl学习笔记（十）--通过DBI访问数据库

Perl访问数据库最常用的包是DBI，可以在www.cpan.org找到。使用ppm命令即可图形化安装。另外还需要安装对应数据库的驱动包，例如DBD::MySQL、DBD::Oracle、DBD::Sybase或者DBD::ODBC等。一、基本流程一般来说，数据库操作由以下几个步骤组成一个常见的流程：1．建立一个数据库连接2．通过建立的数据库连接，执行SQL语句3．执行SQL后获取返回的数据集4．
水月灵心·2015-04-22 17:00

Perl学习笔记（九）--文件（四）

十一、文件测试-opexprif(-e“filea”){printSTDERR(“file1/n”):}文件是否存在.-b是否为块设备 -c是否为字符设备-d是否为目录   -e文件是否存在-f是否为普通文件-g是否设置了setgid位-k是否设置了sticky位-l是否为符号连接-o是否拥有该文件 -p是否为管道-r是否可读    -s是否非空-t是否表示终端 -u是否设置setuid位-w是否
水月灵心·2015-04-22 11:00

Perl学习笔记（九）--文件（四）

十一、文件测试-opexprif(-e“filea”){printSTDERR(“file1/n”):}文件是否存在.-b是否为块设备 -c是否为字符设备-d是否为目录   -e文件是否存在-f是否为普通文件-g是否设置了setgid位-k是否设置了sticky位-l是否为符号连接-o是否拥有该文件 -p是否为管道-r是否可读    -s是否非空-t是否表示终端 -u是否设置setuid位-w是否
水月灵心·2015-04-22 11:00

Perl学习笔记（八）--文件（三）

八、命令行参数@ARGV:全局，$ARGV[0]是第一个参数，不是程序名，时,打开以$ARGV[0]中的文件,无参数则打开STDIN读，所以可以省略.2.shift(@ARGV)元素数量减少一个.3.){if(eof){print‘eof’;}}读取file到末尾时,下一循环打开下一文件,每次读完一个文件输入出eofif(eof()){print‘eof’;}所有文件都读完才输出eofforeac
水月灵心·2015-04-21 15:00

Perl学习笔记（八）--文件（三）

八、命令行参数@ARGV:全局，$ARGV[0]是第一个参数，不是程序名，时,打开以$ARGV[0]中的文件,无参数则打开STDIN读，所以可以省略.2.shift(@ARGV)元素数量减少一个.3.){if(eof){print‘eof’;}}读取file到末尾时,下一循环打开下一文件,每次读完一个文件输入出eofif(eof()){print‘eof’;}所有文件都读完才输出eofforeac
水月灵心·2015-04-21 15:00

Perl学习笔记（七）--文件（二）

五、错误输出函数与错误变量open()||die“error$!”成功时不执行die，失败时执行  1.die($errstr):向STDERR输出指示错误信息的串，然后退出程序。2.warn($errstr):向STDERR输出警告信息，不退出程序。3.$!最后一次错误的信息，一般与die，warn结合使用。说明:die($str)中$str最后不是/n时,输出自动添加at程序名line行号，
水月灵心·2015-04-20 17:00

perl学习笔记(二)

#!/usr/bin/perl use 5.010; #词法与动态作用域 $a = 20; #全局变量 { local ($a); #临时变量,保存全局变量,新值为undef $a = 10; #say $a; } #say $a; #Typeglob创建标识符别名 #local临时别名 $b = 30; { #lo
limengyu·2015-03-06 15:00

perl学习笔记(三)

#!/usr/bin/perl use strict; use warnings; use 5.010; #say "Hello, World...\n"; for (my $i=1;$i<10 ;${i}++) { #print "count $i!\n"; } use File::Basename; #use F
limengyu·2015-03-06 15:00

perl学习笔记(四)

#!/usr/bin/perl use 5.010; package A; $a = 10; sub print_var{ $a += 10; } package B; $a = 20; package A; say $A::a; say &A::print_var(); say &{A::print_var}();
limengyu·2015-03-06 15:00

perl学习笔记(六)--正则

#!/usr/bin/perl use 5.010; =pod perl中表达式三种形式： 1、匹配：m/<regexp>;/mosxg cg 2、替换：s/<pattern>;/<replacement>;/mosxge g表示全部替换，而不是只替换首次出现的;e表示把<replacement>;当做一个运算符; 3
limengyu·2015-03-06 15:00

perl学习笔记(五)

#!/usr/bin/perl use 5.010; say "-----------FreezeThaw模块------------------------"; #将复杂结构编码成可以打印的ASCII字符串，使用者可以将编码后的字符串发送到文件、DBM文件、数据库。 #use FreezeThaw qw(freeze thaw);#加载freeze()和t
limengyu·2015-03-06 15:00

Perl学习笔记（一）文件迁移脚本

动机完整代码代码思路文件操作组建label调试结语动机到新公司，开始看sourcecode了，用eclipse看code需要在同一个文件夹下，所以就做一个扫描所有.cpp和.h的脚本，然后全复制到一个目录下。完整代码https://github.com/MoYummy/Perl/blob/master/1/extract.pl#!/usr/bin/perl-wusestrict;usewarnin
MoYummy·2015-02-13 13:36

perl学习笔记(一)

#!/usr/bin/perl use 5.010; $line[19] = "hello"; #say $#line; #标量变量的引用 $a += 2; $ra = \$a; $$ra += 2; #say $$ra; #say ${$ra}; #数组引用 @array = qw ( one two three four fi
limengyu·2015-02-07 14:00

perl学习笔记

1. 数组 #!/usr/bin/perl my $str = "hello,nihao,no,o,good"; my @arr = split(/,/, $str); print "len:" . @arr . "\n"; for (my $i=0; $i < @arr; $i++) { #括号必须有 pr
·2015-01-17 14:00

Perl学习笔记（1）

   Perl学习笔记 1.标准数据   （1）常量   所有的数字内部格式相同，都是按照双精度浮点数来进行保存跟运算。   单引号和双引号字符串常量之分。   
artleaf·2014-03-26 16:14

perl学习笔记（一）

关于Perl： 　　Perl是一种高级、通用、直译式、动态的程序语言。最初设计者拉里·沃尔（Larry Wall）为了让在UNIX上进行报表处理的工作变得更方便，决定开发一个通用的脚本语言，而在1987年12月18日发表。 　　Perl借取了C、sed、awk、shell脚本以及很多其他编程语言的特性。其中最重要的特性是他内部集成了正则表达式的功能，以及巨大的第三方代码库CPAN
·2013-09-27 10:00

Perl学习笔记 之 [ 函数, 参数, @_, $_, $_[0], shift ]

1.Perl函数  通过&调用.2.Perl参数  Perl天然支持可变数目个参数。  在函数内部，所有参数按顺序放在数组@_中。  在函数内部，$_[0]表示函数的第一个参数。其余类推。3.shift  shift后跟一个数组，表示将数组的第一个值返回。数组也被改变，其第一个元素被弹出。演示代码一(求最大值):#!/usr/bin/perl-wusestrict;#调用函数max，取得一组数值的
天天java·2013-04-26 16:00

perl学习笔记

基本概念：双目赋值操作符 乘幂操作符：$a**=3（三次方）字符串中标量变量内插  $a = "world";  $b = "hello $a";  $b = 'hello '.$a; 
织梦大白兔·2013-03-30 16:51

Perl学习笔记（2）

在本章中将要学习：(1)如何获得目录列表(2)如何创建和删除文件(3)如何创建和删除目录(4)如何获取关于文件的信息。一、获得目录列表目录句柄与文件句柄的不同之处是：文件是通过读取文件句柄获得文件的内容，而目录是通过使用目录句柄来读取目录的内容。opendir dirhandle ,directory在上面这个语句，dirhandle是要打开的目录句柄，directory是要读取目录的内容。ope
zhaod06211·2012-06-27 19:54

Perl学习笔记（9） 字符串操作与排序

字符串操作与排序找出主串中子串的位置。$pos=index($string,$substr);返回在$string中第一次出现$sbustr的位置。抽取出字串substr。my$sub=substr($string,$startpos,$len);格式字符串函数sprintf,my$str=sprintf"%d,%f,%s",$date,$value,$name;自定义排序，可以自定义一个只有变量
freesum·2012-03-20 23:00

Perl学习笔记（8) -- 模块的使用和文件测试

模块的使用查找模块，到cpan上查找，对已安装的可以通过perldoc命令查看帮助安装模块,一般解压，根据INSTALL文件操作，通常是perlMakefile.PL；make的方法。还可以通过cpan直接网络安装模块CPAN安装perl包$perl-MCPAN-eshellcpan>installpakageName使用模块.通过usepakagename;引入pakagename模块的所有函数
freesum·2012-03-20 23:00

Perl学习笔记（7） －－控制结构和目标操作

控制结构前面已经提到的控制结构有if{},if{}else{},while(){},foreach还有些其他的控制结构，比如unless(){}是if的反义词，在bool表达式为假的时候执行后面的语句块，同理还有until是while的反义。它们的用法和之前的一样。perl的if,else,until,while,unless等后的遇见都必须带括号，而不象c/C++那样只有一句的时候可以省。为此对
freesum·2012-03-20 23:00

Perl学习笔记（6）－－ 正则表达式

正则表达式组号在正则表达式中用（）可以对匹配内容进行分组，并且可以用\1,\2之类的来引用所匹配的组。新的perl还支持\g{N}的方式应用匹配的组号选择匹配，用｜可以选择匹配左边或右边,/fred|barrey|betty/字符集合，用［］可以描述待匹配的字符的集合比如［abcdef12345]字符集合，也有些字符集合的简写形式如\w表示[A-Za-z]，\d表示［0－9］，还有\s表示所有空白
freesum·2012-03-19 21:00

perl学习笔记(10)

下载地址：http://search.cpan.org/CPAN/authors/id/R/RO/ROBIN/PadWalker-1.9.tar.gz解压：#tarzxvfPadWalker-1.9.tar.gz进入子目录后编译：#cdPadWalker-1.9#perlMakefile.PLCheckingifyourkitiscomplete...LooksgoodWritingMakefil
ztfriend·2012-03-19 17:32

perl学习笔记(9)

我的环境是RHEL5.4，操作系统自带的perl版本是5.8.8。这次打算学习一下如何升级perl到最新版本（升级到其他版本应该是类似的）。到这个页面下载最新版本：http://www.perl.org/get.html我下载的是Unix/Linux版本，5.14.2。安装过程中没记录。下面这个安装过程是改的另外一个：提示：如果有SELinux，应关闭(disable)。解压：$tar-zxvfp
ztfriend·2012-03-17 20:44

perl学习笔记(8)

^一行的开头$一行的结尾例如/^$/匹配空行。用\转义特殊字符。//i，后面跟个i不区分大小写。//g，后面跟个g匹配全部。没有g只匹配一次。s///，前面跟个s做替换。grep对列表中的元素逐一进行模式匹配操作。练习(f81.pl)： #!/usr/bin/perl -w  $pat=;  chomp $pat;  $a="The phrase that pays"; 
ztfriend·2012-03-15 17:32

perl学习笔记(7)

开始学习函数。函数的返回值是最后一个表达式的值，或者是return语句显式返回的值。挺有意思的，perl函数的参数不需要声明，用@_,$_[0],$_[1],$_[2],$_[3],...来引用。做个练习(f71.pl)：1）看看是传值还是传引用2）顺便掌握内插函数的写法${\&Test($v1,$v2)}。为什么需要${\}转义没明白。练习的环境是5.8.8，希望更高版本能更省事一些。3）$v2
ztfriend·2012-03-14 12:21

perl学习笔记(6)

学习文件操作。句柄名字最好使用大写字母，这样就不会与保留字foreach,else,if等发生冲突。如果文件句柄名字重复使用，即另一个文件用相同的文件句柄名字打开，那么原始文件句柄将先被关闭，然后重新打开。打开文件时的异常处理：$!在数字上下文中返回错误号，在字符串上下文中返回错误信息。抛出异常信息时，die中断程序，warn不中断程序。抛出异常信息时，带\n则不输出更多信息，否则要有atfile
ztfriend·2012-03-13 14:54

perl学习笔记(5)

哈希列表和普通列表的差别是：哈希列表的索引是有业务含义的，普通列表的索引是数字。根据索引从哈希列表中获取信息的速度很快。哈希列表变量用%开头。哈希列表键值不能重复，如果重复，后面的值会覆盖前面的值。这一特性善加利用可用于统计单词出现的频率。测试哈希列表中是否存在某元素，不能用if($Hash{keyval}){...}，应该用if(exists$Hash{keyval}){...}。将哈希列表的元
ztfriend·2012-03-12 18:02

perl学习笔记(4)

这次学习一维数组（列表）。给数组变量赋值以@开头。一维数组索引从0开始。用$#来取得数组最后一个元素编号（元素个数要加1)，例如#$family。赋值运算符左边的表达式类型决定右边的表达式计算时所在的上下文。例如，$size=@family;可取得数组family元素的个数。例如，if(@family){...}中的上下文是布尔值，将判断@family中元素个数，为0时false，有元素时为tru
ztfriend·2012-03-12 02:31

perl学习笔记(3)

条件结构：if(...){     ...;}elsif(...){     ...;}else{     ...;}数值关系运算符==,>,=,;          chomp $s;          last if($s eq "exit");            if($s eq "1"){                  print qq(Input a: ); 
ztfriend·2012-03-11 00:44

perl学习笔记(2)

 Perl的logo是头懒洋洋的骆驼，“可能不好看或者不好闻，但是它能完成任务”。 发现一个更好的网址：http://perldoc.perl.org/5.8.8/index.html嘿，我学的东西(5.8.8)跟最新的(5.14.1)差了３个大版本(8/10/12/14)呢!小版本：5.8.8/5.8.9/5.10.0/5.10.1/5.12.0/5.12.1/5.12.2/5.12.3/5.1
ztfriend·2012-03-10 01:21
上一页 1 2 3 4 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他