perl todolist

最近在学习perl试着试着写了一个todolist的程序写入一个文本文件,可用于我的conky在桌面显示比较方便写的比较糟和冗余后期会随着学习继续优化脚本。其中遇见了不少问题,也发现很多语法记得不牢靠,幸好以前写过不少其他语言的程序发现问题也只是语法,思维方向大致还是很正确的。 实现功能如下: 1、插入,可同时插入多条。 2、删除单条( 在下一个版本中会加入删除多条可以实现调用方法如下: 输入 1 2 3 是删除指定条数 输入1-3删除范围条数 ) 3、修改,我这里想的是如果是修改那么todo就是需求更改,那么会直接放入todolist的第一条置顶。 用到的知识点 1、列表list 2、hash数组 3、文件的写入与追加 4、sub参数,sub参数的指针调用我用红色标出。 5、脚本调用时的参数判断,个数判断 6、正则 #!/usr/bin/perl use strict; my $filename =”$ENV{PWD}/todolist.file”; sub badarg{     print “badargs”; } sub dump_arr{     my $line_num = 0;     if(@_ == 0){         print “You have nothing todo!!!!n”; […]