Perl
limengyu900
这个作者很懒,什么都没留下…
展开
-
perl学习笔记(一)
[code="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...原创 2015-02-07 14:15:54 · 127 阅读 · 0 评论 -
perl学习笔记(六)--正则
[code="perl"] #!/usr/bin/perl use 5.010; =pod perl中表达式三种形式: 1、匹配:m/;/mosxg cg 2、替换:s/;/;/mosxge g表示全部替换,而不是只替换首次出现的;e表示把;当做一个运算符; 3、转化:tr/;/;/cds =~ 表示匹配 !~ 表示不匹配 默认处理$_变量 =cut ...原创 2015-03-06 15:33:22 · 97 阅读 · 0 评论 -
perl学习笔记(五)
[code="perl"] #!/usr/bin/perl use 5.010; say "-----------FreezeThaw模块------------------------"; #将复杂结构编码成可以打印的ASCII字符串,使用者可以将编码后的字符串发送到文件、DBM文件、数据库。 #use FreezeThaw qw(freeze thaw);#加载freeze(...原创 2015-03-06 15:33:36 · 113 阅读 · 0 评论 -
perl学习笔记(四)
[code="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}(...原创 2015-03-06 15:33:48 · 118 阅读 · 0 评论 -
perl学习笔记(三)
[code="perl"] #!/usr/bin/perl use strict; use warnings; use 5.010; #say "Hello, World...\n"; for (my $i=1;$icatfile($dirname,$basename); say $newname; #use Path::Class; #my $dir = dir(q...原创 2015-03-06 15:33:57 · 125 阅读 · 0 评论 -
perl学习笔记(二)
[code="perl"] #!/usr/bin/perl use 5.010; #词法与动态作用域 $a = 20; #全局变量 { local ($a); #临时变量,保存全局变量,新值为undef $a = 10; #say $a; } #say $a; #Typeglob创建标识符别名 #local临时别名 $b = 30; ...原创 2015-03-06 15:34:05 · 125 阅读 · 0 评论