Perl编程实践与代码示例

1、从出版商的网站www.apress.com下载本书的代码需要满足什么条件？

可以从出版商网站 www.apress.com 下载本书代码，不过需要回答与本书相关的问题才能成功下载。

2、访问 en.wikipedia.org/wiki/List_of_Unicode_characters 网站，选择你喜欢的 Unicode 字符，并用类似 print “\x{2708}”; 的代码将其打印出来。

先访问指定网站选择喜欢的 Unicode 字符，假设选到的字符编码是 xxxx ，代码可写成

print "\x{xxxx}";

来打印该字符。

3、修改货币转换程序，使其询问汇率和三个需要转换的价格。

以下是修改后的程序：

#!/usr/bin/perl
# 修改后的货币转换程序
use warnings;
use strict;

print "Currency converter\n\n";

print "Please enter the exchange rate: ";
chomp(my $yen = <STDIN>);

print "Enter first price to convert: ";
chomp(my $price1 = <STDIN>);

print "Enter second price to convert: ";
chomp(my $price2 = <STDIN>);

print "Enter third price to convert: ";
chomp(my $price3 = <STDIN>);

print "$price1 Yen is ", ($price1/$yen), " dollars\n";
print "$price2 Yen is ", ($price2/$yen), " dollars\n";
print "$price3 Yen is ", ($price3/$yen), " dollars\n";

该程序首先提示用户输入汇率，然后提示用户输入三个需要转换的价格，最后将这三个价格从日元转换为美元并输出结果。

4、编写一个程序，要求用户输入一个十六进制数并将其转换为十进制数。然后修改程序，将八进制数转换为十进制数。

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

十六进制转十进制

#!/usr/bin/perl
use warnings;
print "请输入一个十六进制数: ";
$hex_num = <STDIN>;
chomp($hex_num);
$dec_num = hex($hex_num);
print "转换后的十进制数是: $dec_num\n";

八进制转十进制

#!/usr/bin/perl
use warnings;
print "请输入一个八进制数: ";
$oct_num = <STDIN>;
chomp($oct_num);
$dec_num = oct($oct_num);
print "转换后的十进制数是: $dec_num\n";

5、编写一个程序，要求输入一个小于256的十进制数，并将其转换为二进制数。（提示：你可能需要使用按位与运算符8次。）

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

#!/usr/bin/perl
use warnings;

print "请输入一个小于256的十进制数: ";
$num = <STDIN>;
chomp($num);

if ($num < 0 || $num >= 256) {
    print "输入的数字不在0到255的范围内。\n";
} else {
    $binary = "";
    for ($i = 7; $i >= 0; $i--) {
        $bit = ($num & (1 << $i)) ? 1 : 0;
        $binary