在打印环境变量的时候可以用到.实际上是%ENV,perl中的哈希变量,里面保存的是环境变量.键是环境变量名,值是环境变量值.例如,有一个环境变量是PATH,其值为C:\windows,那么,打印这个环境变量的方法就是:print($ENV{PATH}); #!usl/bin/perl my $directory = $ENV{ZION_HOME}; print "Environment:$directory";#打印环境变量,D:\ZionProjects exit 0 unless…

#Perl中检测标准输入使用的字符集 sub locale_encode{ my $lang = $ENV{'LANG'}; my $dot_pos = rindex($lang, '.'); my $encode = $dot_pos < 0 ?$lang : substr($lang, $dot_pos+1); $encode = $encode eq ''? 'utf8': $encode; } #使用方法 # print locale_encode; #…

hash类型 hash类型也称为字典.关联数组.映射(map)等等,其实它们都是同一种东西:键值对.每一个Key对应一个Value. hash会将key/value散列后,按序放进hash桶.散列后的顺序和存放数据的顺序无关 hash类型的key只能是字符串,value可以是字符串.数值.undef或其它类型的标量 hash的key必须唯一,不能重复 perl中使用符号%表示hash类型,如%myhash.使用$hashname{index}访问hash中的元素 perl中可以单独对每一个has…

Perl中的哈希数据结构.相比较于数组,这种数据结构对于数据查找和统计更加方便. 一个特殊的哈希,%ENV,表示当前terminal下,通过setenv设置的variable的键值. 键:环境变量名,,,,值:环境变量值. 哈希是一种数据结构,由一对对的键(keys)--值(values)对来组成. 这些键和值都是任意的标量,但键总会被转换成字符串而且必须是唯一的字符串. 访问哈希元素,    $hash{$some_key}    ##和访问数组的做法类似,只是使用了花括号{}而非方括号[].…

转自:http://c20031776.blog.163.com/blog/static/684716252013624383887/ Perl 程序中,正则表达式有三种存在形式 分别是 (1 模式匹配:m/<regexp>/     #平时我们简写 /<regexp>/ ,略去m, 三个参数 /i不区分大小写   /s匹配任何字符    /x添加空格  /o 不重复编译正则表达示 (2 模式替换:s/<pattern>/<replacement>/ /g …

在Perl中使用s///进行替换操作,与m//进行查找操作类似. s/with (\w+)/against $1's team/;      ##第一个双斜线,表示被替代的文本.第二个双斜线,表示将替代为的文本. s///可以有不同的定界符,但是必须保证两对字符.一对包住模式,一对包住替换字符串. s#^https://#http://#;                    ##使用#号,分别包住模式和替换字符串. s{}();                                …

在Perl中,匹配的定界符如果是双斜线//,可以直接使用双斜线完成匹配操作. 如果特定条件下需要改变定界符,如改为{},[]等.需要加入m,m{},m[]等. m%^http://% 默认的模式匹配对象是自动化变量$_,如果要指定匹配对象,可以使用绑定操作符=~. my $some_other = "I have a Dream"; if($some_other =~ /\brub/);    ##用右侧的模式对左侧的对象进行匹配. 模式匹配修饰符: /i表示大小写无关的匹配. /s表…

grep函数 (如果你是个的新手,你可以先跳过下面的两段,直接到 Grep vs.loops 样例这一部分,放心,在后面你还会遇到它) <pre>grep BLOCK LISTgrep EXPR, LIST</pre>grep 函数会用 LIST 中的元素对 BLOCK 或 EXPR 求值,而且会把局部变量 $_ 设置为当前所用的 LIST 中的元素.BLOCK 块是一个或多个由花括号分隔开的Perl 语句,而 List 则是一有序列表.EXPR 是一个或多个变量,操作符,字符,函…

我们在linux常常用到一个程序需要加入参数,现在了解一下 perl 中的有关控制参数的模块 Getopt::Long ,比直接使用 @ARGV 的数组强大多了.我想大家知道在 Linux 中有的参数有二种形式. 长参数  –help 短参数   -h 也就是-和–的分别.–表示完整参数.-表示简化参数.在 Perl 的这个模块中也支持这二种方法.这要介绍的二 Getopt 其实有二个模块,一个叫 Getopt::Long 一个叫 Getopt::Std.下面就只介绍 Getopt::Long…

前几天用到了Perl语言,主要看了一下Perl中的正则表达式,在各种网页语言中,正则表达式在处理字符串的时候十分有用,所以这里就简单说一下在Perl中正则表达式的应用. 先上代码 #!/usr/bin/perl -w #use utf8; #use encoding "gb2312"; open(DATA,"<test2.txt") or die "read error"; open(OUT,">outfile.txt&qu…