ChinaUnix首页 | 论坛 | 博客
博客首页 博客专家 往日推荐 博客文集
热搜： H3C 系统运维 存储 .net C语言 C++ 敏捷 信息
博客首页 〉搜索结果
按类别查询搜索结果
操作系统 程序设计 数据库 热点技术 综合 架构与运维 移动开发与应用 Web前端
关于关键词 的检测结果，共 119 条
【PERL】 perl tcp服务器端编程，接收客户端信息并处理后发送响应给客户端
damofeixue64 | 2020-01-20 17:40:38 | 阅读(940) | 评论(0)
点击(此处)折叠或打开#!/usr/bin/perl# tcp_iosocket_dt_srv.pluse strict;use IO::Socket;use POSIX qw(WNOHANG);$SIG{CHLD} = sub {     while((my $pid = waitpid...【阅读全文】
【PERL】 perl tcp服务器端编程，接收客户端信息并处理后发送响应给客户端
damofeixue64 | 2020-01-20 17:40:36 | 阅读(910) | 评论(0)
点击(此处)折叠或打开#!/usr/bin/perl# tcp_iosocket_dt_srv.pluse strict;use IO::Socket;use POSIX qw(WNOHANG);$SIG{CHLD} = sub {     while((my $pid = waitpid...【阅读全文】
【PERL】 Perl学习（三）
zc12058 | 2016-11-01 23:25:21 | 阅读(1200) | 评论(0)
流控制【阅读全文】
【PERL】 B/S架构下的HIS(医院管理)接入地方医保之六：用命令行通过CGI通信
perltest | 2016-10-30 18:13:51 | 阅读(990) | 评论(0)
在我们医院的医保实施过程中，需要实现这样的功能：医保结算电脑需要在命令行（不是浏览器）通过CGI和服务器通信，上传sql语句，把查询到的结果通过cgi传回来。【阅读全文】
【PERL】 B/S架构下的HIS(医院管理)接入地方医保之五：Tk视窗里中文乱码的解决
perltest | 2016-10-30 17:57:39 | 阅读(970) | 评论(0)
在安装了Tk，之后，遇到的第一个问题是视窗中中文显示乱码。

