Perl与Python编程实例合集

原创

于 2025-09-17 14:09:29 发布 · 908 阅读

19 ·

CC 4.0 BY-SA版权

文章标签：

#Perl #Python #编程实例

74、编写一个程序，列出当前目录中所有符号链接及其目标。

foreach ( glob( '.* *' ) ) {
    my $dest = readlink $_;
    print "$_ -> $dest\n" if defined $dest;
}

75、编写一个程序，从标准输入读取数字，对它们进行数值排序，并以 20 个字符的字段宽度打印出来。

while (<>) {
    push @numbers, split;
}

my @sorted_numbers = sort {$a <=> $b} @numbers;

foreach (@sorted_numbers) {
    printf "%20g\n", $_;
}

76、编写代码，将输入的数字按升序排序并以右对齐格式输出

以下是一个Python示例代码来实现该功能：

numbers = input("请输入一些数字，用空格分隔：").split()
numbers = [int(num) for num in numbers]
numbers.sort()
max_length = len(str(max(numbers)))
for num in numbers:
    print(str(num).rjust(max_length))

这段代码首先获取用户输入的数字，将其转换为整数列表并排序，然后找出最大数字的位数，最后使用 rjust 方法将每个数字右对齐输出。

77、根据哈希表 %last_name 中的键，按姓氏排序，若姓氏相同则按名字排序，并以“姓氏, 名字”的格式输出

可编写如下程序实现：

```perl
use strict;
use warnings;
my %last_name = qw{ fred flintstone Wilma Flintstone Barney Rubble betty rubble Bamm - Bamm Rubble PEBBLES FLINTSTONE};
my @sorted_names = sort {
    my $last_a = lc($last_name{$a});
    my $last_b = lc($last_name{$b});
    my $first_a = lc($a);
    my $first_b = lc($b);
    $last_a cmp $last_b or $first_a cmp $first_b
} keys %last_name;
foreach my $first_name (@sorted_names) {
    my $last_name = $last_name{$first_name};
    print "$last_name, $first_name\n";
}