perl学习笔记（20170612）

Posted 2021-04-17 数据会说话

#从今天开始学习脚本perl;20170612

#变量

$pi=3.14;

print $pi."\n";

$arr[2]=100;

print $arr[2]."\n";

#数组

@arr=5..9;

$fred=pop @arr;

print $fred."\n",@arr;# 9;5678

push @arr,8;

print "\n",@arr;#56788

#列表

(1,2,3)

("lam",2)

()

(1..100)

print 7..2;#空的，只能由小到大计数；

#特殊操作符

# .. ：范围操作符

#reverse返回次序相反的列表，不改变入参

@num=reverse 6..9;

@fred=reverse @num;

print @num,"\n",@fred;#9876；6789；

#函数定义

$n=2;

sub ma{

$n+=1;

print "hi,number is $n\n";

}

#函数调用

& ma;

#函数参数

& max(1,2);

$_[0] ：第一个参数；

$_[1] ：第二个参数；

#返回值；最后执行的表达式的值就是函数的返回值，写不写return都可以；

#常用函数

#chomp()：去掉字符串结尾的“\n”

system(pause);