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

davieyan

UID: 19726
帖子: 87
积分: 200
在线时间: 10 小时

1^# davieyan 发表于 2008-07-17 21:15

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

原文件有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

UID: 21059
帖子: 1
积分: 2
在线时间: 10 分钟

2^# cobrawgl 发表于 2008-07-17 21:27

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

davieyan

UID: 19726
帖子: 87
积分: 200
在线时间: 10 小时

3^# davieyan 发表于 2008-07-17 21:32

不明白，能说明白点吗

cobrawgl

UID: 21059
帖子: 1
积分: 2
在线时间: 10 分钟

4^# cobrawgl 发表于 2008-07-17 21:42

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

davieyan

UID: 19726
帖子: 87
积分: 200
在线时间: 10 小时

5^# davieyan 发表于 2008-07-17 22:00

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

Ksharp

UID: 18880
帖子: 7
积分: 16
在线时间: 10 分钟

6^# Ksharp 发表于 2008-07-18 09:52

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

xiaoyu9805119

UID: 39268
帖子: 67
积分: 154
在线时间: 6 小时

7^# xiaoyu9805119 发表于 2008-07-18 14:36

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