我想逐行读取，但结果是跳行读，请大虾看看

davieyan

原文件有106行，写入新文件就只有53行了，还是跳行读的

代码如下

!#/usr/bin/perl
open (myfile,"newtxt.txt");
open (mysqlfile,">>newtxt.sql");
$sqlbegin = "insert into sevencai values(";
$sqlend = ");\n";
while (<myfile>)
{
$linetxt = readline myfile;
chomp($linetxt);

$newsql = join '',$sqlbegin,$linetxt,$sqlend;
print mysqlfile  $newsql;
}

cobrawgl

你读了两次，可不得跳行读嘛

davieyan

不明白，能说明白点吗

cobrawgl

while (<myfile>)   -----〉 第一次
{
$linetxt = readline myfile;  ---〉第二次

davieyan

知道了，写成while($linetxt = readline myfile)就好了。谢了！！！

Ksharp

直接while(<myfile>)就是读啊

xiaoyu9805119

不要readline了，直接操作$_就行了。