-
一道关于停车计费的问题
所属栏目：[大数据] 日期：2020-12-16 热度：127
程序允许30分钟，期间要求用户输入来模拟车辆进入、出去的行为 输入的内容为一串字符串，每个不同的字符串代表一辆车. 纪录所有车每次进出的时间，计算时间、次数和价格. 价格依照价格表，阶梯定价：头10分钟5元，超过10分钟的每分钟5元 程序运行30分钟自动[详细]
-
perl语言
所属栏目：[大数据] 日期：2020-12-16 热度：191
最近接到一个任务是这样的，一台Solaris服务器上需要运行一个脚本，每天统计MySQL数据库中的数据并生成报表。本来这是一个可以就事论事的小项目，但是为了以后的灵活和可扩展性，我设计了一个使用XML做统计模版配置的方案。由于在Bash下不太好实现XML的访问[详细]
-
探索Perl的File::Find模块
所属栏目：[大数据] 日期：2020-12-16 热度：103
如果你具有任何UNIX方面的经验，你自然就会发现你需要用到 find 命令，这个命令对在整个文件系统中搜索文件名十分有用，特别是你可以使用外卡来匹配文件名并循环地穿过任何的目录结构（许可情况下）。UNIX的 find 命令可以对找到的文件执行其他的命令。 Perl[详细]
-
perl中的foreach结构
所属栏目：[大数据] 日期：2020-12-16 热度：168
perl中的foreach结构 ?首先语法 foreach $rock(qw /bedrock slate lava/){ ?????? $rock="t$rock"; ?????? $rock .="n"; } ?Foreach 从列表（数组）的第一个元素一直循环执行到最后一个元素，一次迭代一个。控制变量（本例中为$rock）每一次迭代从列表中取[详细]
-
全面认识Perl进程处理函数
所属栏目：[大数据] 日期：2020-12-16 热度：125
本文和大家重点学习一下Perl进程处理函数的概念，这里主要包括Perl进程启动函数和Perl进程终止函数两部分内容，希望本文的介绍能让你有所收获。 Perl进程处理函数 1、Perl进程处理函数中Perl进程启动函数 函数名eval 调用语法eval(string) 解说将string看作P[详细]
-
perl中==操作和eq操作区别
所属栏目：[大数据] 日期：2020-12-16 热度：97
Quoted from perldoc: Binary "==" returns true if the left argument is numerically equal to the right argument.?? Binary "eq" returns true if the left argument is stringwise equal to the right argument.?? 实际上也就是说==返回是是否数值相等[详细]
-
perl 函数
所属栏目：[大数据] 日期：2020-12-16 热度：186
1、chomp ： 如果字符串结尾有换行符，chomp 可以去掉它。这基本上就是它能完成的所有功能 2、last： 同c语言的break 3、my loca l 例如： subA local变量，可以被A子程序调用，my不行 4、$name=; 接收键盘输入（可以让输出结果持续显示） 5、@array =(1,3,5[详细]
-
perl 模式匹配
所属栏目：[大数据] 日期：2020-12-16 热度：148
1、多字符匹配 ①? *匹配0个、1个或多个相同字符 ②？匹配0、1个字符 ③+意味着1或多个相同的字符 ④{min,max}匹配最小min最多max个数的字符 2、（abd）匹配abc字串 3、| ? 管道，其实就是‘或’的意思 例如 ：m /f(oo|ee)t/?? # 找 foot 或 feet 4、m/ [a-z[详细]
-
再谈perl find xargs命令
所属栏目：[大数据] 日期：2020-12-16 热度：197
一、find 命令格式 1、find命令的一般形式为； 2、find命令的参数； 3、find命令选项； 4、使用exec或ok来执行shell命令； 二、find命令的例子； 1、查找当前用户主目录下的所有文件； 2、为了在当前目录中文件属主具有读、写权限，并且文件所属组的用户和其[详细]
-
perl 里的<>和<STDIN>
所属栏目：[大数据] 日期：2020-12-16 热度：67
首先介绍一下@ARGV: 当perl脚本运行时，从命令行上传递给它的参数存储在内建数组@ARGV中，@ARGV是PERL默认用来接收参数的数组，可以有多个参数，$ARGV[0]是表示接收到的第一个参数，$ARGV[1]表示第二个。 操作查看@ARGV来决定使用哪些文件。如果表为空，则使[详细]
-
Perl高精度计时器
所属栏目：[大数据] 日期：2020-12-16 热度：133
use strict ; use Time::HiRes qw(gettimeofday) ; sub Test { ? ? # sec: seconds ? ? # usec: microsecond ? ? my ($start_sec,$start_usec) = gettimeofday() ; ? ?? ? ? #======================# ? ? # Place your code here!# ? ? my ($end_sec,$end_u[详细]
-
perl实现超时机制综述
所属栏目：[大数据] 日期：2020-12-16 热度：62
一、ALARM方式 示例程序: #!/usr/bin/perl $timeout = 2 ; while(1) { ?? eval { ? ? l ocal $SIG{ALRM} = sub{print "sorry,time out.please try againn"} ; ? ? ?alarm $timeout ; ?#启动定时器 ? ? # 实际操作 ? ? print "hello world!n" ;? ? ? sleep[详细]
-
Perl ：三种IP转整型的方法的速度测试
所属栏目：[大数据] 日期：2020-12-16 热度：166
? 测试环境： CentOS release 4.7? perl,v5.8.5 测试代码： print?scalar?localtime;? print?“n”;? for ?(my? $i =0; $i 10000000; $i ++)? {? ? #?方法一：使用pack? ? $a ?=?unpack(’N*’,?pack(’C4′,?split(/./,?‘193.168.20.3′)));? ? #?方式二：[详细]
-
Perl Net::openSSH 远程登录多台机器执行脚本
所属栏目：[大数据] 日期：2020-12-16 热度：110
需求：在多台机器需要同时执行文件，并且是不定期的，crontab不适用了，没办法了写了这个Script，简单也没什么错误提示，只为执行即可； 前提：在跳板机上已经和机器的ssh打通；在Script机器上安装perl模块Net::openSSH Net-OpenSSH-0.57.tar.gz 解压，发现[详细]
-
perl 模式匹配小程序
所属栏目：[大数据] 日期：2020-12-16 热度：84
编写Perl程序的时候，免不了使用正则表达式，但有时候匹配错误，下面的小程序可以使程序探测模式匹配的结果。 #!/usr/bin/perlwhile () { #每次读一行输入 chomp; if ( //YOUR PATTERN) { print "Matched: |$` $ $'|n"; //特殊捕获变量 } else { print "Npo[详细]
-
perl 正则匹配嵌套结构
所属栏目：[大数据] 日期：2020-12-16 热度：161
有这么一道题。。 aaa ? bbb ? #if?defined(__MMI_DEL__) ? ???ccc ? #endif ? ddd ? eee ? #if?defined(__MMI_DEL__) ? ???fff ? ???ggg ? #endif ? hhh? 要求匹配 注释外的内容，匹配之后的内容： aaa bbb ddd eee hhh 可以利用/^xxx/../^xxx/结构来匹配[详细]
-
oo perl 继承问题
所属栏目：[大数据] 日期：2020-12-16 热度：136
wxPerl是一个纯oo的gui库。今天在看它的例子的时候，也试了一下不同的继承方法。 在wxPerl的hello.pl中是这样用的： use vars qw(@ISA); @ISA = qw(Wx::App); 在programming Perl里查了一下use vars这个pragma. 发现，这种用法已经在某种程度 上废弃了，因为[详细]
-
perl变量作用域以及定义方式。
所属栏目：[大数据] 日期：2020-12-16 热度：108
问：Perl中以my开头的语句，my是什么作用？ 答(一): 像C语言中有作用域的概念，比如一个在函数中定义的变量，在函数外是无效的。 perl也有作用域的概念，perl定义的变量默认是全局的，当在定义变量时使用 my $abc，那么$abc的作用域就限定在当前函数体或当前[详细]
-
实战Perl脚本测试
所属栏目：[大数据] 日期：2020-12-16 热度：190
实战Perl脚本测试(转) 这是一篇关于perl脚本测试的总结性文章，其中提到了很多实用的模块，如果文中介绍的不够详细，请到cpan上搜索该模块并查阅其文档。? 1基本语法检查 Perl语言的哲学是“There is more than one way to do it”，很多讨厌Perl的人总是拿P[详细]
-
调试Perl脚本
所属栏目：[大数据] 日期：2020-12-16 热度：108
调试Perl脚本的两种比较常用的方法 在阅读Perl脚本时，通过跟踪脚本的执行，是一种比较快速的方法（对Perl语法非常熟悉的可能直接看代码就行了）。跟踪脚本的执行，常用的两种方法如下： 1 使用perl -d 命令 比如执行perl test.pl脚本，加上-d命令，就是perl[详细]
-
Perl Test::Unit::Lite
所属栏目：[大数据] 日期：2020-12-16 热度：187
找了半天，终于找到一个轻量级测试框架Test::Unit::Lite，这个框架只有一个文件，不需要依赖其他文件，如果使用其他测试框架需要下载很多其他依赖模块，如果是手动下载的话基本是mission impossible。 说说它的使用： 首先写一个测试模块，所有的test case[详细]
-
Notepad++配置运行Perl
所属栏目：[大数据] 日期：2020-12-16 热度：167
1、用Notepad++打开.pl文件， ? 2、F5或者Run-Run,打开运行窗口，在下面的框框里输入：Perl -w "$(FULL_CURRENT_PATH)"， 然后Save，保存成一个命令就行，名字比如叫Run_Perl,快捷键我选的F9.然后按F9就可以运行了 ? 3、不过你只能看到命令行窗口一闪而过，[详细]
-
Perl做一件事不止一种方法
所属栏目：[大数据] 日期：2020-12-16 热度：190
今天需要用Perl遍历目录下的所有的文件。一个很自然的想法是用Perl提供的文件/文件夹操作，写了十多行代码后，觉得这好像跟Java一样了。有没有别的办法呢？有人提到用glob，这是个不错的办法。稍微列举一下Perl下可以实现相同功能的办法，现在就有5种了，面[详细]
-
perl/awk/sed do a issue
所属栏目：[大数据] 日期：2020-12-16 热度：110
example 1: ^?21 2013-03-17 20:57:41.403860 coolnjmcl080 COOLSIGproc 7771[17445] M3UA remote Peer (2) advanced to state (7) at (6). ^?22 2013-03-17 20:57:41.506733 coolnjmcl080 COOLSIGproc 7771[17445] M3UA remote Peer (2) advanced to state[详细]
-
perl二进制,，十进制与十六进制转换
所属栏目：[大数据] 日期：2020-12-16 热度：71
生物信息里面也有进制的转换关系，不多说，把简单的写一下： sub d2b()#2to10{my $bin = shift;my $mod = $bin % 2;return $bin if $bin 2;$bin = ($bin - $mod) / 2;return d2b($bin).$mod;}sub dec2bin()#2to10{my $dec = shift;my $bin = unpack("B32",pa[详细]
