perl 函数

发布时间：2020-12-16 00:17:37 所属栏目：大数据来源：网络整理

导读：1、chomp ：如果字符串结尾有换行符，chomp 可以去掉它。这基本上就是它能完成的所有功能 2、last：同c语言的break 3、my loca l 例如： subA local变量，可以被A子程序调用，my不行 4、$name=; 接收键盘输入（可以让输出结果持续显示） 5、@array =(1,3,5

1、chomp ：如果字符串结尾有换行符，chomp 可以去掉它。这基本上就是它能完成的所有功能

2、last：同c语言的break

3、my loca l

例如：

subA local变量，可以被A子程序调用，my不行

4、$name=<>;

接收键盘输入（可以让输出结果持续显示）

5、@array =(1,3,5,7...11);

7跟11中间的数值为8，9，10

$array[$#array]取最后一个值

6、@array= qw/1 2 3 4 5 3 56/;或者 @array= qw(1 2 3 4 5 3 56);

7、split

Perl中的一个非常有用的函数是split - 把字符串进行分割并把分割后的结果放入数组中。这个函数使用规则表达式（RE），如果未特定则工作在$_变量上。
split函数可以这样使用：
$info = "Caine:Michael:Actor:14,Leafy Drive";
@personal = split(/:/,$info);其结果是：
@personal = ("Caine","Michael","Actor","14,Leafy Drive");
如果我们已经把信息存放在$_变量中，那么可以这样：
@personal = split(/:/);
如果各个域被任何数量的冒号分隔，可以用RE代码进行分割：
$_ = "Capes:Geoff::Shot putter:::Big Avenue";
@personal = split(/:+/);
其结果是
@personal = ("Capes","Geoff","Shot putter","Big Avenue");

8、hash表

my %hash=?(

'li'=>'1985.11.11',

'liu'=>1985.11.12,

xing=>'1992.06.10',

);

或者 my %hash = (1,'one',2,'two',3,'three');

或者 my %hash = qw/1 one 2 two 3 three/;

或者

$hash{1} = 'one';

$hash{2} = 'two';

$hash{3} = 'three';

9、对应hash表跟数组，有几种常用运算：

map｛｝ ? 例： my @array = map {$_*10 } qw/45 33 8 75 21 15 38 69 46/; #每个值*10；

grep｛｝ ? 例： my @positive = grep {$_ > 0} @array;? # 把@array裡大於零的數字取出 ;

sort｛｝ ?? 例： @array = sort { $b <=> $a } @array; #@array从小到大排列；

join ? ? ? ? ? ? 例： print join ',',@array; # 显示的时候，每个元素中间加逗号； mykeys 例：@keys = keys(%hash); #hash特有，取键值

values?

例：my @values = values(%hash); ?? ?#hash特有，取值

delete 例：
delete $hash{video}; ?#hash特有，删除

exist

例： print"exists"if(grep{$_ eq 'video'} keys (%hash));
等价于 print"exists" if (exists $hash{video});

数组中的foreach （另一篇文章有解释）对应hash表中的each?

例：
my ($key,$value) = each (%hash)#取每个键值跟值分别放进$key,$value内

10 、单取hash或者数组都是$array[6]或者${six}

11 、 @_ 代表当前数组、序列 ? ? $_ 代表当前$类自变量

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!