资源描述：
《perl语言学习练习及参考答案》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、my$step=l;subFw_Print_Step{my($stepz$description)=@_;print("==========================,');print("®$step：H);if($description){print("$description");}print("==========================");********************##题1:#设置变量inti的值为2my$intl=2;#设置变Uint2的值为10my$int2=10;#比较变量inti与int2的大小,并打印出比
2、较结果*********************Fw_Print_Step($step++/n比较变量inti与int2的大小，并打印出比较结果“);print"变量intl=$intl,int2=$int2n;print"比较结果：”；if($intl<$int2){print"$intl<$int2”;}els讦($intl>$int2){printH$intl>$int2";}else{print"$intl=$int2";}#********************#题2：#使用for循环打印出如下的字符。#12#123#12345#***********
3、*********Fw_Print_Step($step++畀使用for循环打印出如下的字符。112312345");my$str=,n,;for(1..4){$str=$str.$_jif($_==4){$str=$str.$_+l;}print"$str";}#*******************##题3：my$strl="abc";my$str2="efg";#将上述2个字符串连接起来,并输出合并后的字符串长度甘*******************甘Fw_Print_Step($step++,“将上述2个字符串H$strl和,,$str2”连接起来
4、，并输出合并后的字符串长度”)；my$str=$strl.$str2;my$str_length=length($str);print”新字串$str的长度为:$str_length";#题4：#以逆序方式打印出字符串包含的各个字符,如变量为”123456789呗IJ输出为”9”,”8“,...”2丁1”.my$strl="abcl23def456,';#*******************#Fw_Print_Step($step++,“以逆序方式打印出字符串包含的各个字符,如变量为”223456789、”则输出为"9,\"8,,/...，，2,,,,,
5、1,7,)；my$str=$strl;print“以逆序方式打印出字符串H$strl”包含的各个字符:“;for($length=length($strl);$length>0;$length--){$sub_str=chop($str);讦($1ength>l){printn，，$sub_str，7，;}else{print,,,,$sub_str,,.H;*********************#题5：#分别使用for与while循环来计算1+2+3+...+100的值********************#Fw_Print_Step($step
6、++,n分别使用for与while循环来计算1+2+3+...+100的值”);print“用for循环计算1+2+3+...+100的值：“；my$result=O;for(1..100)($result=$result+$_;}print"1+2+3+...+100=$result";print"用while循环计算1+2+3+...+100的值：my$result=0;my$num=l;while($num<=100){$result=$result+$num;$num++;}printl,l+2+3+...+100=$result11;#*******
7、*************#题6：#以逆序的方式打印出端口列表包含的成员口my@cmdArray=("config","intfa0/1","noshutdonw",''end");#*******************#Fw_Print_Step($step++,“以逆序的方式打印出端口列表包含的成员口”);for(my$start=$#cmdArray;$start>=0;$start-){my$array=$cmdArray[$start];printH$array1';}*********************
