搜索博文结果_ChinaUnix博客

博客首页博客专家往日推荐博客文集

热搜： H3C 存储 C# 嵌入式项目管理 MongoDB LINUX 移动开发

博客首页〉搜索结果

按类别查询搜索结果

操作系统程序设计数据库热点技术综合架构与运维移动开发与应用 Web前端

关于关键词的检测结果，共 69 条

【PERL】 perl:好用的localtime函数。

starb6 | 2019-10-22 11:15:20 | 阅读(1580) | 评论(0)

localtime EXPRlocaltime引用方法：my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime;$sec,$min,$hour : seconds, minutes, and hours of the specified time.$mday : the day of the month $mon &n...【阅读全文】

【PERL】匿名函数

Jack_Tan123 | 2017-07-11 08:11:19 | 阅读(1170) | 评论(0)

点击(此处)折叠或打开#! perl -wuse 5.014;my $val = 100;#1. 这里是调用函数的入口&foo( #2 匿名函数当作一个参数传递给foo sub {...【阅读全文】

【PERL】 wget 下载参数

snowtty | 2016-10-16 14:20:01 | 阅读(1160) | 评论(0)

alias wget='wget --retry-connrefused --waitretry=1 --read-timeout=20 --timeout=15 -t 0 --continue --user-agent="Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/45.0.2454.101 Safari/537.36"'【阅读全文】

【PERL】 perl的Sys::Syslog模块(openlog,syslog,closelog函数,setlogsock)-自定义日志

Barnett_3662 | 2016-01-26 21:47:51 | 阅读(1430) | 评论(0)

自定义日志模块(Sys::Syslog)1、语法:use Sys::Syslog; # all except setlogsock(), or:use Sys::Syslog qw(:DEFAULT setlogsock); # default set, plus setlogsock()增强版use Sys::Syslog qw(:standard :macros);...【阅读全文】

【PERL】 sprintf函数

杰克伯恩 | 2016-01-25 10:39:45 | 阅读(0) | 评论(0)

http://blog.csdn.net/jallin2001/article/details/4674314;http://www.360doc.com/content/14/1229/14/12090552_436620848.shtml对于某些字符串，需要输入为特定的格式，通过sprintf可以很方便的完成，不需要专门进行其他处理。perl中的sprintf的用法如下：sprintf format, list;format 为格式，list为处理列...【阅读全文】

【PERL】简单求素数

杰克伯恩 | 2016-01-25 09:51:29 | 阅读(0) | 评论(0)

点击(此处)折叠或打开(1 x ++$_) =~ /^1?$|^(11+?)\1+$/ || print "$_\n" while $_ < 100 #求素数小骆驼这样写：\1反向引用的是模式匹配期间得到的结果，而$1则是模式匹配结束后对得到的捕获内容的索引。...【阅读全文】

【PERL】 read 函数 substr 函数

杰克伯恩 | 2016-01-25 09:06:33 | 阅读(0) | 评论(0)

http://7567567.blog.51cto.com/706378/629496【阅读全文】

【PERL】去除重复行（依据特征保留一行）

jhh130910 | 2015-11-26 20:39:03 | 阅读(950) | 评论(0)

#!/usr/bin/perl #open IN,'<','FILE';open OUT,">Result";while (<IN>){chomp;@arr = split(/\s+/,$_);$title = shift @arr;$num = pop @arr;$other = join("\t",@arr); if($hash{$title}){ if ($num > $hash{$title}){ &nbs...【阅读全文】

【PERL】 Perl seek 函数重新定位文件读取位置

huaius | 2015-11-09 23:45:59 | 阅读(2170) | 评论(0)

我们在通过文件句柄读取文件内容的时候，一般都是顺序读取的。其实 Perl 中提供了改变读取位置的方法，就是 seek 函数。seek 函数的使用方法是：seek FILEHANDLE,POSITION,WHENCE其中，position 代表偏移的字节数，whence 有三种选择，分别是SEEK_SET, 也就是 0，代表文件开头SEEK_CUR, 也就是 ...【阅读全文】

【PERL】 perl 抓包分析数据包

snowtty | 2015-08-09 23:19:55 | 阅读(1520) | 评论(0)