这个问题在网上查了一下，说的不清楚，自己试了一下解决起来很简单。【阅读全文】
【PERL】 B/S架构下的HIS(医院管理)接入地方医保之三：防止dll文件发生弹窗
perltest | 2016-08-23 17:16:46 | 阅读(1400) | 评论(0)
医保提供的sei.dll文件，在调用的时候有时会发生弹窗。采用CGI、PHP、ASP等方式编写的医院管理，都会有这样的问题。【阅读全文】
【PERL】 perl pack和unpack的使用详解
j_cle | 2016-08-12 09:58:43 | 阅读(800) | 评论(0)
perl pack和unpack的使用方法Pack 与unpack使用说明： pack可视为将一系列的片段的数值打包在一起，可用于对dev档案、socket、memory的读写，因为这些需要一块完整的memory，而且需要事先打包成特定格式；而unpack可以视为将将这些完整的 memory切割计算，取得我们所需要各部分的Variable。例子如下： ...【阅读全文】
【PERL】 perl脚本连接mysql命令含有中文字符解决办法
Barnett_3662 | 2016-02-03 12:01:49 | 阅读(1210) | 评论(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命令...【阅读全文】
【PERL】 perl的Redis模块常用命令解析
Barnett_3662 | 2016-02-02 10:08:07 | 阅读(1700) | 评论(0)
整个博客均为博主原创，转载请先联系~#以下均为博主学习笔记#redis简单介绍    Redis是一个高性能的key-value数据库    Redis支持主从同步。数据可以从主服务器向任意数量的从服务器上同步    Redis根本是使用内存存储    redis...【阅读全文】
【PERL】 已知三角形的三边求角度
杰克伯恩 | 2016-01-25 10:17:51 | 阅读(0) | 评论(0)
点击(此处)折叠或打开sub Ailsa {    my $PI = 3.1415926535897;    map {        my ( $A, $B, $C ) = @_[@$_];     &nb...【阅读全文】
【PERL】 不同序列特征文件归并分类
jhh130910 | 2015-11-26 20:41:33 | 阅读(720) | 评论(0)
#!/usr/bin/perl $example = <<e>A|c21852_g1f1XXXXXX>B|10011958mXXXXXX>C|311240XXXXXX>D|AT1G01880XXXXXX............E;open IN,"<FILE";<file";<rr.faa.muscle";open OUT,">result";while (){chomp;if(/^>/){ $key =$_;}else{$hash{$key}.=$_}}foreach $line(keys %hash){ chomp$line;  ...【阅读全文】
【PERL】 perl发信模块MailSender
snowtty | 2015-10-22 16:58:02 | 阅读(1670) | 评论(0)
perl发信模块MailSender这个模块基本实现了日常运维中常用的发信功能，比如多人邮件，抄送，密送，smtp认证，发送带附件的邮件，html格式的邮件等。首先，使用MailMsg方法发信 代码如下: #!/usr/bin/perl # # file  wo.pl # use strict; use warnings;use MailSender...【阅读全文】
【PERL】 perl pack和unpack的使用详解
bellsleep | 2015-10-04 20:50:48 | 阅读(890) | 评论(0)
perl pack和unpack的使用方法Pack 与unpack使用说明： pack可视为将一系列的片段的数值打包在一起，可用于对dev档案、socket、memory的读写，因为这些需要一块完整的memory，而且需要事先打包成特定格式；而unpack可以视为将将这些完整的 memory切割计算，取得我们所需要各部分的Variable。例子如下： ...【阅读全文】
【PERL】 perl pack和unpack的使用详解
bainanrain | 2015-08-20 22:57:00 | 阅读(2160) | 评论(0)
perl pack和unpack的使用方法Pack 与unpack使用说明： pack可视为将一系列的片段的数值打包在一起，可用于对dev档案、socket、memory的读写，因为这些需要一块完整的memory，而且需要事先打包成特定格式；而unpack可以视为将将这些完整的 memory切割计算，取得我们所需要各部分的Variable。例子如下： ...【阅读全文】
【PERL】 图论：查找购买某物品的顾客购买最多的其他物品
还看今早 | 2015-08-06 16:41:31 | 阅读(150) | 评论(0)
题目大意：有一个数组存储了多个顾客的购物清单。指定一个物品item1,求出购买了item1的顾客除了购买item1外，购买最多的物品。很实用的小题目。电商网站市场能看到。来源http://blog.chinaunix.net/uid-26750075-id-3370694.html 分析：简单的图论题目。首先把数组转成图的邻接表表示。实际就是求出到指定顶...【阅读全文】
【PERL】 perl-Gtk2编程－第三步 获取帮助信息
幸福非天赐 | 2015-04-24 15:10:52 | 阅读(2100) | 评论(0)
在“perl-Gtk2编程－第一步 安装软件” 中可以看到，perl-Gtk2是有相应的图形化组件帮助手册的，因此可以使用man Gtk2::组件名称 进行查询,如下命令： man -a  Gtk2::Window |tee a.txtGtk2::Window(3)                 ...【阅读全文】
【PERL】 测序序列N50值计算
jhh130910 | 2015-04-21 08:16:00 | 阅读(3620) | 评论(0)
#!/usr/bin/perl -w use strict;#use Perl::Tidy;#use Getopt::Long;my ($head,%h,$key,$len,@len_arr,$total,$num,$sub_count,$first);print "input your sequence file name,then press Enter!\n";$first=<STDIN>;open IN,"<$first";while (<IN>){ chomp; if(/^>/){ $head=$_;}else{$h{$head}.=$_}}#  ...【阅读全文】
【PERL】 linux socket实现机器间的通信(Perl)
丹京 | 2015-04-16 20:50:58 | 阅读(1000) | 评论(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会话就算完...【阅读全文】
【PERL】 Perl解决Wide character警告提示
Jack_Tan123 | 2015-04-07 00:17:12 | 阅读(1570) | 评论(0)
Perl在处理中文时经常出现Wide character警告，原因是编码格式问题，默认采用utf8就行了，在代码头部加入：use utf8;binmode(STDIN,':encoding(utf8)');binmode(STDOUT,':encoding(utf8)');binmode(STDERR,':encoding(utf8)');对于输出到文件时会继续报Wide characte警告，在输出到文件前关闭变量的uft8标志，用下面代...【阅读全文】
【PERL】 Perl 中字符编码转换
Jack_Tan123 | 2015-04-07 00:14:29 | 阅读(1480) | 评论(0)
use Encode;#gbk转utf-8$str =  encode("utf8",decode("gbk",$str));#gbk转utf-8方法二$str = encode_utf8(decode("gbk",$str));#utf-8转gbk$str = encode("gbk",decode("utf8",$str));#utf-8转gb2312$str = encode("gb2312",decode("utf8",$str));perl 只识别 UTF8编码的字符串(TK)...【阅读全文】

盛拓传媒简介 | 关于IT168 | 合作伙伴 | 广告服务 | 使用条款 | 投稿指南 | 诚聘精英 | 联系我们 | 法律声明 | 网站导航 | 往日回顾

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号：11010802020122 niuxiaotong@pcpop.com 17352615567
未成年人举报专区
广播电视节目制作经营许可证(京) 字第1234号 中国互联网协会会员

网络110 报警服务