http://search.cpan.org/~shlomif/Statistics-Descriptive-3.0612/lib/Statistics/Descriptive.pm use Statistics::Descriptive;my @a=(100,88,77,18,79,96,57,88,65,78,66,99); my $stat = Statistics::Descriptive::Full->new();$stat->add_data(@a); my $mean = $st

转自:http://blog.sina.com.cn/s/blog_4936c31d01011v8j.html 1. 均值 Matlab函数:mean >>X=[1,2,3] >>mean(X)=2 如果X是一个矩阵,则其均值是一个向量组.mean(X,1)为列向量的均值,mean(X,2)为行向量的均值. >>X=[1 2 3 4 5 6] >>mean(X,1)=[2.5, 3.5, 4.5] >>mean(X,2)=[2 5] 若要求整个矩

perl的map函数的使用: 语法 map EXPR, LIST map BLOCK LIST 定义和使用 对list中的每个元素执行EXPR或BLOCK,返回新的list.对每一此迭代,$_中保存了当前迭代的元素的值. 返回值 如果返回值存储在scalar标量中,则代表map()返回数组的元素个数: 如果返回值存储在list中,则代表map()函数的数组: 实例1 (将单词首字母大写) #!/usr/bin/perl -w@myNames = ('jacob', 'alexander', 'e

perl有引用的概念:一组数据实际上是另一组数据的引用.这些引用称为指针,第一组数据中存放的是第二组数据的头地址.引用的方式被用得相当普遍,特别是在面向对象的模块.函数的参数传递等常见.但perl对每个引用都是以一个普通的变量来定义的,有时候,如果数据的架构比较复杂,我们可能会困惑于某个变量所指向的地址的实际内容是什么?perl的ref函数就可以帮助我们. 一.说明从perl自带的帮助说明可以了解相关的用法: 引用 $ perldoc -tf refref EXPRref     Returns

用Python求均值与方差,可以自己写,也可以借助于numpy,不过到底哪个快一点呢? 我做了个实验,首先生成9百万个样本: nlist=range(0,9000000) nlist=[float(i)/1000000 for i in nlist] N=len(nlist) 第二行是为了让样本小一点,否则从1加到9百万会溢出的. 自己实现,遍历数组来求均值方差: sum1=0.0 sum2=0.0 for i in range(N): sum1+=nlist[i] sum2+=nlist[i]

Perl字符串处理函数 0.函数名 index 调用语法position=index(string,substring,position); 解说返回子串substring在字符串string中的位置,如果不存在则返回-1.参数position是可选项,表示匹配之前跳过的字符数,或者说从该位置开始匹配. 1.函数名 rindex 调用语法position=rindex(string,substring,position); 解说与index类似,区别是从右端匹配. 2.函数名 length 调用

对于某些字符串,需要输入为特定的格式,通过sprintf可以很方便的完成,不需要专门进行其他处理. 转载 perl中sprintf函数的使用方法.

一.图片读取和显示 import cv2 as cv # 图片读取cv.imread(img_path) car_img = cv.imread("car1.png") # 图片显示cv.imshow(window_name,img_mat) cv.imshow('car1', car_img) cv.waitKey(0) # 图片写入cv.imwrite(save_path,img_mat) cv.imwrite('car1_bk.jpg',car_img) 二.色彩空间转换 __a

Perl 时间日期 Perl中处理时间的函数有如下几种:    1.time() 函数:返回从1970年1月1日起累计的秒数    2.localtime() 函数:获取本地时区时间(多用这个)    3.gmtime() 函数: 获取格林威治时间        结构体:localtime() 函数,该函数在没有参数的情况下返回当前的时间和日期.以下 9 个符号代表不同的时间日期参数:$sec        代表秒数[0,59]$min        代表分数[0,59]$hour      

