perl_学习笔记_条件语句和循环语句

#!/usr/bin/perl -w

print 2**4;

#创建对跟随其后项目的引用符号:\

$variable=5;

$reference=\$variable;

print "\n" . $$reference ."\n" ;

#绑定运算符：=~ 和 ！=

#=~：将标量表达式绑定到模式匹配上

#=!:与运算符=~相似，不同的是它的返回值是负数。

#用use integer模块强迫perl使用整数除法

use integer;

print 16/3 ."\n";

#当从数字中连续剥离数位进行两种基数转换时，使用取模运算能减少操作：

$value=257;

while($value){

push @digits , (0..9,a..f)[$value%16];

$value /=16;

}

while(@digits){

print pop @digits;

}

print "\n";

#从整数末端获取数字位的方法，可用:&

print 24 &15 ."\n";

#一元运算符：不将参数放在园括号中时，perl将注入sqrt、defined、eval、return、chdir、rmdir、oct、hex、undef、exists和其他只接受一个标量的函数。

#如果想要在某个特定的十进制位精度上比较浮点数，使用：sprintf函数

#unless语句：当条件为假时才执行相关模块的代码。

#unless（EXPR）BLOCK

#unless（EXPR） BLOCK else BLOCK

#使用foreach变量：

#foreach var(LIST) BLOCK;

#foreach循环中的循环变量回过头去访问表中的实际元素，这意味着如果修改循环变量，这些修改了相应的表元素。

#map函数的工作：map:BLOCK LIST; 或者map:EXPR,LIST;

#PS:map是在表上下文下对BLOCK和EXPR进行计算，所以LIST表中的每个元素都可以在返回表中产生一个或多个元素（包括0个元素）

#------------------------------------Demo-------------------------------------------------

#给数组中的每个元素都乘以2

print "Every Element of Array muls 2 by foreach \n";

@a=(1..10);

foreach $_(@a){$_*=2;}

print join (", ",@a);

print "\n-----------------END---------------------\n";

print "Every Element of Array muls 2 by map \n";

@a=(1..10);

map{$_*=2;} (@a);

print join (", ",@a);

print "\n-----------------END---------------------\n";

#关键字来创建当前值的本地副本。

#grep的使用方法：grep BLOCK LIST;或者grep EXPR,LIST;

#grep函数为list中的每个元素进行BLOCK或者EXPR计算，返回由使表达式为真的元素组成的表。

#PS：在标量环境中，grep返回表达式为真的次数。

#PS：grep中的BLOCK和EXPE都是在标量环境计算的。

#grep和map的不同：grep返回的是子表，使特定准则为真，然而map函数对表中的每个元素的表达式进行求值。

#-------------------------------Demo---------------------------------------------------------

#在主数组中寻找所有大于5的数字

print "Search numbers lg 5 in Array by foreach \n";

@b=(1..13);

foreach $_(@b) {

if($_>5)

{push @c,$_;}

}

print join (", ",@c);

print "\n-----------------END---------------------\n";

print "Search numbers lg 5 in Array by grep \n";

@b=(1..13);

@c=grep{$_>5;} @b;

print join (", ",@c);

print "\n-----------------END---------------------\n";

#next跳到下一个循环重复过程

#last命令结束循环：last expr；

#redo重复循环的当前步骤。

#-----------------------------SWITCH Demo------------------------------------------------------

#使用&&操作符，当第一个操作 对象为真时，才执行第一个对象,通过将$_中的值和用户输入的各种字符串进行比较

# print "\n-------------------------------Start Switch-----------------------------------\n";

# print "Enter Command:";

# while(<>){

# SWITCH:{

# /run/ && do{

# $message="Running\n";

# last SWITCH;

# };

# /stop/ && do{

# $message="Stopped\n";

# last SWITCH;

# };

# /connect/ && do{

# $message="Connected\n";

# last SWITCH;

# };

# /find/ && do{

# $message="Found\n";

# last SWITCH;

# };

# /q/ && do{

# exit;

# };

# DEFAULT: $message="No match.\n";

# }

# print $message;

# print "Enter Command:";

# }

# print "\n-------------------------------End Switch-------------------------------------\n";

#使用eval语句来计算perl代码：eval EXPR 或者 eval BLOCK

#PS:在perl中可以使用两种形式的eval：一种可以执行表达式EXPR；另一种可则执行整块BLOCK。

#上面两种情况，eval返回值都是eval执行代码中的最后一个语句的值：

#-------------------------------------------------------Demo---------------------------------------------------

print "\n-------------------Compute print_Hello---------------------------------\n";

eval "print \"Hello\n\"";

print "\n-------------------End Compute print_Hello------------------------------\n";

#exit语句结束来结束终止程序：

#exit EXPR;

#PS:上面语句返回EXPR（如果指定的话），作为程序的退出码（可以将EXPR设置为0代表成功，为1代表有某种错误，它们是唯一的普遍承认的设置）。如果省略EXPR，则exit返回0。

#---------------------------------------Demo-----------------------------------------------

# print "\n------------------------EXIT START----------------------------\n";

# while(<>){

# chop;

# if($_ eq 'y'){

# print "Please type the letter y\n";

# }else{

# print "Do you always do what you're told?\n";}

# exit;

# }

# print "\n------------------------End EXIT------------------------------\n";

#die函数在结束程序时显示错误消息，工作方式：

#die LIST;

#这个函数将LIST值打印到STDERR且终止程序，返回Perl特殊变量$!的当前值。在eval语句中，错误消息放在特殊变量$@中，然后eval语句结束。

#下面一个例子：试图打开一个不存在的文件（在perl中，将看到die语句几乎一成不变的连接在open语句末端）：

print "\n---------------------------die Demo----------------------------------------\n";

die "Cannot open filename\n";