perl
文章平均质量分 54
xiaocao9903
爱音乐,爱运动,爱生活
展开
-
关于perl遍历目录查找特定文件的事情
关于perl遍历目录查找特定文件的事情(2007-04-26 11:48:59)转载▼标签:perl分类: 技术文章 早在99年的时候我就做过这个事情了,之后又遇到好多次这样的事情,但每次都是临时去写,没有做过记录,然后要测试,现在做个记录,下次就不必让别人重新写过了,权当做贡献吧:如下程序遍历特定的目录下所有的文件(原创 2013-08-15 18:34:13 · 2323 阅读 · 0 评论 -
ulimit -c unlimited
ulimit -c unlimitedulimint -a 用来显示当前的各种用户进程限制Linux对于每个用户,系统限制其最大进程数,为提高性能,可以根据设备资源情况,设置个Linux用户的最大进程数,一些需要设置为无限制:数据段长度:ulimit -d unlimited最大内存大小:ulimit -m unlimited堆栈大小:ulimit -s unl转载 2014-06-10 10:17:03 · 884 阅读 · 0 评论 -
perl如何立即刷新文件缓冲区
perl中如何使缓冲区自动刷新 $|将对当前select的FILEHANDLE起作用,默认是STDOUT。 使用方法如下: $old = select FILEHANDLE; $| = 1; #autoflush select $old; 对某些对象,还可以直接使用autoflush方法,方法如下: use IO::Socket;转载 2013-10-16 09:44:36 · 3731 阅读 · 0 评论 -
perl 转码操作将utf8格式转换为gb2312
#删除rec中没有ref的语句#!/bin/perl -w use Encode;原创 2014-10-23 16:36:23 · 2013 阅读 · 1 评论 -
perl去除重复行和排序
my($rec, $ref,$dir) = @ARGV;if($#ARGV {print "usage:perl count_rate.pl test.list ref.list \n";exit(-1);}open(frec, "$rec") or die "can not open $rec\n";open(fref, "$ref")原创 2014-09-30 09:58:15 · 2371 阅读 · 0 评论 -
perl滑动匹配
#!/bin/perlmy($ansFile ,$result) = @ARGV;if($#ARGV {print "usage:perl count_time.pl time.txt \n";exit(-1);}open(frecOut, ">result_time.txt") or die "3\n"; open (ansf1, "$ansFile")原创 2014-09-30 14:15:47 · 517 阅读 · 0 评论 -
perl滑动匹配代码
open (ansf1, "$ansFile") or die "8\n"; #以下代码统计答案中的语音总时长 $answerflag=0; $position1=0; $dataflag1=0; $answer_total=0; while($ansfline1=){#$pre1=$position1;#$position1 = tell(ansf1);c原创 2014-09-30 10:31:32 · 552 阅读 · 0 评论 -
Perl中的程序注释:单行注释和多行注释
Perl中的程序注释:单行注释和多行注释(一)单行注释:以#开头的行都被perl认为是注释。但是有一个例外,perl程序的第一行是#开头的,他指定了perl程序的解释器。例如:#print 1;(二)多行注释:最常用的方法是使用 POD(Plain Old Documentations) 来进行多行注释。方法如下:=podcode转载 2014-10-10 11:29:55 · 6050 阅读 · 0 评论 -
perl 匹配特殊字符
上面三条正则表达式都隐藏着另一个陷阱。假如用户输入的是字串hello :-),就会导致严重的运行时错误。变量内插后得到的实际正则表达式会从/($pat){2}/变为/(hello :-)){2}/,不光是毫无意义,连括号也不对称了。Perl会报告正则表达式错在哪里:Unmatched ) in regex; marked by <-- HERE in m/(hello :-))转载 2015-05-14 14:11:08 · 5729 阅读 · 0 评论 -
perl多进程主进程等子进程结束
将“use POSIX ":sys_wait_h";”去掉,还有在主进程中打印子进程中的变量是不对的,主进程不知道子进程的状况,除非你用pipe将变量值传给主进程,###################################################!/usr/bin/perl#use POSIX ":sys_wait_h";my $a=10;for($i=1;$i<=3转载 2015-09-24 18:56:22 · 1933 阅读 · 0 评论 -
perl函数中传递数组的方法
传数组引用,在子函数中,接受到引用后,再解引用。转载 2014-05-26 17:15:30 · 3272 阅读 · 0 评论 -
Perl模式匹配经验总结
Perl模式匹配经验总结2010-07-16 09:14 smilelance csdn.net 字号:T | TPerl语言有很多值得学习的地方,你对Perl模式匹配的概念是否熟悉,Perl模式指在字符串中寻找的特定序列的字符,由反斜线包含:/def/即Perl模式def。AD:2013云计算架构师峰会课程资料下载本文和大家转载 2014-03-17 14:30:01 · 850 阅读 · 0 评论 -
Perl 随机数和随机密码的产生
Perl 随机数和随机密码的产生转载▼ Perl有着强大的随机数产生函数rand(),下面的代码详细介绍其应用#!/usr/bin/perl# use strict; use warnings;# 0~1之间 $random_number = rand(); print $random_number . "\n";#大范围转载 2014-02-13 16:45:47 · 2824 阅读 · 0 评论 -
perl 去除一对()中的中文字符及括号本身
#!/usr/bin/perl -wuse strict;use warnings;#my $a = "aligned 中国(中国中)中国心(中国心中)426327399914 frames";my $a = 'session 0: () 啊(啊)() 你好(你好)请(请)讲(讲)() (D:\hongmi\zhuxiaocheng\tbnr_phone_new_stream原创 2013-09-03 09:39:29 · 2329 阅读 · 0 评论 -
perl 替换文件中的一行
给你个例子m.txt的内容54321现在把里面的2换成twoPerl code?123456789101112131415161718192021转载 2013-10-11 09:06:00 · 2222 阅读 · 0 评论 -
perl比较两个目录中的文件内容是否相同
#比较两个目录中的文件内容是否相同#!/bin/perlif($#ARGV { print "usage:perl compare.pl dir1 dir2\n"; exit(-1);}#my($rec, $ref) = @ARGV;#!/bin/perlmy($lat1,$lat2)=@ARGV;system ( "dir \/b \/s \/O:N $原创 2013-10-16 09:48:46 · 4453 阅读 · 0 评论 -
Perl system(cmd) 和 `cmd` 的区别探讨
在perl中系统调用有两种方式,一种是system(cmd),另一种是`system`以前一直没注意,这两种方式的区别,还以为是一样的,今天写脚本的时候,忽然想要获取命令的返回值,然后,用了my $result = system('ls');发现,命令的结果并没有返回给$result,而是直接,打印到屏幕上了,所以,这么搞是要完蛋的,而改成my $result =转载 2013-12-05 13:36:44 · 1326 阅读 · 1 评论 -
perl滑动匹配核心代码
if ($ansfline eq "\"data\"") { $dataflag=1; next; } if($dataflag==1) { #以下代码滑动匹配时间 if($compflag==0) { if ($ansfline原创 2013-12-05 13:42:18 · 666 阅读 · 0 评论 -
用C++语言实现perl中的chomp函数
//读取到的每一行去除末尾和开头的空格,回车,tab,换行符void Trim(char *ptr){ char *p,*q; if(ptr==NULL) return; for(p=ptr; *p==' ' || *p=='\t'||*p=='\r'|| *p=='\n' ; ++p); if( *p==0 ) { *ptr=0; return;转载 2013-12-13 09:26:27 · 1012 阅读 · 0 评论 -
perl关键词检索程序
#找出语音对应的sent文件,将关键词列表中的关键词在sent文件中的时间点输出到一个文件中#!/bin/perluse Encode;# use Encode;#################在下面的文本中检索关键词######################对 对 #6.15 6.29 6.29 6.61#0.0000#喂 您好 很高 兴 为 您 服务 #原创 2014-01-23 15:31:34 · 1273 阅读 · 0 评论 -
perl多线程解析(转)
2013-02-03 11:29 perl多线程解析(转)转自:悠然的博客 http://blog.sina.com.cn/myhbioinfo1、并行系列一线程是一个单一的执行流程,它是所有程序执行过程中最小的控制单位,即能被 CPU 所调度的最小任务单元。线程与进程之间既有联系,又完全不同。简单地说,一个线程必然属于某一个进程,而一个进程包含至少一个或者多个线程转载 2014-01-26 18:11:47 · 1783 阅读 · 0 评论 -
perl 关键词检索程序
#找出语音对应的sent文件,将关键词列表中的关键词在sent文件中的时间点输出到一个文件中#################在下面的文本中检索关键词#####################然后 你 妹妹 怎么 打电话 呀26.1 26.36 26.36 26.48 26.48 27 27 27.24 27.24 27.86 27.86 28.120.0000只能 扣原创 2014-01-28 15:52:04 · 1132 阅读 · 0 评论 -
perl过滤掉字符串结束符
过滤掉字符串结束符 '\0' ( 在notepad++ 中显示为NUL)$file=~s/\0//g;原创 2016-09-13 15:06:07 · 1108 阅读 · 0 评论