perl语言语法基础

 perl语言语法基础

#   变量定义：以$号开头，如：$num =1；           ${num}
$a=123;
print "$a\n";

#   数组定义：以@开头，如：@array = (1，2，3)；
@b=(1,2,3);
print "@b\n";

#   $#b 查看数组b中最后元素的的下标
print("$#b\n");
#取数组元素
print("$b[0]\n");

#   $" 定义数组分隔符
$"=":";
print "@b\n";

#   哈希定义：以%开头，如：%hash=("a"，1，"b"，2)；
%c=("aa"=>"hash1","bb"=>"hash2");
print("$c{aa}\n");


#   单引号：特殊字符不进行转义
print ('d\n');
print("\n");

#   双引号：特殊字符进行转义   \n：换行    \t      \a
print ("d\n");

#   字符串操作符：    . ：连接字符串     x 5 ：表示重复5次x前面的字符串
print ("hel"."lo\n");


#chomp 去掉最后的换行
print (chomp($a)."\n");

#   <STDIN>;     #从键盘输入
$name=<STDIN>;
print("你的名字是：" . "$name\n");


#defined($a)    检查变量是否已定义

#<=> 比较符  eg：$a<=>$b   如果a>b,返回1；如果a=b，返回0；如果a<b,返回-1






#数组操作
@arr=(2,4,6,8);
foreach (@arr){
#  $_  ：默认变量，指的是在不指定的情况下，程序处理的上一个变量；
	print $_ ."\n";
};


#   pop(@arr)  #删除数组元素，从最后开始删除
#	shift(@arr)  #删除数组元素，从最前面开始删除
print (pop(@arr)."\n");    #输出已删除的元素

#	push(@arr,0)  #增加数组元素，从最后开始增加
#	unshift(@arr,5)  #增加数组元素，从最前面开始增加
push(@arr,0);
print("@arr"."\n");

#	reverse(@arr)  #反转数组
print(reverse(@arr)."\n");

# 	sort(@arr)	  #数组从小到大按位排序
#	sort {$a<=>$b}(@arr)	  #数组从小到大排序








#    标量上下文与数组、列表上下文
@arr1=reverse qw/a b c/;
$arr1=reverse qw/a b c/;
print("@arr1"."\n");
print("$arr1"."\n");

#	scalar 查看数组元素数量
print(scalar @arr1);



#	键盘输入一个元素
#$name=<STDIN>;
#print("你的名字是：" . "$name\n");

#	键盘输入多个元素
#@name=<STDIN>;
#print("你的名字是：" . "@name\n");