perl参考脚本.doc

perl写的一个简单删除文件行号的脚本 晚上在网上拷了一段程序，想看看运行结果，分析一下源代码，不想下载所得程序每行前面都有一个行号，程序不能运行，我就试着删除行号，可是程序太长，删的时候太麻烦，于是就写了一个perl脚本将其快速删除，现在将我的脚本贴出来，如有什么地方可以改进希望各位帮忙指出来，我的脚本如下: 1#!/usr/bin/perl 2 #文件名:deleteRowNum.pl 3 #本脚本用来将源文件中每行的行号号去除，省去了手工删除行号的麻烦; 4 #运行格式是: 5 # perl deleteRowNum.pl sourcefile targetfile 6 #则在targetfile里面的内容就没了行号 7 8 open (FILE,$ARGV0) | die Cannot open file $ARGV0; 9 open(OUTFILE,$ARGV1) | die cannot create file $ARGV1;10 while( $line= ) 11 $line=s/(空格0,|d)d0,./g;12 print OUTFILE ($line);13 14 close (FILE);15 close (OUTFILE)运行实例：有文件mem.c . 11. #include 12. #include 13. #include 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%lxn,PAGE_OFFSET); 32. printk(KERN_INFOPGDIR_SHIFT = %dn,PGDIR_SHIFT); 33. printk(KERN_INFOPUD_SHIFT = %dn,PUD_SHIFT); 34. printk(KERN_INFOPMD_SHIFT = %dn,PMD_SHIFT); 35. printk(KERN_INFOPAGE_SHIFT = %dn,PAGE_SHIFT); 36. 37. printk(KERN_INFOPTRS_PER_PGD = %dn,PTRS_PER_PGD); 38. printk(KERN_INFOPTRS_PER_PUD = %dn,PTRS_PER_PUD); 39. printk(KERN_INFOPTRS_PER_PMD = %dn,PTRS_PER_PMD); 40. printk(KERN_INFOPTRS_PER_PTE = %dn,PTRS_PER_PTE); 41. 42. printk(KERN_INFOPAGE_MASK = 0x%lxn,PAGE_MASK); 43. 44. if(!(pcb_tmp = find_task_by_pid(pid) 45. printk(KERN_INFOCant find the task %d .n,pid); 46. return 0; 47. 48. printk(KERN_INFOpgd = 0x%pn,pcb_tmp-mm-pgd); 49. /* 判断给出的地址va是否合法(va<vm_end)*/ 50. if(!find_vma(pcb_tmp-mm,va) 51. printk(KERN_INFOvirt_addr 0x%lx not available.n,va); 52. return 0; 53. 54. pgd_tmp = pgd_offset(pcb_tmp-mm,va); 55. printk(KERN_INFOpgd_tmp = 0x%pn,pgd_tmp); 56. printk(KERN_INFOpgd_val(*pgd_tmp) = 0x%lxn,pgd_val(*pgd_tmp); 57. if(pgd_none(*pgd_tmp) 58. printk(KERN_INFONot mapped in pgd.n); 59. return 0; 60. 61. pud_tmp = pud_offset(pgd_tmp,va); 62. printk(KERN_INFOpud_tmp = 0x%pn,pud_tmp); 63. printk(KERN_INFOpud_val(*pud_tmp) = 0x%lxn,pud_val(*pud_tmp); 64. if(pud_none(*pud_tmp) 65. printk(KERN_INFONot mapped in pud.n); 66. return 0; 67. 68. pmd_tmp = pmd_offset(pud_tmp,va); 69. printk(KERN_INFOpmd_tmp = 0x%pn,pmd_tmp); 70. printk(KERN_INFOpmd_val(*pmd_tmp) = 0x%lxn,pmd_val(*pmd_tmp); 71. if(pmd_none(*pmd_tmp) 72. printk(KERN_INFONot mapped in pmd.n); 73. return 0; 74. 75. /*在这里，把原来的pte_offset_map()改成了pte_offset_kernel*/ 76. pte_tmp = pte_offset_kernel(pmd_tmp,va); 77. 78. printk(KERN_INFOpte_tmp = 0x%pn,pte_tmp); 79. printk(KERN_INFOpte_val(*pte_tmp) = 0x%lxn,pte_val(*pte_tmp); 80. if(pte_none(*pte_tmp) 81. printk(KERN_INFONot mapped in pte.n); 82. return 0; 83. 84. if(!pte_present(*pte_tmp) 85. printk(KERN_INFOpte not in RAM.n); 86. return 0; 87. 88. pa = (pte_val(*pte_tmp) & PAGE_MASK) |(va & PAGE_MASK); 89. printk(KERN_INFOvirt_addr 0x%lx in RAM is 0x%lx .n,va,pa); 90. printk(KERN_INFOcontect in 0x%lx is 0x%lxn,pa,