用join拼接字符串有问题，请大侠看看

davieyan

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

1^# davieyan 发表于 2008-07-16 10:17

用join拼接字符串有问题，请大侠看看

我要把ip.txt的内容读出，再拼接成一条sql语句。但总是只输出ip.txt的内容，不知为什么，请高手指点指点！

!#/usr/bin/perl
open myfile,"ip.txt";

$sqlbegin == "insert into sevencai values(";
$sqlend == ");";

$linetxt = readline myfile;
$newsql = join $sqlbegin,$linetxt,$sqlend;
print $newsql;

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

2^# flw 发表于 2008-07-16 10:23

perldoc -f join

ermu

UID: 39722
帖子: 39
积分: 89
在线时间: 2 小时

3^# ermu 发表于 2008-07-16 10:24

不用这么拼接吧，直接就用点号连接就行。

zhangkeyijian

UID: 25387
帖子: 142
积分: 326
在线时间: 1 天 3 小时

4^# zhangkeyijian 发表于 2008-07-16 10:25

$newsql = join "$sqlbegin",$linetxt,$sqlend;

EXPR与LIST区分一下

davieyan

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

5^# davieyan 发表于 2008-07-16 11:18

QUOTE:

原帖由 zhangkeyijian 于 2008-7-16 10:25 发表
$newsql = join "$sqlbegin",$linetxt,$sqlend;

EXPR与LIST区分一下

不行呀，如果写成$newsql = join “insert into sevencai values("，$linetxt,$sqlend;

打出来就成了
张三,172.16.10.2
insert into sevencai values(

变成两行输出了

davieyan

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

6^# davieyan 发表于 2008-07-16 11:25

QUOTE:

原帖由 ermu 于 2008-7-16 10:24 发表
不用这么拼接吧，直接就用点号连接就行。

也不行，写成$newsql = "insert into sevencai values(".$linetxt.$sqlend；

输出是 insert into sevencai values(张三,172.16.10.2

写成 $newsql = "insert into sevencai values(".$linetxt.“);";

输出是 insert into sevencai values(张三,172.16.10.2
);
是两行输出

Cludy

UID: 5887
帖子: 141
积分: 324
在线时间: 1 天 3 小时

7^# Cludy 发表于 2008-07-16 11:51

$linetxt = readline myfile;
$linetxt最后有换行符吧，
增加一句chomp($linetxt ),就不会出现换行的情况了吧！

davieyan

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

8^# davieyan 发表于 2008-07-16 11:59

QUOTE:

原帖由 Cludy 于 2008-7-16 11:51 发表
$linetxt = readline myfile;
$linetxt最后有换行符吧，
增加一句chomp($linetxt ),就不会出现换行的情况了吧！

好了，谢了！

但为什么用变量拼接有问题呢？

Cludy

UID: 5887
帖子: 141
积分: 324
在线时间: 1 天 3 小时

9^# Cludy 发表于 2008-07-16 12:14

!#/usr/bin/perl
open myfile,"ip.txt";

$sqlbegin = "insert into sevencai values(";
$sqlend = ");";

$linetxt = readline myfile;
chomp($linetxt);

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

试试这样的。
和你的对比一下。。

davieyan

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

10^# davieyan 发表于 2008-07-16 13:06

QUOTE:

原帖由 Cludy 于 2008-7-16 12:14 发表
!#/usr/bin/perl
open myfile,"ip.txt";

$sqlbegin = "insert into sevencai values(";
$sqlend = ");";

$linetxt = readline myfile;
chomp($linetxt);

$newsql = join '' ,$sqlbegin,$linetxt,$s ...

不行，这样只能打出 $linetxt