perl参考脚本.docVIP

perl写的一个简单删除文件行号的脚本 晚上在网上拷了一段程序，想看看运行结果，分析一下源代码，不想下载所得程序每行前面都有一个行号，程序不能运行，我就试着删除行号，可是程序太长，删的时候太麻烦，于是就写了一个perl脚本将其快速删除，现在将我的脚本贴出来，如有什么地方可以改进希望各位帮忙指出来，我的脚本如下:? ?? 1#!/usr/bin/perl?????????????????????????????????????????????????????? ? 2 #文件名:deleteRowNum.pl? 3 #本脚本用来将源文件中每行的行号号去除，省去了手工删除行号的麻烦;? 4 #运行格式是:? 5 #? perl deleteRowNum.pl sourcefile targetfile? 6 #则在targetfile里面的内容就没了行号? 7? 8 open (FILE,$ARGV[0]) || die Cannot open file $ARGV[0];? 9 open(OUTFILE,$ARGV[1]) || die cannot create file $ARGV[1];?10 while( $line=FILE ) {?11?????? $line=~s/^(空格{0,}|\d)\d{0,}\.//g;?12?????? print OUTFILE ($line);?13 }?14 close (FILE);?15 close (OUTFILE)运行实例：有文件mem.c?? ...? 11. #include linux/mm.h? 12. #include asm/pgtable.h? 13. #include asm/page.h? 14.? ? 15. MODULE_LICENSE(GPL);? 16. static int pid;? 17. static unsigned long va;? 18.? ? 19. module_param(pid,int,0644);? 20. module_param(va,ulong,0644);??? print \n;? 21.? ? 22. static int find_pgd_init(void)? 23. {? 24.???????? unsigned long pa = 0;? 25.???????? struct task_struct *pcb_tmp = NULL;? 26.???????? pgd_t *pgd_tmp = NULL;? 27.???????? pud_t *pud_tmp = NULL;? 28.???????? pmd_t *pmd_tmp = NULL;? 29.???????? pte_t *pte_tmp = NULL;? 30.? ? 31.???????? printk(KERN_INFOPAGE_OFFSET = 0x%lx\n,PAGE_OFFSET);? 32.???????? printk(KERN_INFOPGDIR_SHIFT = %d\n,PGDIR_SHIFT);? 33.???????? printk(KERN_INFOPUD_SHIFT = %d\n,PUD_SHIFT);? 34.???????? printk(KERN_INFOPMD_SHIFT = %d\n,PMD_SHIFT);? 35.???????? printk(KERN_INFOPAGE_SHIFT = %d\n,PAGE_SHIFT);? 36.? ? 37.???????? printk(KERN_INFOPTRS_PER_PGD = %d\n,PTRS_PER_PGD);? 38.???????? printk(KERN_INFOPTRS_PER_PUD = %d\n,PTRS_PER_PUD);? 39.???????? printk(KERN_INFOPTRS_PER_PMD = %d\n,PTRS_PER_PMD);? 40.???????? printk(KERN_INFOPTRS_PER_PTE = %d\n,PTRS_PER_PTE);? 41.? ? 42.???????? printk(KERN_INFOPAGE_MASK = 0x%lx\n,PAGE_MASK);? 43.? ? 44.???????? if(!(pcb_tmp = find_task_by_pid(pid))) {? 45.???????????????? printk(KERN_INFOCant find the