-
创建文件句柄，以读方式打开文件datebook（www.hzbook.com找到该文件），并把收入大于 $50,000的人名打印到另一个文件句柄。
-
要求用户为文件 databook输入新数据 （包括姓名、电话号码、地址等，保存在单独的标量中）。然后通过用户定义的文件句柄向 datebook文件追加换行符。
-
借助过滤器，按照姓名顺序排序文件 datebook。
-
使用 open 函数创建文件句柄，通过输入过滤器列出当前目录下的所有文件，并打印所有可读的文本文件内容。如果open失败，则通过 die 函数退出脚本。
-
重写程序，检查列出的文件在过去12小时是否经过修改，并打印这些文件的名字。
-
在文件 datebook 中创建多个重复的项。例如，Fred Fardbarkle重复出现5次， Igor Chevsky 重复出现3次，等等。在大多数编辑器中，这些只需简单的复制/粘贴操作。
-
编写程序，将文件 datebook 的文件名赋值给标量，并检查文件是否存在。如果存在的话，程序继续检查文件是否可写或可读，并通过die函数发送错误信息到屏幕。同时还要告诉用户 datebook 文件上一次修改的时刻。
-
程序还应读取datebook 文件的每一行内容，并将每个人的薪水增加10%。 不过，如果有人在文件中不止出现一次（假定同名同姓就代表重复）的话，则只处理第一次，而跳过第二次出现的情况。程序应将每一行输出发送到文件raise中。在 raise文件内，任何人都不应该重复出现，并且其薪水值都应当增加 10%。
-
在屏幕上显示 datebook 文件中所有人的平均收入。 对于重复的项，应当打印重复的人名以及相应的重复次数。
-
编写脚本 checking，以任意数量文件作为命令行参数，打印可读并且可写的文本文件名字。如果用户没有提供任何参数，则打印错误信息并退出脚本。
练习A创建文件句柄，以读方式打开文件datebook（www.hzbook.com找到该文件），并把收入大于 $50,000的人名打印到另一个文件句柄。要求用户为文件 databook输入新数据 （包括姓名、电话号码、地址等，保存在单独的标量中）。然后通过用户定义的文件句柄向 datebook文件追加换行符。练习B借助过滤器，按照姓名顺序排序文件 datebook。使用 open 函数创建
http://blog.chinaunix.net/uid-2
10
12962-id-86204.html
句柄
handle 分为文件
句柄
和目录
句柄
，文件
句柄
实际上包含文件，进程和套接字的读写。
文件
句柄
的操作步骤
open(FD,"filename");
@lines=;
close(FD);
open()由以下几个用法
open(FD,"> file
目前还没介绍
Perl
的面向对象，所以这节内容除了几个注意点，没什么可讲的。
以前经常使用大写字母的
句柄
方式(即所谓的裸字文件
句柄
,bareword filehandle)，现在可以考虑转向使用变量文件
句柄
的形式，因为只有使用变量
句柄
的方式，才能创建文件
句柄
引用。
open DATA,">>","/tmp/a.log" or die "can't open file: $!";
open...
我们都知道，使用iostream也可以向屏幕中输出语句。
但它们只能实现基本的输入输出 操作，对于控制台
窗口
界面的控制却无能为力，而且不能与stdio.h和conio.h友好相处，因为iostream和它们是C++两套不同的输入。
因此，我们需要
句柄
类来帮助我们完成这个操作。
下面直接上
练习
小代码，为贪食蛇清屏的小片段。 经一番查找，...
Perl
IO::via::QuotedPrint是
Perl
语言中的一个模块，用于在文件读写时对数据进行Quoted-Printable编码和解码。Quoted-Printable是一种用于在ASCII字符集中表示非ASCII字符的编码方式，常用于电子邮件和网络传输中。
Perl
IO::via::QuotedPrint模块提供了一种方便的方式，可以在文件读写时对数据进行Quoted-Printable编码和解码。
Perl
IO::via::QuotedPrint模块的使用方法与其他
Perl
IO模块类似。可以使用open函数打开一个文件
句柄
，并指定
Perl
IO::via::QuotedPrint模块作为过滤器，从而实现对文件数据的编码和解码。
下面是一个使用
Perl
IO::via::QuotedPrint模块对文件进行Quoted-Printable编码和解码的例子：
use
Perl
IO::via::QuotedPrint;
# Quoted-Printable编码
open(my $fh, '>:via(QuotedPrint)', 'file.txt');
print $fh "这是一段中文文本\n";
close($fh);
# Quoted-Printable解码
open(my $fh, '<:via(QuotedPrint)', 'file.txt');
while(my $line = <$fh>) {
print $line;
close($fh);
在上面的例子中，我们使用了
Perl
IO::via::QuotedPrint模块对一个文件进行了编码和解码。在第一个open函数中，我们使用了':via(QuotedPrint)'指定了
Perl
IO::via::QuotedPrint模块作为过滤器，从而将写入文件的数据进行了Quoted-Printable编码。在第二个open函数中，我们同样使用了':via(QuotedPrint)'指定了
Perl
IO::via::QuotedPrint模块作为过滤器，从而将读取的数据进行了Quoted-Printable解码。
使用
Perl
IO::via::QuotedPrint模块可以方便地对文件数据进行Quoted-Printable编码和解码，从而满足不同应用场景中对数据编码的需求。