本文和大家重点讨论一下Perl split函数的用法,Perl中的一个非常有用的函数是Perl split函数-把字符串进行分割并把分割后的结果放入数组中.这个Perl split函数使用规则表达式(RE),如果未特定则工作在$_变量上. Perl split函数 Perl中的一个非常有用的函数是Perl split函数-把字符串进行分割并把分割后的结果放入数组中.这个Perl split函数使用规则表达式(RE),如果未特定则工作在$_变量上. Perl split函数可以这样使用: $inf

//文件 /* =============================================================== 题目:从文本文件"high.txt"中取出运动员的身高数据,并计算平均值,方差和标准差. =============================================================== */ #include<stdio.h> #include <math.h> #define hh pr

转载至 perl中grep的详细用法 grep有2种表达方式: 1 grep BLOCK LIST 2 grep EXPR, LIST BLOCK表示一个code块,通常用{}表示:EXPR表示一个表达式,通常是正则表达式.原文说EXPR可是任何东西,包括一个或多个变量,操作符,文字,函数,或子函数调用. LIST是要匹配的列表. grep对列表里的每个元素进行BLOCK或EXPR匹配,它遍历列表,并临时设置元素为$_.在列表上下文里,grep返回匹配命中的所有元素,结果也是个列表.在标量上下文

1. tr 转换 转换不是替换(tr///==y///) tr/searchlist/replacementlist/用于查找某个一个字符串,并用replacementlist替换,可以使用正则表达式 my $str="this Is A teST"; $str=~tr/a-z/A-Z/; 把小写转换为大写 会输出THIS IS A TEST s///  options g 全局替换 i 忽略大小写 my $str3="this is a test\n"; $str

1.$position = index(string,substring,skipchars): 该函数返回子串substring在字符串string中的位置,如果不存在,则返回-1:参数skipchars是可选参数,表示查找之前跳过的字符数,即:从该位置处开始查找: 2.rindex(string,substring,skipchars):功能与index()类似,不同的是它从string的右端开始查找: 3.$Len = length(string):求字符串的长度: 4 . $offset

use Time::HiRes qw(time);use POSIX qw(strftime); my $t = time;my $date = strftime "%Y%m%d %H:%M:%S", localtime $t;$date .= sprintf ".%03d", ($t-int($t))*1000; # without rounding print $date, "\n"; # cat > ttt.pl# perl ttt.

__author__ = 'dell' import Pmf import matplotlib.pyplot as pyplot pmf = Pmf.MakePmfFromList([1, 2, 2, 3, 5]) print 'Mean by Pmf ', pmf.Mean() print 'Var by Pmf ', pmf.Var() def PmfMean(pmf): t = [x * v for x, v in pmf.Items()] res = sum(t) return res

官方网址:http://search.cpan.org/~stbey/Date-Calc-6.3/lib/Date/Calc.pod#___top use Date::Calc qw( Days_in_Year Days_in_Month Weeks_in_Year leap_year check_date check_time check_business_date Day_of_Year Date_to_Days Day_of_Week Week_Number Week_of_Year Mo

$side = uc $attrs[0]; #把attrs[0]转换成大写,然后给side变量赋值. $gender = lc $attrs[1]; #把attrs[1]转换成小写,然后给gender赋值.

转自:http://www.jbxue.com/article/14854.html 发布:脚本学堂/Perl  编辑:JB01   2013-12-20 10:20:01  [大 中 小] 本文介绍下,perl编程中的map函数的用法,分享一些per map函数的例子,有需要的朋友参考下. 本节内容: perl map函数的使用. 语法 map EXPR, LIST map BLOCK LIST   定义和使用 对list中的每个元素执行EXPR或BLOCK,返回新的list.对每一此迭代,$

本文和大家重点讨论一下如何读写Perl文件,主要包括打开.关闭Perl文件,读写Perl文件,Perl文件的状态,命令行参数和打开管道六部分内容,希望通过本文的学习你对读写Perl文件有深刻的认识. 读写Perl文件 一.打开.关闭Perl文件 语法为open(filevar,filename),其中filevar为Perl文件句柄,或者说是程序中用来代表某Perl文件的代号,filename为Perl文件名,其路径可为相对路径,亦可为绝对路径.open(FILE1,"file1");