#PHP
数字转化为人民币大写
<?php function numTrmb($num) { $d = array("零", "壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", …
#PHP
生成指定个数的随机红包
<?php $total=20;//红包总金额 $num=10;// 分成10个红包，支持10人随机领取 $min=0.01;//每个人最少能收到0.01元 $redpack…
#PHP
获取本周一，本周日，上周一，上周日，上月初，月底
<?php class datefl{ /** * 本周一 * @param int $timestamp 某个月的某一个时间戳，默认为当前时间 * @param strin…
#Perl
使用Perl从UniProt中下载蛋白质序列
use strict; use warnings; use LWP::Simple qw(get); my $seq = downloadUniprot("P31749"); pr…
#Perl
可以在新浪网盘里面批量获取搜索内容的地址及下载文件
use LWP::UserAgent; use HTML::TreeBuilder; use LWP::Simple; use URI; use Encode; @list_url…
#Perl
获取ab测试结果的rps
while (<>){ printf("%20s\t",$1) if /Server Software:\s+(.*?)\n/; printf("%10d\n",$1)…
#Perl
$& $` $' 格式匹配
#!/usr/local/bin/perl while ($inputline =(<>) ) { while ($inputline = ~/\b[A-Z]\S+/g…
#Perl
Perl快速入门
#!/usr/bin/env perl # # 基本语法 # ;用于语句结束符 # #用于注释 # ""用于表示字符串，变量可以在""中被替换，如： $var = "world."…
#Perl
哈希的运用
print "请输入哈希的键值，输入结束后将统计每个哈希键输入的次数:\n"; while($line=<STDIN>){ chomp($line); if(exist…
#Perl
Perl批量执行Linux安装程序和脚本
#!/usr/bin/perl #use Cwd; sub ExecuteAll(){ local($dir) = @_; opendir(DIR,"$dir"|| die "ca…
#Perl
Perl 的 DBI connect() 方法的使用
$dbh= DBI->connect("dbi:<RDMS>:<database>","<username>","<password…
#Perl
数组多叉树递归遍历
sub find_max_nest{ my($arr_name)=@_; $nest_counter++; if($nest_counter>$max_nest){ $max…
-
如遇问题，请联系客服联系客服请注明来意 高端主题开发
