同一个文件读写操作

PurpleYUE

文件A：
1，2，3，4
3，4，7，5
。。。

要求：
读文件A ，对每行的其中几列进行计算，然后把得到的值插入到每行的末尾

请问，能够直接操作文件每行的末尾么？

DQP

可以通过设置 $^ （请参考 pelrdoc perlvar)
或者使用Tie::File
来达到原地修改的效果

PurpleYUE

#!/bin/sh
IFNAME="/home/yue/a.csv"
OFNAME="/home/yue/x.csv"

awk -F, '{var0=$0;var1=$1+$2+$3;print var0","var1;}' $IFNAME > $OFNAME

结果：
1，2，3，4，6
3，4，7，5，14

楼上大侠说的那个模块还没学会怎么用，所以就试试awk这样写，也能实现我想要的结果，但是之后还要先删除原来文件再对生成的文件改名，perl中如何实现还不是很懂，敬请各位大侠指教。

小公猫

原帖由 PurpleYUE 于 2009-4-4 11:01 发表


结果：
1，2，3，4，6
3，4，7，5，14

楼上大侠说的那个模块还没学会怎么用，所以就试试awk这样写，也能实现我想要的结果，但是之后还要先删除原来文件再对生成的文件改名，perl中如何实现还不是很懂， ...

你是想直接修改原文件是吗？

PurpleYUE

是的 可是perl中如何修改同一个文件还不是很懂

SeaPrince

先写到一个临时文件，处理完了再覆盖过来可以实现，不知道符不符合你的需求？

KevinLee39

你们都想得太多了. 其实文本文件本来也不存在原地编辑的问题. 楼主想要的就是不要操作其他临时文件, 结果还在原来的那个文件名里


perl -lpi -aF',' -e '$_.=",".($F[0]+$F[1]+$F[2])'  filename