按类别查询搜索结果
关于关键词 的检测结果,共 43
damofeixue64 | 2020-01-20 17:40:38 | 阅读(960) | 评论(0)
点击(此处)折叠或打开#!/usr/bin/perl# tcp_iosocket_dt_srv.pluse strict;use IO::Socket;use POSIX qw(WNOHANG);$SIG{CHLD} = sub {     while((my $pid = waitpid...【阅读全文】
damofeixue64 | 2020-01-20 17:40:36 | 阅读(920) | 评论(0)
点击(此处)折叠或打开#!/usr/bin/perl# tcp_iosocket_dt_srv.pluse strict;use IO::Socket;use POSIX qw(WNOHANG);$SIG{CHLD} = sub {     while((my $pid = waitpid...【阅读全文】
perltest | 2016-10-30 18:22:29 | 阅读(900) | 评论(0)
医保相关文档【阅读全文】
perltest | 2016-10-30 18:13:51 | 阅读(1010) | 评论(0)
在我们医院的医保实施过程中,需要实现这样的功能:医保结算电脑需要在命令行(不是浏览器)通过CGI和服务器通信,上传sql语句,把查询到的结果通过cgi传回来。【阅读全文】
perltest | 2016-10-30 17:57:39 | 阅读(980) | 评论(0)
在安装了Tk,之后,遇到的第一个问题是视窗中中文显示乱码。

这个问题在网上查了一下,说的不清楚,自己试了一下解决起来很简单。【阅读全文】
perltest | 2016-10-30 17:31:42 | 阅读(960) | 评论(0)
? 用Perl开发视窗软件,最简单的方法是用Tk。
?
? 在Win7系统,Strawberry Perl里,要安装Tk的方法是:
? cpan> install Tk
? 回车就可以了。【阅读全文】
perltest | 2016-08-23 17:16:46 | 阅读(1410) | 评论(0)
医保提供的sei.dll文件,在调用的时候有时会发生弹窗。采用CGI、PHP、ASP等方式编写的医院管理,都会有这样的问题。【阅读全文】
perltest | 2016-08-16 21:25:10 | 阅读(1620) | 评论(0)
在见到医保提供的sei.dll文件之前,在网上查了一下,Perl可以通过Win32::API模块对dll文件进行调用。【阅读全文】
perltest | 2016-08-15 17:22:34 | 阅读(2400) | 评论(0)
?医院加入医保,牵扯到很多方面的情况,我通过在itbpu上的博客空间,把遇到的情况写出来,其中最核心的问题,是Perl如何正确处理医保dll文件。
?今天是第一个话题,比较简单,就是医院要加入地方医保,医院服务端由Linux改为Windows。
?
?【阅读全文】
Barnett_3662 | 2016-02-03 12:01:49 | 阅读(1220) | 评论(0)
执行报错:DBD::mysql::st execute failed: Illegal mix of collations (gb2312_chinese_ci,IMPLICIT) and (latin1_swedish_ci,COERCIBLE) for operation '=' at ./mysql_check.pl line 12.一看发现是编码问题解决办法:$dbh->do("set names utf8;");   #插入此行my $sth = $dbh->do(含有中文字符的sql命令...【阅读全文】
snowtty | 2015-10-22 16:58:02 | 阅读(1720) | 评论(0)
perl发信模块MailSender这个模块基本实现了日常运维中常用的发信功能,比如多人邮件,抄送,密送,smtp认证,发送带附件的邮件,html格式的邮件等。首先,使用MailMsg方法发信 代码如下: #!/usr/bin/perl # # file  wo.pl # use strict; use warnings;use MailSender...【阅读全文】
幸福非天赐 | 2015-04-25 08:02:56 | 阅读(2250) | 评论(0)
perl窗口程序编程基本概念【阅读全文】
幸福非天赐 | 2015-04-24 15:10:52 | 阅读(2120) | 评论(0)
在“perl-Gtk2编程-第一步 安装软件” 中可以看到,perl-Gtk2是有相应的图形化组件帮助手册的,因此可以使用man Gtk2::组件名称 进行查询,如下命令: man -a  Gtk2::Window |tee a.txtGtk2::Window(3)                 ...【阅读全文】
丹京 | 2015-04-16 20:50:58 | 阅读(1020) | 评论(0)
一、IO::Socket简介IO::Socket, 它是socket通信的面向对象的Perl接口。IO::Socket下又有两个子类IO::Socket::INET与IO::Socket::UNIX.现在用的是IO::Socket::INET。它的步骤是:先调用new方法,然后就可以进行基本I/O操作(使用print与getline等基本I/O方法)了,最后调用close方法结束会话,那么整个SOCKET会话就算完...【阅读全文】
zhiyue5654 | 2015-03-01 13:31:04 | 阅读(440) | 评论(0)
要求行为人对被害人采取积极的医疗措施。都会给国家的安全和人民的利益造成严重危害。并处罚金。 行为人致人损害时年满十八周岁的,第一,4%;2011年当年示范区企业专利申请量21866件为法定孳息。法院或专利局局长发现此件专利全部或部分有效, 31. 失踪人所欠税款、债务和应付的其他费用。 或在不办理某项 业务的日期办理...【阅读全文】
【PERL】 利息
zhiyue5654 | 2015-01-20 11:37:43 | 阅读(460) | 评论(0)
则当货物在卖方的运输工具上,即卖方可以在自己的运输工具上完成向对方的交货。如果义务人住所或者居所在国内,不支付利息。则没有担当民法上主体的资格。权利能力是得担当民法上权利义务主体的资格。 《纲要》正式颁布实施。据统计,可以要求出租人允许;但当存在有与第三人本身有关的重大原因,始为有效。始得将财产分配...【阅读全文】
Jack_Tan123 | 2014-12-08 20:18:19 | 阅读(1130) | 评论(0)
use Win32::NetAdmin;my $hostname = Win32::NodeName();my $ref = {};my $hostid;if( Win32::NetAdmin::GetTransports("\\\\$hostname", $ref) ) {    foreach my $trans (keys %{$ref})...【阅读全文】
zhiyue5654 | 2014-11-24 12:12:08 | 阅读(410) | 评论(0)
” 行业动态英飞尼迪集团简介  英飞尼迪是领先的专注于中国市场的跨境股权投资基金管理集团,自1993年成立至今,已募集设立了14支基金,投资100多个项目,平均内部收益率为36%,目前透过旗下13支基金(其中11支在中国)管理着超过7亿美金和20亿人民币的基金。随着英飞尼迪在中国境内的不断发展壮大,集团积...【阅读全文】
snowtty | 2014-11-21 14:52:13 | 阅读(1470) | 评论(0)
以下参数运行,把 访问 192.168.1.1 这个ip的28端口的数据,转发到 192.168.1.13 22端口,本机使用 25 端口与 192.168.1.13 的22端口连接FPipe.exe -i 192.168.1.1 -l 28 -s 25 -r 22 192.168.1.13xxx->192.168.1.1:28->192.168.1.1:25->192.168.1.1:13:22【阅读全文】
zhiyue5654 | 2014-11-17 11:55:47 | 阅读(390) | 评论(0)
      第五百六十九条 债权人出卖人的担保责任   (一)债权出卖人担保债务人资力时,推定为担保契约订立当时的资力。   (二)未届清偿债权的出卖人,担保债务人将来的资力时,推定为担保清偿日期的资力。      第五百七十条  出卖人的瑕疵担保责任   买卖标的物有瑕疵时,准用第五百六...【阅读全文】