说明.txt

一个简单的通讯录,实现了简单的电话记录的增删改查等操作

这几天小弟专心学习perl语言有关文本处理的内容，并用Perl语言编了一个小程序：通讯录管理系统，实现简单的文本处理功能，添加，删除，修改，查看之类的……程序比较长，接近400行（自我感觉太长了，重复的内容很多），在此贴出，供大家拍砖用，朋友你若感兴趣的话，还请帮忙看一看，给提点意见，改善改善，呵呵……

一、程序名称：

   通讯录管理系统  address_list

二、编程目的：

   锻炼使用perl语言进行文本处理的能力，完成一个简易系统设计

三、程序功能：

   通讯录的简单管理，根据显示的菜单按下相应的键，进入相应的子程序，完成相应的功能。
   结构如下
   
   主菜单：  打开文件(openfile)
 (mainmenu)  保存文件(savefile)
                编辑：  添加(add)
            (editmenu)  删除(delete)
                        修改(modify)
                查看：  按电话号码查询(display by number)
            (findview)  按姓名查询(display by namber)

四、通讯录格式：

姓名    性别   电话号码    电子邮箱   地址
Name    Sex    Number     E-mail     Address

五、操作方法及运行环境：

  先在D盘根目录下建立一个文件夹test,即D:\test把附件中的内容解压至该文件，点击程序即可运行！

  winxp perl 5.8.8,且perl安装到了C盘，即C:\perl
  
六、程序结构：
  
  文件打开成功读入全局变量@number,%data,其中@number=keys (%data); 所有操作再对全局变量起作用，操作完成后，再次写入文件，此时，可以选择保存方式！

  定义全局变量

  显示主菜单；
  编辑菜单：sub editmenu
  查看菜单：sub findmenu

  打开文件：sub openfile
  保存文件：sub savefile
  在屏幕上显示结果：sub write_to_atdout

  添加：sub myadd
  修改：sub mymodify
  删除：sub mydelete_by_number
  
  按电话号码查询：sub myview_by_number
  按姓名查询：sub myview_by_name

七、其他：
  
  若有未尽之处，还请多多批评指正，在此发出来，就是供大家拍砖的，哈哈……
  E-mail:  [e-mail]