奇怪的字符串打印问题

longbow0

字符串是

1. 
   
2. my $sql = << "EOS";
   
3. UPDATE virus
   
4.     SET longlat = GeomFromText
   
5.     ( 'POINT ( $long $lat ) ', 4326 )
   
6.     WHERE id = (
   
7.         SELECT vir_id FROM sequence WHERE accession = '$acc'
   
8.     );
   
9. EOS
   

复制代码

其中 $long, $lat 和 $acc 是变量。

1. 
   
2. print $sql, "\n";
   

复制代码

结果就成了

1. 
   
2. UPDATE virus
   
3.     SET longlat = GeomFromText
   
4. ) ', 4326 ) ( 78.96288 20.593684
   
5.     WHERE id = (
   
6.         SELECT vir_id FROM sequence WHERE accession = 'FJ904812'
   
7.     );
   

复制代码

其中
$acc = 'FJ904812'
$long = 78.96288
$lat = 20.593684

一下子不清楚是什么原因？

MMMIX

试下这个

lee@debian:/tmp$ cat t.pl
#!/usr/bin/perl
use strict;
use warnings;

my $acc = 'FJ904812';
my $long = 78.96288;
my $lat = 20.593684;

my $sql = << "EOS";
UPDATE virus
    SET longlat = GeomFromText
( 'POINT ( $long $lat ) ', 4326 )
    WHERE id = (
    SELECT vir_id FROM sequence WHERE accession = '$acc'
);
EOS

print $sql, "\n";
lee@debian:/tmp$ ./t.pl
UPDATE virus
    SET longlat = GeomFromText
( 'POINT ( 78.96288 20.593684 ) ', 4326 )
    WHERE id = (
    SELECT vir_id FROM sequence WHERE accession = 'FJ904812'
);

[ 本帖最后由 MMMIX 于 2009-6-15 23:31 编辑 ]

fxpbupt

晕死。。。不小心点到了臭蛋，是在抱歉。。。我本无恶意，不知道如何取消！

longbow0

谢谢 MMMIX！

不过还是不明白为什么会出现这样的问题。

是否是因为在输出字符串和数值时，由于变量替换，perl 当成了运算？

[ 本帖最后由 longbow0 于 2009-6-16 11:00 编辑 ]

MMMIX

原帖由 longbow0 于 2009-6-16 10:57 发表
谢谢 MMMIX！

不过还是不明白为什么会出现这样的问题。

把你能复现问题的完整代码贴上来。

churchmice

一切正常啊

loser@loserking:~/chinaunix$ ./print.pl
UPDATE virus
    SET longlat = GeomFromText
    ( 'POINT ( 78.96288 20.593684 ) ', 4326 )
    WHERE id = (
        SELECT vir_id FROM sequence WHERE accession = 'FJ904812'
    );

fxpbupt

不知道你想说什么。。。

longbow0

我想找到原因了。

为了捕获数据库更新的异常，用了 eval {};同时要处理的数据很多，把 $sql 查询的构造语句也放到了 eval {} 块中。

1. 
   
2. eval {
   
3.     while (<IN>) {
   
4.         my ($acc, $long, $lat) = split(/,/, $_)
   
5.    
   
6.         my $sql = << "EOS";
   
7. UPDATE virus
   
8.     SET longlat = GeomFromText
   
9. ( 'POINT ( $long $lat ) ', 4326 )
   
10.     WHERE id = (
    
11.     SELECT vir_id FROM sequence WHERE accession = '$acc'
    
12. );
    
13. EOS
    
14. 
    
15.         print $sql, "\n";    # 这里出错
    
16. 
    
17.         $dbh->do($sql);
    
18.     }
    
19.     $dbh->commit;
    
20. };
    
21. 
    
22. if ($@) {
    
23.     $dbh->rollback;
    
24. }
    

复制代码