perl怎么删除html文件中的

perl删除文件弯陪使用unlink语句，例如删除a.html的语句为：

unlink 'a.html'

如果需要删察厅除文件里面的部分内容，埋没蠢一般是把文件读入变量里面，修改内存变量后重新写入文件。

把所有文件读入数组，然后排序，最后循环数组的所有野雀项目，余羡如果与下一条的前面6个字符相同，就删除。

opendir(DIR,'.')

@f=<竖脊拍DIR>

close(DIR)

@f=sort @f

foreach $i (1..($#f-1)){

    print "rmdir $f[$i] \n" if (substr($f[$i],0,6) eq substr($f[$i+1],0,6))

}

1. 检查 interpreter (解释器) 的位置是贺带否正确

例如你电脑里有两个 perl, 新禅返芦装的没事, 但旧世闹的有问题, 但你在 Windows 环境变量中 PATH 中所设定的 perl 是来自旧的, 那还是会有问题

2. 检查脚本中所有 use, require, do 所相关的 packages ( perl module / 模块 ) 是否齐全

3. windows 的 perl script 不需要 shebang line, 即 #!/usr/bin ... 如有请删除

---