批量删除文件前几行or前几列

 批量删除行or列

doc.names <- Sys.glob("gf*") #提取文件夹中所有含有gf文件名的文件
doc.names


#确定读入文件的个数
n=length(doc.names)

for (i in 1:n) {a=read.csv(doc.names[i],header=F,sep=" ")
##删除第一行（列名）及最后两列
a <- a[,-c(1:99)]
name <- paste(doc.names[i])
write.table(a,file = name ,col.names=F, row.names=F, sep = " ")    
}

LINUX命令行，删除文件夹中所有文件1-3行. 

for i in `ls`;do sed -i '1,3d' $i;done