Perl第10章练习: 获得句柄

练习A

  1. 创建文件句柄,以读方式打开文件datebook(www.hzbook.com找到该文件),并把收入大于 $50,000的人名打印到另一个文件句柄。
  2. 要求用户为文件 databook输入新数据 (包括姓名、电话号码、地址等,保存在单独的标量中)。然后通过用户定义的文件句柄向 datebook文件追加换行符。

练习B

  1. 借助过滤器,按照姓名顺序排序文件 datebook。
  2. 使用 open 函数创建文件句柄,通过输入过滤器列出当前目录下的所有文件,并打印所有可读的文本文件内容。如果open失败,则通过 die 函数退出脚本。
  3. 重写程序,检查列出的文件在过去12小时是否经过修改,并打印这些文件的名字。

练习C

  1. 在文件 datebook 中创建多个重复的项。例如,Fred Fardbarkle重复出现5次, Igor Chevsky 重复出现3次,等等。在大多数编辑器中,这些只需简单的复制/粘贴操作。

    • 编写程序,将文件 datebook 的文件名赋值给标量,并检查文件是否存在。如果存在的话,程序继续检查文件是否可写或可读,并通过die函数发送错误信息到屏幕。同时还要告诉用户 datebook 文件上一次修改的时刻。
    • 程序还应读取datebook 文件的每一行内容,并将每个人的薪水增加10%。 不过,如果有人在文件中不止出现一次(假定同名同姓就代表重复)的话,则只处理第一次,而跳过第二次出现的情况。程序应将每一行输出发送到文件raise中。在 raise文件内,任何人都不应该重复出现,并且其薪水值都应当增加 10%。
    • 在屏幕上显示 datebook 文件中所有人的平均收入。 对于重复的项,应当打印重复的人名以及相应的重复次数。
  2. 编写脚本 checking,以任意数量文件作为命令行参数,打印可读并且可写的文本文件名字。如果用户没有提供任何参数,则打印错误信息并退出脚本。

猜你喜欢

转载自blog.csdn.net/yejing0609/article/details/51823903
今日推荐