Learning Perl 第3章習題答案

原文發表在網易部落格 2010-11-04 21:22:33

3.1 列表列印

#從STDIN中讀取每個列表值時,都會經過chomp的處理,因此每個列表元素都被去掉了結尾的分行符號
chomp(@lines=<STDIN>);
print "print the list\n";
foreach  $line (@lines){
    print "$line\t";
    }
print "\n";
print "print the list reverse\n";
@lines_reverse=reverse(@lines);
foreach $list (@lines_reverse){
    print "$list\t";
    }

3.2 按索引列印已有列表

#print array2
@namelist=qw(fred barney betty wilma dino);
chomp(@indexlist=<STDIN>);
print "@namelist";
foreach $index (@indexlist){
    print "the $index element in list is :\t$namelist[$index]\n";
    }

 

3.3 列表內容以同行和不同行方式輸出

chomp(@namelist=<STDIN>);
@sortedNamelist=sort(@namelist);
print "print in one line:\t@{sortedNamelist}\n";
print "print elements in list in different lines;\n";
foreach $element (@sortedNamelist){
    print "$element\n";
    }