-
perl练习0001
所属栏目：[大数据] 日期：2020-12-16 热度：133
-
perl查看文件，提取指定信息输出到文件
所属栏目：[大数据] 日期：2020-12-16 热度：98
查看结果：[详细]
-
Perl 最佳实践(节选) --- 15
所属栏目：[大数据] 日期：2020-12-16 热度：76
? ? 第十五章：对象 ? ? ? 壹玖零. 把面向对象作为选择，而不是默认的。 ? ? ? 壹玖壹. 使用适当准则以选择面向对象。 ? ? ? 壹玖贰. 不要使用伪散列（ pseudohash ）。 ? ? ? 壹玖叁. 不要使用受限散列（ restricted hash ）。 ? ? ? 壹玖肆. 一定要使用完[详细]
-
the perl script of Tajima's D (backups)
所属栏目：[大数据] 日期：2020-12-16 热度：178
#!/usr/bin/perluse strict;use warnings;=c---------------------------------------this perl script is edited to compute tajima's Dthe origin file path is :/ifs5/ST_COMG/USER/yanzengli/tajima/data/ChrB01/ChrB01.bb.snp/ifs5/ST_COMG/USER/yanzen[详细]
-
Perl 最佳实践(节选) --- 16
所属栏目：[大数据] 日期：2020-12-16 热度：110
? ? 第十六章：类层次 ? ? ? 贰零伍. 不要直接操作那些基类。 ? ? ? 贰零陆. 使用分布式封装对象。 ? ? ? 贰零柒. 绝不使用单自变量形式的 bless 。 ? ? ? 贰零捌. 以标签值传递构造函数自变量（使用散列引用）。 ? ? ? 贰零玖. 按类名区分要给基类的自变量[详细]
-
perl格式化输出 范例
所属栏目：[大数据] 日期：2020-12-16 热度：180
-
perl引用与格式化输出
所属栏目：[大数据] 日期：2020-12-16 热度：104
? 结果演示： ?[详细]
-
Perl 最佳实践(节选) --- 17
所属栏目：[大数据] 日期：2020-12-16 热度：112
? ? 第十七章：模块 ? ? ? 贰壹柒 . 先设计模块的接口。 ? ? ? 贰壹捌 . 把原有代码变成 inline 。 把重复的代码放到子程序。 把重复的子程序放到模块。 ? ? ? 贰壹玖 . 使用三部分式的版本编号。 ? ? ? 贰贰零 . 程序化地实施你的版本需求。 ? ? ? 贰贰壹 .[详细]
-
perl index使用
所属栏目：[大数据] 日期：2020-12-16 热度：150
-
perl: warning: Setting locale failed
所属栏目：[大数据] 日期：2020-12-16 热度：109
perl: warning: Setting locale failed perl: warning: Setting locale failed. perl: warning: Please check that your locale settings: ? ? ? ? LANGUAGE = "zh_CN:zh", ? ? ? ? LC_ALL = (unset), ? ? ? ? LC_MESSAGES = "zh_CN.UTF-8", ? ? ? ? LC_COLL[详细]
-
Perl 最佳实践(节选) --- 18
所属栏目：[大数据] 日期：2020-12-16 热度：187
? 第十八章：测试和调试 ? ? ? 贰贰柒. 先写测试案例。 ? ? ? 贰贰捌. 以 Test::Simple 或 Test::More 把你的测试案例标准化。 ? ? ? 贰贰玖. 利用 Test::Harness 将你的测试集标准化。 ? ? ? 贰叁零. 编写失败的测试案例。 ? ? ? 贰叁壹. 可能的和不可能的[详细]
-
perl 压力测试脚本
所属栏目：[大数据] 日期：2020-12-16 热度：143
收到一个接收get请求的压力测试的需求， require LWP::UserAgent;##LWP是perl的http请求模块 use strict; use POSIX qw(strftime);##输出时间 use threads; ##threads~~~ my $addr = "http://192.168.244.128/"; my @threads; ? ?? sub ? getDRqureyURL() ??[详细]
-
在perl中简单的正则匹配
所属栏目：[大数据] 日期：2020-12-16 热度：92
（一）、在 perl 中关于元字符的匹配 元字符 代表含义 点号（ .） 匹配处换行符以外的任何单字符 星号（*） 匹配前面的内容零次或多次 反斜线 屏蔽元字符的特殊含义。代表，.匹配点号 .* 匹配所有的字符串 加号（+） 匹配前一个条目一次以上 问号（?）[详细]
-
Perl_获得字符串长度_length($var)
所属栏目：[大数据] 日期：2020-12-16 热度：71
Perl_获得字符串长度_length($var) ? 例： my $var='';??#此处'与"括着的颜色一样 my $var1=""; my $len=length($var); my $len1=length($var1); print $len."t".$len1."n"; #输出1t1n $var='n';??#此处'与"括着的颜色不一样； $var1="n"; $le[详细]
-
Perl_读入输出gz压缩文件_gzip_gunzip
所属栏目：[大数据] 日期：2020-12-16 热度：66
Perl_读入输出gz压缩文件_gzip_gunzip my $fil="/dir/fil.gz"; open IN,"gunzip -c $fil |" or die $!; open IN,"gzip -dc $fil |" or die $!; my $out="/dir/out.gz"; open OUT,"| gzip $out" or die $!;[详细]
-
Perl_控制输出小数点位数_sprintf
所属栏目：[大数据] 日期：2020-12-16 热度：192
Perl_控制输出小数点位数_sprintf ? 例 my $var=123.454789; $var=sprintf "%.2f",$var; print $var."n"; #123.45 例 my $var=123.455789; $var=sprintf "%.2f",$var; print $var."n"; #123.46 默认四舍五入 例： 输出百分比： my $var1=0.456789; $var1=s[详细]
-
Perl_截取字符串_substr($string,0,4)
所属栏目：[大数据] 日期：2020-12-16 热度：83
Perl_截取字符串_substr($string,4) ? my $string="123456789"; my $b=substr($string,4); print $b; #1234 #0代表起始位置，也就是1，而4代表取多少个。 my $b=substr($string,-10); #表示取序列倒数十个 my $b=substr($string,-9,5); #表示从后往前数9个的[详细]
-
Perl_哈希数组_$hash{$key}[0]
所属栏目：[大数据] 日期：2020-12-16 热度：167
Perl_哈希数组_$hash{$key}[0] ? my $key="A"; my $two=1; my $three=2; my $four=3; my $five=4; my $six=5; my %hash; $hash{$key}[0]=$two; $hash{$key}[1]=$three; $hash{$key}[2]=$four; $hash{$key}[3]=$five; $hash{$key}[4]=$six; print $hash{$key}[详细]
-
Perl_改变读入终止符号_$/
所属栏目：[大数据] 日期：2020-12-16 热度：144
Perl_改变读入终止符号_$/ 默认为n $/="";[详细]
-
Perl_分割字符串_split(/\t/,$_,4)
所属栏目：[大数据] 日期：2020-12-16 热度：166
Perl_分割字符串_split(/t/,$_,4) ? cat file1 At2t7tD Bt4t2tC Dt2t4tE ? 例 open IN,"/ifs1/ST_MED/USER/oumin/test/file1" or die ; while(IN) { ??? chomp; ??? my @array=split(/t/,4); ??? foreach (@array) ??? { ??????? print $_."!!!";[详细]
-
Perl_默认变量_$_and_@_
所属栏目：[大数据] 日期：2020-12-16 热度：151
Perl_默认变量_$_and_@_ ? cat file1 At2t7tD Bt4t2tC Dt2t4tE ? 例 my $fil=/dir/file1; open IN,$fil || die "$!n"; while(IN) { ??? chomp; ??? split(/n/,$_,2); ??? print $_[0]; ??? print "!!!"; ??? print $_[1]; ??? print "n"; } A!!![详细]
-
Perl_标准输入_STDIN
所属栏目：[大数据] 日期：2020-12-16 热度：106
Perl_标准输入_STDIN ? #!usr/bin/perl -w use strict; my @a=STDIN;??#停止输入的时候按ctrl+D my $out="/dir/out"; open OUT,"$out" || die "$!n"; foreach $a (@a) { ?? print OUT "$a"; }[详细]
-
Perl_传入值or路径or文件名等_@ARGV
所属栏目：[大数据] 日期：2020-12-16 热度：53
Perl_传入值or路径or文件名等 _@ARGV ? die "usage: $0 [input1] [input2] [out]n" unless (@ARGV == 3); open IN,"$ARGV[0]" || die "$!n"; open IN1,"$ARGV[1]" || die "$!n"; open OUT," $ARGV[2]" || die "$!n";[详细]
-
perl中s///和tr///的区别
所属栏目：[大数据] 日期：2020-12-16 热度：145
转载自 ? wubingran 最终编辑 ? wubingran s///: 替换运算符。 s/ searchpattern / repalcement / ;默认搜索$ _，找出searchpattern，并且用replacement来替换整个匹配的正则表达式。该运算符返回匹配的数量或进行替换的数量，如果没有进行任何匹配，则返回0[详细]
-
Perl 与 Python 之间的一些异同
所属栏目：[大数据] 日期：2020-12-16 热度：131
关于 Perl 与 Python 的起源和特点 Perl 是 Practical Extraction and Report Language 的简称，由 1987 年 Larry Wall 创建，最初的目的是为了在 UNIX 上方便处理报表，经过长期的发展已经成为一种全功能的程序设计语言，当前最新的版本为 Perl5.14.1，Perl[详细]
