- 博客(23)
- 资源 (7)
- 收藏
- 关注
RSS订阅转载 perl正则表达式递归
<br /> 今天在chinaunix上看到有个贴，问<br /> 设最外层括号为第 1 层，请问怎么样能够除去 1 对第 2 层的括号，保留其他括号？<br /><br /> 例如：(((1,2),3),4) => ((1,2),3,4)((1,2),(3,4)) => ((1,2),3,4) or (1,2,(3,4)) (1,
2011-02-22 12:32:00
1809
转载 [转自msdn]正则表达式语法
<br />正则表达式是一种文本模式，包括普通字符（例如，a 到 z 之间的字母）和特殊字符（称为“元字符”）。模式描述在搜索文本时要匹配的一个或多个字符串。正则表达式示例 表达式 匹配 <br />/^/s*$/<br />匹配空行。<br />//d{2}-/d{5}/<br />验证由两位数字、一个连字符再加 5 位数字组成的 ID 号。<br />/</s*(/S+)
2011-02-21 17:27:00
871
原创 替换字符串中间的某些字符
#!/usr/bin/perl$str = "###123a###01#02#03###b321###";$x = "3a";$y = "b3";$source = '#';$dest = '!';$str =~ s/($x|$y)//n$1/g;@array = split //n/, $str; foreach $i (0 .. $#array){ if (($array[$i] =~ /a/) .. ($array[$i] =~ /b/) and $ar
2011-02-21 11:11:00
1082
原创 哈希引用的赋值及输出
<br />1.使用哈希引用<br /> my $hash = {}； #定义一个空的匿名哈希作为哈希引用的初始化<br /> <br />2.哈希赋值<br /> a.给字符串赋值<br /> $hash->{a} = 'x';<br /> b.给数组赋值<br /> @array = (1, 2, 3);<br /> foreach (@array)<br /> {<br /> push @{$hash->{b}} = $_;<br /> }<br />
2011-02-17 10:50:00
6115
转载 shell测试和比较函数--test、[、[[、((、和 if-then-else
<br />Bash shell 在当今的许多 Linux® 和 UNIX® 系统上都可使用，是 Linux 上常见的默认 shell。Bash 包含强大的编程功能，其中包括丰富的可测试文件类型和属性的函数，以及在多数编程语言中可以使用的算术和字符串比较函数。理解不同的测试并认识到 shell 还能把一些操作符解释成 shell 元字符，是成为高级 shell 用户的重要一步。这篇文章摘自 developerWorks 教程 LPI 102 考试准备，主题 109: Shell、脚本、编
2011-02-12 14:39:00
1233
原创 删除N天前的日志文件
#!/usr/bin/perlmy $Date=`date +%s`;$Date -= 17*86400;($sec,$min,$hour,$mday,$mon,$year_off,$wday,$yday,$isdat) = localtime($Date);my $year_tmp = $year_off + 1900;my $month_tmp = $mon+1;( $mon_tmp localtime函数，根据它所在的上下文，可以用两种完全不同的方法来运行。在标量上下文中，lo
2011-02-11 14:07:00
925
转载 Perl正则表达式处理换行
use strict; <br />my $values ; <br />open(OUTFILE,"file.txt") or die("Can't find file.txt:$!") ; <br />while(defined($values= <OUTFILE>)){ <br /># print $values ; <br /> if($values =~ /.*User Name:(.*);(.*)/ms){ <br /> print $1; <br />
2011-02-09 15:11:00
4104
原创 虚拟机共享目录
<br />VirtualBox：1.在VisualBox工程上的配置明细上选择最后一项《数据空间》然后，指定一个windows目录作为共享目录<br />2.安装增强工具，等虚拟光盘自动挂载后进终端，cd /media/VBOXADDITIONS_3.2.6_63112,回车，<br />然后su root, sh ./VboxLinuxAdditions_x86.run ，安装完重启。<br />3.mount数据空间时注意，数据空间的名字不要跟/mnt下你新建的文件夹名称一样。比如，
2011-01-31 11:56:00
787
转载 在SED中使用变量
<br />举例说明：变量a和b，使用sed的替换命令将$a替换为$b<br />本文包含四种方法，考验大家对meta的理解程度。如果觉得不过关，请复习一下netman老哥的十三问吧。<br />http://bbs.chinaunix.net/forum/viewtopic.php?t=218853&show_type=new&sid=f1b910516f9e071b43ddae8af92d563b<br />1.eval sed 's/$a/$b/' filename<br />2.sed "s
2011-01-27 09:39:00
3645
1
转载 各种工具之正则表达式语法比较
在各种常用的工具中，正则表达式如此的相似却又不同。下表列出了一些常用的正则表达式，以及其不同之处。项目总多，遗漏必有不少，请各位看官不吝指出。以perl的正则为基准，不同的用法以粉红色标出。grep 2.5.1egrep 2.5.1sed 3.02sed 4.07awk 3.1.1perl 5.8.0vim 6.1JavaScript ??转义///////行头^^^^^^^行尾$$$$$$$n个 {n} {m,n} {m,} {,n}/{n/}{n}/{n/}{n}或/{n/} 仅定义 --posix 或
2011-01-21 16:40:00
1140
原创 关于正则表达式问题
在perl中执行shell语句时 `ls -l | awk '{print $3}'`报错Use of uninitialized value in concatenation (.) or string at test.pl line 3.这里需要转义$。将`ls -l | awk '{print $3}'`改为`ls -l | awk '{print /$3}'`即可。
2011-01-21 14:28:00
755
转载 HTML5：插入视频及在视频层面上执行的操作
DEMO：http://craftymind.com/factory/html5video/CanvasVideo.html 点击播放的视频将产生奇特的效果。注：请使用FF及Chrome浏览器浏览DEMOHTML5插入视频的方法：HTML5视频文件的参数设置：autoplay true | false 如果是 true，则视频在就绪后马上播放。controls true | false 如果是 true，则向用户显示控件，比如播放按钮。end numeric
2011-01-19 14:35:00
1513
转载 各种平台下Perl模块的安装方法
<br /><br />1、Linux/Unix下的安装方法：<br /> Linux/Unix下安装Perl模块有两种方法：手工安装和自动安装。第一种方法是从CPAN上下载您需要的模块，手工编译、安装。第二种方法是联上internet，使用一个叫做CPAN的模块自动完成下载、编译、安装的全过程。 <br />a、手工安装的步骤：<br />从CPAN下载了DBI模块1.13版的压缩文件DBI-1.13.tar.gz，假设放在/usr/local/src/下。 <br />cd /usr/local/s
2011-01-19 09:35:00
777
原创 clearcase下的一些常用命令
1.最基本的操作cleartool co -nc xxx.cppcleartool ci -nc xxx.cpp 2.查看自己总共co了多少文件cleartool lscheckout -cview -me -avobs 查看我的所有co文件 cleartool lscheckout -avobs -me查看所有人的所有co文件cleartool lscheckout -avobs3.最有用的命令cleartool man xxxcleartool help xxx
2011-01-18 17:05:00
9974
原创 我的Hudson插件
Compact ColumnsMore compact columns for showing last success and failure. Easier to understand, and takes less room in your view.Dashboard ViewCustomizable dashboard that can present various views of job information.Hudson disk-usage pluginThis plugin coun
2011-01-18 16:32:00
1492
原创 Hudson分布式构建
§ 由于我的hudson版本是Hudson ver. 1.392，这个版本中是通过设置Restrict where this project can be run选项。旧版本都是通过Tie this project to a node选项。 默认安装hudson即为master模式，在master部署大量job时，部署slave可提高jobs执行效率。§ Hudson的分布式任务并不需要在slave上也部署一套hudson环境，而是在建立master与slave之
2011-01-18 15:58:00
3301
2
原创 Hudson标准安全设置
1.1.进入系统配置屏幕([http://server/hudson/configure]主页-->Manage Hudson-->Configure System)，并选择"Enable security" 。 2.2.选择"Hudson's own user database"作为安全域。注：因为我使用的是Tomcat管理hudson，所以在TCP port for JNLP slave agents选项中选择“Disable”。 3.3.选择"Matrix-based security"作为授
2011-01-18 15:31:00
2360
1
原创 Hudson入门
§§首先下载hudson.war(https://hudson.dev.java.net),然后可以在一个盘符下建立一个文件夹，如D:/hudson，然后将这个路径设置环境变量，Hudson_Home=D:/hudson。 §§运行Hudson有两种方式: §§1.可以将Hudson部署到Tomcat下面运行； §§2.使用命令java -jar hudson.war启动hudson。 §其命令后面可带参数 §--httpPort=18080 --ajp13Port=18009，用于指定
2011-01-18 15:18:00
915
转载 shell 之空格
<br />1:<br />定义变量时, =号的两边不可以留空格.<br />eg:<br />gender=femal------------right<br />gender =femal-----------wrong<br />gender= femal-----------wrong<br />2<br />条件测试语句 [ 符号的两边都要留空格.<br />eg:<br />if [ $gender = femal ]; then-------right.<b
2011-01-18 15:07:00
776
原创 perl发html+附件的邮件
sub sendHtmlMail { my ($to, $subject, $body, $attach, $from) = @_; my $CRLF = "/r/n"; my $Raw_Bond = "=======Boundary======="; my $Bond = "--=======Boundary======="; my @receivor = split /[,;]/, $to; $body
2011-01-14 16:36:00
1203
原创 perl读取配置文件
sub readConfig($){ my $file = shift; my %config = (); open (CF, " readConfig Reading config file: $file./n"; while () { chomp(); next if (/^/s*#/); next if (/^/s*$/); next unless (/^[^;]+;[^;]+$/); $_ =~ s/^/s*/
2011-01-14 16:31:00
6595
1
转载 背景配色
<br /><mce:style type="text/css"><!--.style1{width: 800px;height: 100px;margin: 0px auto;margin-bottom:20px;border:1px solid #96C2F1;background-color: #EFF7FF}.style2{width: 800px;height: 100px;margin: 0px auto;margin-bottom:20px;
2011-01-14 16:26:00
617
飞鸽传书协议和源代码
2009-07-12
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人