如何删除首行和分裂文本文件

metaxing

一个目录内有csv(实则为分号分隔并非逗号分隔)为扩展名的文件15个,其中14个文件使用perl删除首行后生成同名的txt文件,剩余一个Cell.csv文件不仅要删除首行,还需将其分裂为两个文件Cell.txt和Cell2.txt,其中Cell.txt文件包含Cell.csv文件的前255列,Cell2.txt包含原Cell.csv文件的前两列和第256列至328列!

原来是在awk下做的,现在转到perl下,有些不熟悉,请赐教!

metaxing

内部内容和分隔符不得改变!
先谢了:联系QQ:110290428

Perl_Er

refer to 'in-place editing'

metaxing

谢谢,搜索学习中!
不过英文居多,啃起来有些吃力!

metaxing

没关系,继续努力探索中
多谢指点

Shell_Er

http://hi.baidu.com/zhujian0805/ ... 97c1c3d1c86ac8.html
http://hi.baidu.com/zhujian0805/ ... a0b4a8cd1166a0.html

metaxing

多谢,目前基本解决了第一个问题,就是去除首行!
假如Adjacency.csv文件,要去除首行,在Windows下的单行指令如下:
perl -i.old -ne "print unless 1 .. 1" Adjacency.csv

但希望将Adjacency.csv通过脚本删除首行后生成新文件Adjacency.txt
请予指教,另外分裂还没有眉目!

hulnglei

一定要用perl吗？    如果只有15个文件的话直接用awk，head 等其他命令很简单吧！
head -n 255 input.csv > output.csv

[ 本帖最后由 hulnglei 于 2009-11-28 23:51 编辑 ]

metaxing

改名搞定:
perl -ne "print unless 1 .. 1" <Adjacency.csv>; Adjacency.txt

metaxing

原帖由 hulnglei 于 2009-11-28 23:49 发表
一定要用perl吗？    如果只有15个文件的话直接用awk，head 等其他命令很简单吧！
head -n 255 input.csv > output.csv

您可能理解有误,不是提取文件的前255行,而是文件中以分号分隔的前255列,因为Access一张表中只能最大处理255个字段,所以要将那个文件分裂成两部分,前255裂作为一个文件,后面得列和最前面的两列作为一个文件!