Perl编程实践：右对齐与哈希查找

54、编写一个程序，让用户输入一些行，然后将这些行右对齐到第 20 列并输出。

以下是一个满足需求的 Perl 程序示例：

use v5.10;
while (my $line = <STDIN>) {
    chomp $line;
    printf "%20s\n", $line;
}

该程序不断从标准输入读取行，去除行尾换行符，然后使用 printf 函数将每行右对齐到第 20 列并输出。

55、编写代码实现读取用户输入的多行文本，然后将每行文本右对齐到20个字符的列中

以下是一个使用Perl实现该功能的示例代码：

while (<STDIN>) {
    chomp;
    printf "%20s\n", $_;
}

这段代码通过 while 循环逐行读取用户输入，使用 chomp 去除每行末尾的换行符，然后使用 printf 函数将每行文本右对齐到 20 个字符的列中。

56、编写代码实现先让用户输入列宽，然后读取用户输入的多行文本，最后将每行文本右对齐到指定列宽的列中

以下是一个简单的 Perl 代码示例来实现该功能：

#!/usr/bin/perl
use warnings;
use strict;

# 获取用户输入的列宽
print "请输入列宽: ";
my $width = <STDIN>;
chomp $width;

# 提示用户输入多行文本
print "请输入多行文本，输入空行结束输入：\n";
my @lines;
while (my $line = <STDIN>) {
    chomp $line;
    last if $line eq '';
    push @lines, $line;
}

# 右对齐输出每行文本
foreach my $line (@lines) {
    printf "%*s\n", $width, $line;
}

这段代码首先让用户输入列宽，接着读取用户输入的多行文本（以空行结束输入），最后将每行文本右对齐到指定列宽的列中并输出。

57、编写代码实现根据用户输入的名字，从哈希表中查找对应的姓氏并输出

以下是一个使用 Perl 语言实现根据用户输入的名字，从哈希表中查找对应的姓氏并输出的示例代码：

#!/usr/bin/perl
use strict;
use warnings;

# 定义哈希表，键为名字，值为姓氏
my %name_surname = (
    "小明" => "张",
    "小红" => "李",
    "小刚" => "王"
);

# 获取用户输入的名字
print "请输入名字: ";
my $input_name = <STDIN>;
chomp($input_name);

# 从哈希表中查找对应的姓氏
if (exists $name_surname{$input_name}) {
    print "对应的姓氏是: $name_surname{$input_name}\n";
} else {
    print "未找到对应的姓氏。\n";
}

以上代码首先定义了一个哈希表 %name_surname ，其中存储了名字和对应的姓氏。然后通过 STDIN 获取用户输入的名字，使用 exists 函数检查该名字是否存在于哈希表中，如果存在则输出对应的姓氏，否则输出未找到的提示信息。

58、编写程序，根据用户输入的名字，从哈希表中查找对应的姓氏并输出。如果输入的名字不在哈希表中，给出解释信息。

以下是一个简单的 Perl 程序示例来实现该功能：

use v5.10;
# 定义哈希表，存储名字和姓氏的映射关系
my %name_surname = ( 'Fred' => 'Smith', 'Barney' => 'Rubble');
# 获取用户输入
print "请输入名字: ";
chomp(my $input_name = <STDIN>);
# 检查输入的名字是否在哈希表中
if (exists $name_surname{$input_name}) {
    say "$input_name 的姓氏是 $name_surname{$input_name}";
} else {
    say "抱歉，哈希表中没有 $input_name 的信息。";
}

该程序首先创建了一个哈希表存储名字和姓氏的对应关系，然后获取用户输入的名字，检查该名字是否存在于哈希表中，若存在则输出对应的姓氏，不存在则给出提示信息。

59、编写程序，遍历环境变量%ENV，找出最长的键名长度，然后按键名排序输出所有环境变量的键和值，要求键和值以两列形式输出。

以下是实现该功能的 Perl 代码：

use strict;
use warnings;

# 找出最长的键名长度
m