$newsql = join "$sqlbegin",$linetxt,$sqlend; |
原帖由 Cludy 于 2008-7-16 11:51 发表
$linetxt = readline myfile;
$linetxt最后有换行符吧,
增加一句chomp($linetxt ),就不会出现换行的情况了吧!
原帖由 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 ...
欢迎光临 Chinaunix (http://bbs.chinaunix.net/) | Powered by Discuz! X3.2 |