我想逐行讀取，但結(jié)果是跳行讀，請(qǐng)大蝦看看

davieyan

原文件有106行，寫(xiě)入新文件就只有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

不明白，能說(shuō)明白點(diǎn)嗎

cobrawgl

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

davieyan

知道了，寫(xiě)成while($linetxt = readline myfile)就好了。謝了�。�！

Ksharp

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

xiaoyu9805119

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