按类别查询搜索结果
关于关键词 的检测结果,共 39
Jack_Tan123 | 2017-07-10 13:19:29 | 阅读(1110) | 评论(0)
Perl的优势之一是其有庞大的CPAN库,安装这些库有很多方法.一、通过专用的模块安装模块来安装模块优点是可以解决依赖问题,有三个模块,分别是cpan,cpanp,cpanm.1. CPAN模块。cpan是一个重量级选手。RedHat下安装cpan模块: yum install perl-CPANcpan可以通过两个方式安装模块:直接安装# cpan lwp通过cp...【阅读全文】
perltest | 2016-10-30 18:22:29 | 阅读(850) | 评论(0)
医保相关文档【阅读全文】
perltest | 2016-10-30 18:13:51 | 阅读(950) | 评论(0)
在我们医院的医保实施过程中,需要实现这样的功能:医保结算电脑需要在命令行(不是浏览器)通过CGI和服务器通信,上传sql语句,把查询到的结果通过cgi传回来。【阅读全文】
perltest | 2016-10-30 17:57:39 | 阅读(960) | 评论(0)
在安装了Tk,之后,遇到的第一个问题是视窗中中文显示乱码。

这个问题在网上查了一下,说的不清楚,自己试了一下解决起来很简单。【阅读全文】
perltest | 2016-10-30 17:31:42 | 阅读(900) | 评论(0)
? 用Perl开发视窗软件,最简单的方法是用Tk。
?
? 在Win7系统,Strawberry Perl里,要安装Tk的方法是:
? cpan> install Tk
? 回车就可以了。【阅读全文】
perltest | 2016-08-23 17:16:46 | 阅读(1340) | 评论(0)
医保提供的sei.dll文件,在调用的时候有时会发生弹窗。采用CGI、PHP、ASP等方式编写的医院管理,都会有这样的问题。【阅读全文】
perltest | 2016-08-16 21:25:10 | 阅读(1470) | 评论(0)
在见到医保提供的sei.dll文件之前,在网上查了一下,Perl可以通过Win32::API模块对dll文件进行调用。【阅读全文】
perltest | 2016-08-15 17:22:34 | 阅读(2320) | 评论(0)
?医院加入医保,牵扯到很多方面的情况,我通过在itbpu上的博客空间,把遇到的情况写出来,其中最核心的问题,是Perl如何正确处理医保dll文件。
?今天是第一个话题,比较简单,就是医院要加入地方医保,医院服务端由Linux改为Windows。
?
?【阅读全文】
zhiyue5654 | 2015-02-17 21:28:52 | 阅读(560) | 评论(0)
法律就会给予救济,上海婚姻律师;或者是法律以某种方式确认的义务的履行。在依照其他法律规定对犯罪人判处刑罚时,即在一定范围、一定限度内对刑法总则的有关规定作出修改补充时,"[5] 英国普通法法院有自己特殊的诉讼程序. 在普通法法院事实上已发展成为具有一般管辖权的法院后,对于符合减刑条件的犯罪分子,第二类是属于...【阅读全文】
sxou27 | 2015-01-29 09:16:08 | 阅读(1070) | 评论(0)
内容转载,用于温故知新用,如有打扰,还请告知!【阅读全文】
zhiyue5654 | 2015-01-14 22:07:56 | 阅读(500) | 评论(0)
 Where fter the pplint hs stte opinions or me retifitions the ministrtive eprtment for ptent uner the Stte ounil still onsiers the pplition not in onformity with ny item in the preeing prgrph the pplition shll e rejete  除专利申请文件外申请人向国务院专利行政部门提交的与专利申请有...【阅读全文】
