程嶏清单5-5.txt

来自「< linux网络编程工具>>配套源码」· 文本 代码 · 共 14 行

print '-' x 60;             # print row of dashes
print "\t" x ($tab/8), ' ' x ($tab%8);      # tab over
$ones = (1) x 30;           # a list of 80 1's
print $ones."\n";
@keys = qw(perls before swine after hard);
for($i = 0;$i<5;$i++)
{
   $key = $keys[$i];
   $hash{$key} = ("p") x $i;
}
foreach $word (keys %hash) {
print "The value of the key: $word is $hash{$word}\n";
}