Perl与Python编程实践问题解答-优快云博客

50、请编写代码将命令行参数中的每个单词拆分为字符，打印每个字符的 Unicode 码点，并且将码点格式化为 U+xxxx 的形式

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

import sys
for arg in sys.argv[1:]:
    for char in arg:
        codepoint = ord(char)
        print(f'U+{codepoint:04X}')

将上述代码保存为一个 Python 文件（例如 unicode_codepoints.py ），然后在命令行中运行，传入参数，即可得到每个字符的 Unicode 码点。例如：

python unicode_codepoints.py hello world

51、请使用 0x… 语法表示一些数字并存储在数组中

在许多编程语言中， 0x 用于表示十六进制数。以下是使用 Python 和 Perl 语言将十六进制数字存储在数组中的示例。

Python 代码：

numbers = [0x1, 0xA, 0xFF]

Perl 代码：

my @numbers = (0x1, 0xA, 0xFF);

52、对 ( 0x23, 0xAA, 0xaa, 0x01, 0xfB ) 进行降序数字排序，并考虑以十六进制形式输出结果

首先将十六进制数转换为十进制数进行排序，再转换回十六进制输出。排序后十六进制降序结果为 (0xfB, 0xAA, 0xaa, 0x23, 0x01) 。

53、从数组 @list 中找出唯一的元素

可以使用 grep 语句来创建一个没有重复元素的新列表。示例代码如下：

my @list = qw( bob sally Andromalius sally bob ned Andromalius );
my %seen;
my @unique_list = grep { !$seen{$_}++ } @list;

54、添加 Convert::Distance::Metric 后，lib/ 目录应呈现怎样的文件布局

lib/
└── Convert
    └── Distance
        ├── Imperial.pm
        └── Metric.pm

55、添加Convert::Distance::Metric后，lib/目录的文件布局和MANIFEST文件应该是什么样的？

## 文件布局

- `lib/` 目录下的文件结构如下：
  - `lib/Convert/Distance/Imperial.pm`
  - `lib/Convert/Distance/Metric.pm`

## MANIFEST 文件内容

- Changes
- lib/Convert/Distance/Imperial.pm
- lib/Convert/Distance/Metric.pm
- Makefile.PL
- MANIFEST
- README
- t/00-load.t
- t/manifest.t
- t/pod - coverage.t
- t/pod.t

56、指出代码中 new() 构造函数存在的问题

在示例的 new() 构造函数中，使用了单参数 bless ，即只对引用进行了 bless 操作，但未指定要将其 bless 到哪个类中。此时，Perl 会将对象 bless 到当前包中，这被认为是不良形式。因为后续若需要从该类继承并复用 new() 构造函数时，由于它将引用 bless 到了当前类，会导致无法复用。

57、实现 Customer 类，继承自 Person 类，并在初始化时检查年龄是否满 18 岁。假设 Person 类有一个获取年龄的方法 age，当年龄不满 18 岁时抛出异常。

package Customer;
use strict;
use warnings;
use Carp 'croak';
use base 'Person';

sub _initialize {
    my ( $self, @args ) = @_;
    $self->SUPER::_initialize(@args);
    if ( $self->age < 18 ) {
        croak "Customers must be 18 years old