Perl语言学习练习及参考答案

my $step=1;

sub Fw_Print_Step {

my ($step,$description) = @_;

print (\ print (\题$step：\ if ($description) {

print (\ }

print (\ |

}

#*******************# #题1：

#设置变量int1的值为2 my $int1=2;

#设置变量int2的值为10 my $int2=10;

#比较变量int1与int2的大小，并打印出比较结果 #*******************#

Fw_Print_Step ($step++,\比较变量int1与int2的大小，并打印出比较结果\ <

print \变量int1=$int1,int2=$int2\ print \比较结果：\ if ($int1<$int2) {

print \ } elsif ($int1>$int2) { print \ } else {

print \ } 《

#*******************# #题2：

#使用for循环打印出如下的字符。 # 1 # 12 # 123 # 12345

#*******************#

Fw_Print_Step ($step++,\使用for循环打印出如下的字符。 1 ~

12 123

12345\ my $str= \ for (1..4) {

$str= $str.$_; if ($_==4) {

$str= $str.$_+1; }

print \ ！ }

#*******************# #题3：

my $str1 = \ my $str2 = \

#将上述2个字符串连接起来,并输出合并后的字符串长度 #*******************#

Fw_Print_Step ($step++,\将上述2个字符串\\\和\\\连接起来,并输出合并后的字符串长度\ my $str =$str1.$str2; 》

my $str_length=length($str);

print \新字串$str的长度为：$str_length\

#*******************# #题4：

#以逆序方式打印出字符串包含的各个字符，如变量为\则输出为\ my $str1=\ #*******************#

Fw_Print_Step ($step++,\以逆序方式打印出字符串包含的各个字符，如变量为\\\则输出为\\\ my $str=$str1; (

print \以逆序方式打印出字符串\\\包含的各个字符:\\n\ for($length=length($str1); $length>0; $length--) { $sub_str=chop($str); if ($length>1) {

print \ } else {

print \ } }

\

#*******************# #题5：

#分别使用for与while循环来计算1+2+3+...+100的值 #*******************#

Fw_Print_Step ($step++,\分别使用for与while循环来计算1+2+3+...+100的值\ print \用for循环计算1+2+3+...+100的值：\\n \ my $result=0; for (1..100) {

$result=$result+$_; } `

print \

print \用while循环计算1+2+3+...+100的值：\\n \ my $result=0; my $num=1;

while ($num<=100) {

$result=$result+$num; $num++; }

print \

。

#*******************# #题6：

#以逆序的方式打印出端口列表包含的成员口

my @cmdArray = (\ #*******************#

Fw_Print_Step ($step++,\以逆序的方式打印出端口列表包含的成员口\ for (my $start=$#cmdArray; $start>=0; $start--) { my $array=$cmdArray[$start]; print \ ）

}

#*******************# #题7：

#使用foreach打印出Hash表的所有下标与值

my %map = ('red', 0xff0000,'green', 0x00ff00,'blue',0x0000ff); #*******************#

Fw_Print_Step ($step++,\使用foreach打印出Hash表的所有下标与值\ 》

foreach $capword (sort keys(%map)) {

print (\ }

#while( ($key, $value) = Each (%Map)) { # Print \

#*******************# #题8：

#使用正则匹配判断字符串是否包含error，若是打印提示信息。 my $str = \ …

#*******************#

Fw_Print_Step ($step++,\使用正则匹配判断字符串是否包含error，若是打印提示信息。\

if ($str =~ /error/i) {

print \ } else {

print \ }

#*******************# #题9：

#按照如下的函数定义写出该函数

￥

#===============================================================================#

# 函数名: SetPortGroup

# 函数功能：将DUT_PORT划分为端口列表,每个列表的端口速率必须相同(根据fa/gi进行判断),且2<=列表端口个数<=5 # 输入参数：DUT_PORT数组名 # 返回信息：端口列表

#===============================================================================#

#设置DUT参与测试的端口数 my @DUT_PORT; *

$DUT_PORT[0]=5;

#设置DUT的端口，端口号以gi 0/1、gi 2/1等形式来表示 $DUT_PORT[1]=\ $DUT_PORT[2]=\

$DUT_PORT[3]=\ $DUT_PORT[4]=\ $DUT_PORT[5]=\ $DUT_PORT[6]=\ $DUT_PORT[7]=\ @

$DUT_PORT[8]=\ $DUT_PORT[9]=\ $DUT_PORT[10]=\ $DUT_PORT[11]=\ $DUT_PORT[12]=\ $DUT_PORT[13]=\ $DUT_PORT[14]=\ $DUT_PORT[15]=\ $DUT_PORT[16]=\ $DUT_PORT[17]=\ ：

$DUT_PORT[18]=\

#调用SetPortGroup函数实现对DUT_PORT的分组 #*******************#

Fw_Print_Step ($step++,\按照如下的函数定义写出该函数. #=======================================================# # 函数名: SetPortGroup

# 函数功能：将DUT_PORT划分为端口列表,每个列表的端口速率必须相同(根据fa/gi进行判断),且2<=列表端口个数<=5 # 输入参数：DUT_PORT数组名 # 返回信息：端口列表 …

#========================================================#\ sub SetPortGroup { my @dutPort=@_; my @portList=\ #统计FA端口的数目 my $fa_num=0;

print \将DUT_PORT数组中的端口转换为列表的形式:\\n\ for ($i=1;$i<=$dutPort[0];$i++) {

@portList=(@portList,\ } ;

for (0..$#portList) {

print \ }

print \