qshllxfx | 2015-01-07 15:55:11 | 阅读(860) | 评论(0)
对数组的数组的声明和访问创建一个数组的数组(有时候不这么叫,而是不太准确的称为列表的列表)是非常简单的。它简单易懂,而且几乎所有用到的知识都有助于将来处理更复杂的数据结构。数组的数组,顾名思义,就是一个数组@AoA,但是可以使用两个下标,就像$AoA[3][2]。下面是对这种数组的声明:&nbs...【阅读全文】
qshllxfx | 2015-01-07 14:27:36 | 阅读(520) | 评论(0)
perlreftut - Mark's very short tutorial about referencesMark写的一篇关于引用的简短入门 概要Perl5的一个非常重要的新特性就是能够处理复杂的数据结构,像多维数组和嵌套散列。Perl5是通过引入一个称为“引用”的概念来支持这些特性的,可以说引用是Perl处理复杂的结构化的数据...【阅读全文】
snowtty | 2014-12-07 16:58:32 | 阅读(3120) | 评论(0)
php判断是否为中文正则表达式大全 <?php$str="aaa";if(!eregi("[^\x80-\xff]","$str")){echo "是";}else{echo "不是";}?><?$str = "中国";echo $str;echo "<hr>";//if (preg_match("/^[".chr(0xa1)."-".chr(0xff)."]+$/", $str)) { //只能在GB2312情况下使用if (preg_match("/^[\x7f-\xff]+$/"...【阅读全文】
frozenlaza | 2014-11-18 18:13:19 | 阅读(0) | 评论(0)
有文件tree.txt,内有某目录下的所有子目录+文件列表(使用windows tree命令得到)现在手头有文件名列表,想删除掉tree.txt中,列表里的文件名不存在,并且行中包含.xls的行最后将处理后的tree.txt输出到out.txt中。点击(此处)折叠或打开#!/usr/bin/perl#RegReadWrite.pl...【阅读全文】
frozenlaza | 2014-11-18 18:08:40 | 阅读(0) | 评论(0)
适用于一个目录下有多个文件,想删掉其中的大部分,只保留一小部分先把这一小部分文件名保存到一个文本in.txt,然后读入该文本,递归指定目录找到每个文件名,与in.txt所记载的文件名匹配,决定是否删除该文件。点击(此处)折叠或打开#!/usr/bin/perl#RegDelFile.pl...【阅读全文】
jhh130910 | 2014-09-28 16:51:47 | 阅读(1360) | 评论(0)
#!/usr/bin/perl -wuse strict;system ("../samtools view -b -S 1a.sam >1a.bam");system ("../samtools view -b -S 1b.sam >1b.bam");system ("../samtools view -b -S 1c.sam >1c.bam");system ("../samtools view -b -S 1d.sam >1d.bam");system ("../samtools view -b -S 2a.sam >2a.bam");system ("../samtool...【阅读全文】
jhh130910 | 2014-09-28 14:43:46 | 阅读(5320) | 评论(0)
#!/usr/bin/perl -w  #使用方法:perl transfer.pl file.gb ##文件的格式有三种$inputfile="<id.gb";$format1="genbank";$outputfile=">id.fasta";$format2="fasta";use Bio::SeqIO;         $in = Bio::SeqIO->new(-file => "$inputfile" ,    ...【阅读全文】
jhh130910 | 2014-09-27 21:42:21 | 阅读(1010) | 评论(0)
问题描述:比如我的数据(如下),我现在想提取表头里第二列数字小于99的序列,以下perl代码可以完成这个工作。>example 100 other tail  1   NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN >example 99 other tail  2   NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN...【阅读全文】
我还是小小明 | 2014-09-18 10:36:23 | 阅读(1850) | 评论(0)
use strict;my @list;$list[0][0]="s";$list[0][1]="3";$list[1][0]="d";$list[1][1]="4";$list[2][0]="w";$list[2][1]="2";$list[3][0]="h";$list[3][1]="0";$list[4][0]="j";$list[4][1]="9";@list = sort{$a->[1] <=> $b->[1]} @list;for(@list){    print $_,' ' for @{$_};  &nb...【阅读全文】