perl 写的查询天气预报的脚本

skskevin

回复 10# 机器猫II
我们公司用的短信猫带一个短信猫通信中间件（即基于数据库接口的短信猫通信服务器软件），只需要提交短信队列到数据库里即可。
代码很简单，只需要连接数据库写入数据即可。

sub SendsmsMysql{
        my($mobilenum,$msg) = @_;
        my $dbh = DBI->connect("DBI:mysql:database=数据库名称;host=服务器IP地址;","用户名", "密码");
  if($dbh){
      $dbh->do("set character_set_client='gbk'");  
      $dbh->do("set character_set_connection='gbk'");  
      my  $sql = qq { insert into T_SendTask (DestNumber,Content)values('$mobilenum','$msg') };
          print $sql,$/;
        my  $sth = $dbh->prepare($sql);
        $sth->execute();
        $sth->finish();
        sleep(2);
  }
}

机器猫II

linux对短信猫的支持怎么样

yaoliwei

上面2个天气预报 我运行都是乱码 xp下面，

skskevin

回复 13# yaoliwei

去掉  “binmode(STDOUT, ':encoding(gb2312)');” 前面的注释符号，如果还不行，改成UTF8试试。

skskevin

回复 12# 机器猫II


    linux 对短信猫的支持，感觉还不错。至少目前还没出现什么问题。

yaoliwei

回复  yaoliwei

去掉  “binmode(STDOUT, ':encoding(gb2312)');” 前面的注释符号，如果还不行，改成U ...
skskevin 发表于 2010-06-11 17:08

试了还是不行 我本地cmd窗口中的字符集是936（简体中文）（chcp命令）

iamlimeng

use utf8;  #注释掉此行

将
binmode( STDOUT, ':encoding(utf' );
改为
binmode( STDOUT, ':encoding(gbk)' );

应该就能显示中文，我在我的XP上是可以的

yaoliwei

use utf8;  #注释掉此行

将
binmode( STDOUT, ':encoding(utf' );
改为
binmode( STDOUT, ':encodi ...
iamlimeng 发表于 2010-06-12 10:17

  我的还是不行 我也是这修改了encode成gbk 也还是不行 晕死。
请看我的code 就稍微改了一点点。 你能把你的code贴一下嘛 谢谢。
我的运行结果如下 开始几行有一些提示 貌似和我的936 codepage有关。

1. C:\>perl test.pl
   
2. .. Complete!
   
3. "\x{00a1}" does not map to cp936 at test.pl line 51.
   
4. "\x{00a1}" does not map to cp936 at test.pl line 51.
   
5. "\x{00a1}" does not map to cp936 at test.pl line 51.
   
6. "\x{00a1}" does not map to cp936 at test.pl line 51.
   
7. "\x{00a1}" does not map to cp936 at test.pl line 51.
   
8. "\x{00a1}" does not map to cp936 at test.pl line 51.
   
9. "\x{00a1}" does not map to cp936 at test.pl line 51.
   
10. 12????????????
    
11. ????\x{00a1}è?
    
12. ¨|??
    
13. ¨|?????30???
    
14. ?????????¨|?????
    
15. ???¨|??
    
16. ?\x{00a1}è?¨|??
    
17. ?\x{00a1}è????
    
18. ??????20???
    
19. ?????????¨|?????
    
20. ???¨|??
    
21. 13????????????
    
22. ????\x{00a1}è?
    
23. ¨|??¨|??¨|?\x{00a1}§
    
24. ¨|?????31???
    
25. ?????????¨|?????
    
26. ???¨|??
    
27. ?\x{00a1}è?¨|??
    
28. ¨|??¨|?\x{00a1}§
    
29. ??????19???
    
30. ?????????¨|?????
    
31. ???¨|??

复制代码

iamlimeng

回复 18# yaoliwei

建议你重装一下PERL，在XP上，ActivePerl很稳定，我一直用。

yaoliwei

回复  yaoliwei

建议你重装一下PERL，在XP上，ActivePerl很稳定，我一直用。
iamlimeng 发表于 2010-06-12 12:33

我用的是strawberry perl  不是activestate perl。
很奇怪。。。。。