Question

您好！我现在从一个txt文档中读取内容，读取每一行的内容进行格式处理后放入另一个txt文档中，请问如何实现

Answer 1

#用perl做,大体思路如下:

open(FIN, "< " . $F_InFile);
#open(FOUT, "> " . $F_OutFile);

while(<FIN>){
chomp;
$GetLine = $_;

if( $GetLine =~/(.*?)[,，]/ ) {
#处理...... $GetLine="处理后的字符串";
#打印到另一个文件：
printf(FOUT $GetLine);
next;
}
}