perl：写一个程序， 将一些字符串（不同的行） 读入一个列表中， 然后，再以相反顺序输出这个列表。 如果是从键盘输入的， 那在 Unix 系统中应当使用 CTRL+D 或者在 Windows 系统中使用 CTRL+Z来表示输结束。

在Perl中，你可以创建一个循环来从标准输入（通常是键盘）读入字符串并将它们添加到列表中，然后使用`reverse`函数反转列表并逐行输出。下面是相应的代码：

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

# 创建一个空列表来保存输入的字符串
my @strings;

# 从标准输入读取字符串，直到遇到EOF信号（Unix: Ctrl+D，Windows: Ctrl+Z）
while (defined(my $line = <STDIN>)) {
    chomp $line; # 移除末尾的换行符
    push @strings, $line;
}

# 反转列表
my @reversed_strings = reverse @strings;

# 以相反顺序逐行输出字符串
foreach my $string (@reversed_strings) {
    print "$string\n";
}

要运行这个脚本，首先打开命令行界面，在Unix系统中输入`perl scriptname.pl`（替换`scriptname.pl`为你的脚本文件名），然后开始输入字符串，当你想要停止输入时按下Ctrl+D。在Windows系统中，则需要先以管理员身份运行命令提示符，然后输入`perl scriptname.pl`，输入完字符串后按下Ctrl+Z。