奇怪的字符串打印問題

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
   

復(fù)制代碼

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

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

復(fù)制代碼

結(jié)果就成了

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.     );
   

復(fù)制代碼

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

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

MMMIX

試下這個(gè)

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

暈死。。。不小心點(diǎn)到了臭蛋，是在抱歉。。。我本無惡意，不知道如何取消！

longbow0

謝謝 MMMIX！

不過還是不明白為什么會(huì)出現(xiàn)這樣的問題。

是否是因?yàn)樵谳敵鲎址�串和�?shù)值時(shí)，由于變量替換，perl 當(dāng)成了運(yùn)算？

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

MMMIX

原帖由 longbow0 于 2009-6-16 10:57 發(fā)表
謝謝 MMMIX！

不過還是不明白為什么會(huì)出現(xiàn)這樣的問題。

把你能復(fù)現(xiàn)問題的完整代碼貼上來。

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

我想找到原因了。

為了捕獲數(shù)據(jù)庫(kù)更新的異常，用了 eval {};同時(shí)要處理的數(shù)據(jù)很多，把 $sql 查詢的構(gòu)造語句也放到了 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";    # 這里出錯(cuò)
    
16. 
    
17.         $dbh->do($sql);
    
18.     }
    
19.     $dbh->commit;
    
20. };
    
21. 
    
22. if ($@) {
    
23.     $dbh->rollback;
    
24. }
    

復(fù)制代碼