#!/usr/bin/perluse Net::TcpDumpLog;
use NetPacket::Ethernet;
use NetPacket::IP;
use NetPacket::TCP;
$file=$ARGV[0];
my $log = Net::TcpDumpLog->new();
$log->read("$file");foreach my $index ($log->...【阅读全文】

【PERL】上海长宁区律师根据本条规定

zhiyue5654 | 2015-03-02 18:31:37 | 阅读(600) | 评论(0)

被宣告缓刑的犯罪分子。是指按照公安机关的规定，神宗时裁撤审刑院，各刑又有地理远近之分和年限多少之别。处五年以下有期徒刑或者拘役。（二）默示形式即行为人不直接表示其内心意思，一切公民都有权参加制定法律和评论法律的结论。根据本条规定,上海长宁区律师，通过非法手段获取指令或者许可证明后，法律没有规定的...【阅读全文】

【PERL】票据丧失时

zhiyue5654 | 2015-02-07 13:05:07 | 阅读(480) | 评论(0)

案件事实不清证据不足的不应当或者不宜适用简易程序的其他情形转为普通程序审理的案件审理期限应当从决定转为普通程序之日起计算章审程序百地方各级人民法院在宣告审判决裁定时应当告知被告人自诉人及其法定代理人不服判决裁定的有权在法定期限内以书面或者口头形式通过本院或者直接向上级人民法院提出上诉被告人的辩护人...【阅读全文】

【PERL】 perldoc系列之perllol——Perl对嵌套数组的处理

qshllxfx | 2015-01-07 15:55:11 | 阅读(870) | 评论(0)

对数组的数组的声明和访问创建一个数组的数组（有时候不这么叫，而是不太准确的称为列表的列表）是非常简单的。它简单易懂，而且几乎所有用到的知识都有助于将来处理更复杂的数据结构。数组的数组，顾名思义，就是一个数组@AoA，但是可以使用两个下标，就像$AoA[3][2]。下面是对这种数组的声明：&nbs...【阅读全文】

【PERL】 perldoc系列之perldsc——Perl数据结构使用手册(2)

qshllxfx | 2015-01-07 15:53:42 | 阅读(730) | 评论(0)

代码范例下面给出了一些简短的代码范例，用于说明对各种数据结构的操作。注释很少，将来或许会有吧。ARRAYS OF ARRAYSDeclaration of an ARRAY OF ARRAYS @AoA = ( [ "fred", "barney" ], [ "george", "jane"...【阅读全文】

【PERL】 perldoc系列之perldsc——Perl数据结构使用手册(1)

qshllxfx | 2015-01-07 14:28:39 | 阅读(540) | 评论(0)

概要在5.0发布之前，Perl最大的一个缺憾就是无法处理复杂的数据结构。虽然语言本身并不支持，还是有许多用于创新的程序员尝试来实现这一特性。然而这必竟是很困难的事情。某些情况下，或许可以从awk中借用类似$m{$AoA,$b}的语法，这里的键看上去更像是”$AoA$b”这种字符串的拼接。但是采用这种形式，做遍历和排序就...【阅读全文】

【PERL】撤销权的行使范围以债权人的债权数额为限

zhiyue5654 | 2014-12-30 11:36:50 | 阅读(830) | 评论(0)

债权人撤销权的构成要件：①债权人的债权合法、有效（注意：无须到期）。②债务人负担债务之后，实施了法律规定的八种行为中的一种或数种，并因此损害债权人的债权。③若债务人的行为为有偿，需要受益人或受让人具有恶意。（2003－3－7）周某与林某协议离婚时约定，孩子归女方林某...【阅读全文】

【PERL】数罪中最高刑期以上

zhiyue5654 | 2014-11-29 11:51:48 | 阅读(770) | 评论(0)

　　(1)罚金　　强制犯罪分子或者犯罪单位向国家缴纳一定数额金钱的一种刑罚。　　(2)剥夺政治权利　　剥夺犯罪分子参加国家管理和政治活动权利的一种刑罚。剥夺政治权利是剥夺下列权利：(1)选举权和被选举权；(2)言论、出版、集会、结社、游行、示威自由的权利；(3)担任国家机关职务的权利；(4)担任国有公司、企业、事业...【阅读全文】

【PERL】依据A文件内容提取B文件内容（条件匹配）

jhh130910 | 2014-09-28 16:49:01 | 阅读(700) | 评论(0)

#!/usr/bin/perl -w#use strict;open OUT,">mac";print "please input your file name(match target),then press Enter.\n";while (){ chomp; if (/>/){ $key=$_; my @m...【阅读全文】

【PERL】依据A文件数据抓取B文件中的序列

jhh130910 | 2014-09-28 15:51:04 | 阅读(890) | 评论(0)

#!/usr/bin/perl -w$|=1;print "input your genome sequence,then press Enter!\n";my $seq=<STDIN>;open FASTA,"$seq" or die "can not open FASTA file,$!";print "input your gff file name,then press Enter!\n";my $gff=<STDIN>;open GFF,"$gff" or die "can not open GFF file,$!";open OUT,">gene_sequence"...【阅读全文】

【PERL】（FASTA格式）依据表头信息提取数据

jhh130910 | 2014-09-27 21:42:21 | 阅读(1010) | 评论(0)

问题描述：比如我的数据（如下），我现在想提取表头里第二列数字小于99的序列，以下perl代码可以完成这个工作。>example 100 other tail 1 NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN >example 99 other tail 2 NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN...【阅读全文】

首页
<<
1
2
3
4
>>
末页

网络110 报警服务