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

Perl_Er

没有意思

metaxing

呵呵,又有个问题,假如我要其中某个字段的值发生变化,但其他字段不变,该如何呢!
比如:
perl -F; -alne "next if $.==1;print join ';',@F[0..234]" cell.csv >cell1.txt
或
perl -F; -alne "next if $.==1;local $, = ';';print @F[0..234]" cell.csv >cell1.txt

要输出前234列,但是其中的第222和223列的值需要乘以100后再输出到Cell1.txt文件的对应列,应该在这两条语句中如何实现呢?

metaxing

是不是这样呢:

perl -F; -alne "next if $.==1;print join ';',@F[0..221],@F[222]*100,@F[223]*100,@F[224..234]" cell.csv >cell1.txt
或
perl -F; -alne "next if $.==1;local $, = ';';print @F[0..221],@F[222]*100,@F[223]*100,@F[224..234]" cell.csv >cell1.txt

貌似试验结果正确!

ulmer

原帖由 metaxing 于 2009-11-30 15:47 发表
是不是这样呢:

perl -F; -alne "next if $.==1;print join ';',@F[0..221],@F[222]*100,@F[223]*100,@F[224..234]" cell.csv >cell1.txt
...
貌似试验结果正确!

貌似你在摸石头过河，瞎猫逮耗子-碰个运气!

先去读一读array，打一打基础吧。

metaxing

是啊,就是这种状态,没人指导就瞎撞啊!
多谢指导!去看看array