.txt kllk nciuwbufcbew``````//.]];s[[..; klklkl x,dsncdk,;l,ex xw,eocxmcmck .txt .txt kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk kllk nciuwbufcbew``````//.]];s[[..; klklkl x,dsncdk,;l,ex xw,eocxmcmck kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk ls .txt .txt.bak Need…

perl一行式程序系列文章:Perl一行式 文本大小写转换 全部字符转换成大写或小写,有几种方式: # 转大写 $ perl -nle 'print uc' file.log $ perl -ple '$_ = uc' file.log $ perl -nle 'print "\U$_"' file.log # 转小写 $ perl -nle 'print lc' file.log $ perl -ple '$_ = lc' file.log $ perl -nle 'print &q…

perl一行式程序系列文章:Perl一行式 所有行的行号 $ perl -pe '$_ = "$. $_"' file.log $ perl -ne 'print "$. $n"' file.log 这里涉及了一个特殊变量$.. 这个特殊变量代表的是当前处理行的行号.对于Perl的一行式来说,通过<>隐式打开的文件句柄默认不会关闭,所以如果参数中有多个文件,进入下一个文件时行号不会重置. 例如: $ cat a.txt aaa bbb $ cat b.t…

使用perl读取Excel 环境 windows 7 ActiveState Perl Win32::OLE[perl package] 基本功能 循环处理多个sheet 读取Excel单元,提取interface信息 格式化标准输出 格式化写入文件 解析结果 Perl代码 #!/usr/bin/perl -w use strict; use Win32::OLE qw(in with); use Win32::OLE::Const 'Microsoft Excel'; ############…

最佳vim技巧----------------------------------------# 信息来源----------------------------------------www.vim.org         : 官方站点comp.editors        : 新闻组http://www.newriders.com/books/opl/ebooks/0735710015.html : Vim书籍http://vimdoc.sourceforge.net/cgi-bin/vim…

Automake是用来根据Makefile.am生成Makefile.in的工具 标准Makefile目标 'make all' Build programs, libraries, documentation, etc. (same as 'make'). 'make install' Install what needs to be installed, copying the files from the package's tree to system-wide directories.…

本文版权归作者所有,欢迎转载,但未经作者同意必须保留此段声明,且在文章页面明显位置给出原文连接,否则保留追究法律责任的权利. 注:图片来自作者公众号--"iKM_2018",亦即"丫丫的iKM基地". " Startup {{{ filetype indent plugin on " vim 文件折叠方式为 marker augroup ft_vim au! au FileType vim setlocal foldmethod=marker a…

R通常被用来进行数值计算比较多,字符串处理相对较少,而且关于字符串的函数也不多,用得多的就是substr.strsplit.paste.regexpr这几个了.实际上R关于字符串处理的功能是非常强大的,因为它甚至可以直接使用Perl的正则表达式,这也是R的一个理念,作为语言就把向量计算做到极致,作为环境,就在各领域都集成最好的.R中有grep系列的函数,可以用最强大的方式处理字符串的所有问题. grep的全称是global search regular expression and print…

Java代码在转换为UTF-8编码后,Eclipse编译运行没有问题,但是用Maven编译时,抛出非法字符65278错误. 原因在于,转换后文件头部带有BOM信息,而Maven不支持,删掉文件头的BOM信息即可. 可以通过以下命令,在命令行中批量删除文件中BOM信息: perl -pi.bak -w -e 's/^\xEF\xBB\xBF' *.java 然后,删除.bak后缀的备份文件: rm *.java.bak 现在可以查看文件中是否,还带有BOM信息,可以通过以下命令查询: grep -…

接受正则表达式,按行匹配,将会过滤出匹配的所有行 格式: grep   [OPTION]...     PATTERN    [FILE]... 可以看出,grep后可以同时接多个文件 选项OPTION: --color=auto                 通常情况下grep过滤后不会有颜色区分,使用该选项添加颜色 -E                  支持扩展的正则表达式 -o                  grep默认输出匹配的行,使用该选项仅输出匹配的关键词 -v       …

参考:Linux命令——column 前言 接触这个命令的初衷是我想把一个很长的单列输出设置成多列输出,奈何column的分列输出机制太智障,直到我发现了pr 参数 pr -# 输出指定的列数. -t 忽略页眉和页脚 -T 忽略页眉和页脚,去除所有分页记号 查看/usr/bin下面可执行文件,发现有600多行. [root@localhost bin]# find /usr/bin/ -executable -type f | wc -l 单列显示的话看起来很吃力,可以借助pr多列显示 [roo…

目录 Programming Basics Basic Programming Concepts Object Oriented Programming Concepts UNIX/Linux Programming in C/C++ Programming in PERL 对Cracking Digital VLSI Verification Interview:Interview Success这本书的汉化,最新更新请关注微信公众号 摸鱼范式 Programming Basics Basic…

1.程序宏观结构图…

这些主要是从 "小骆驼" 书上粘贴或者摘抄出来的, 个人认为需要记的语法知识 "在某些情况下, 你可能需要在一台机器上写程序, 再传送到另一台机器上运行.这时候, 请使用"文本模式(text mode)" 或者"ASCII模式(ASCIImode)". 记住, 千万不能是"二进制模式(binary mode)"即便是文本文件, 不同的系统对待换行符的方式也有所不同, 所以碰到无法理解的换行符,某些老旧的Perl还可能…

最近写了一个perl脚本,实现的功能是将表格中其中两列的数据进行拼凑,然后将拼凑后的数据用“|”连接在一起. 表格内容如下: 员工号码 员工姓名 职位 入职日期 1001 张三 销售 1980/12/17 0:00:00 1002 李四 财务 1981/02/20 0:00:00 1003 王五 经理 1981/02/22 0:00:00 1004 陈二 会计 1981/04/02 0:00:00 要求如下: 将员工姓名和入职日期用键值对的形式拼凑在一起,然后将拼凑后的数据用“|”连接在一起.…

项目里面一直用的是Perl,Perl里有各种小技巧就分享在这吧. push(@a, $b) 把b元素压入a数组中, 还可以有 push(@a, [@b]); 那a就成了二维数组了 scalar(@a); my $b = @a; a的长度 =~的正则匹配时 =~s///g全局替换 =//i匹配,$1,$2对应第一个,第二个捕获组 opendir readdir 遍历目录 my($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst)=localtime…

#!/usr/bin/perl -w ; @array = split "", shift @ARGV; ..($#array+1)/2-1]; @array_2 = reverse @array[($#array+2)/2..$#array]; print "Array: @array\n"; print "@array_1\n"; print "@array_2\n"; 就是有一点,下标不好算!…

关于perl的多进程,大家可能马上会想到Parallel::ForkManager这个模块.但是今天我们试着自己动手写一个类似的框架:) 该多进程开发模型从开源服务器框架Lighttpd发展而来,核心思路是父进程监控子进程的状态并负责回收,子进程负责任务的执行.当前预先可以设置子进程并发数目的上限值.如需要涉及到进程间的通信,可以通过建立管道pipe的方式,让子进程在结束前将数据通过共享管道写入,待父进程适时读取即可.  本人在工作中进程遇到这样的场景,如从DB取若干任务,收包等等(不停的取/收…

#!/usr/bin/perl -w @students = qw/Doreen Oskar Elin Sangeet Malin/; &next_student; &next_student; sub next_student { $i++; print "the next student is $students[$i]\n"; } the next student is Oskar the next student is Elin…

箭头操作符有两种用法. 第一种用法是访问引用中的数据元素: #!/usr/bin/perl -w use strict; my @a = (5, 6, 7,9); my $aref = \@a; print $aref, "\n"; # ARRAY(0xbcac08) print $aref->[1], "\n"; # 6 第二种用法是在对象中使用,通过它来调用一个对象(或实例)的方法: $object -> method(@arguments);…

#!/usr/bin/perl -w use strict; my $test_1 = "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"; my $test_2 = "TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT"; my %hash; $hash{key} = $test_1; print $hash{key}, "\n"; $hash{key} = $hash{key} . $test_2; print $…

参考 http://blog.chinaunix.net/uid-1919528-id-2792055.html split 函数的正规语法应该是: split /PATTERN/, EXPR 而使用单引号(或者双引号)来分隔空格(whitespace)是一种特殊的例子: As a special case, if the expression is a single space (" "), the function splits on whitespace just as spli…

test_1.pl #/usr/bin/perl -w use strict; print add(1,2),"\n"; sub add { my ($x,$y) = @_; return $x + $y; # When Perl reaches any return statement it will exit the subroutine at that point. print "Hello World\n"; } perl test_1.pl # 3 tes…

#!/usr/bin/perl -w use strict; die "Usage: $0 <file>\n" unless (@ARGV == 1); my $lines = 0; my $bases = 0; while (my $line = <>){ # <> operator reads one line at a time from the file specified by $ARGV[0]. chomp $line; next if…

#/usr/bin/perl -w use strict; my $usage = "\n\nusage: $0 <length>\n\n"; my $length = $ARGV[0] || die $usage; &RandomSeq($ARGV[0]); # invoke the subroutine sub RandomSeq { for (my $i = 0; $i < $length; $i++) { unless ($i%70) {print &…

catalog . PCRE Introduction . pcre2api . pcre2jit . PCRE Programing 1. PCRE Introduction The PCRE library is a set of functions that implement regular expression pattern matching using the same syntax and semantics as Perl 5. PCRE has its own native…

匹配:m/<regexp>;/ (还可以简写为 /<regexp>;/ ,略去 m)替换:s/<pattern>;/<replacement>;/转化:tr/<pattern>;/<replacemnt>;/这三种形式一般都和 =~ 或 !~ 搭配使用(其中 "=~" 表示相匹配,在整条语句中读作 does,"!~" 表示不匹配,在整条语句中读作 doesn't),并在左侧有待处理的标量变量.如…

perl没有真正的二维数组,所谓的二维数组其实是把一维数组以引用的方式放到另外一个一维数组. 二维数组定义 : my @array1=([1,2],[3,4],[45,9],[66,-5]);               <-----------使用[]表示匿名数组 或者 my @array2=qw/this is a array/;my @array3=("another","array");my @array4=(\@array2,\@array3);  …

最近在写一个perl函数,把test case 放到配置文件里,读出来然后使用system运行. 我的本意是: 配置文件conf ping -c $count $ip #在主程序中定义$ip和$count 从配置文件中拿出这句ping -c $count $ip 将其在system中执行,其中事先定义好$count=10 $ip="192.168.1.1"; #!/usr/bin/perl -w use strict; my $ip="192.168.1.1"; ;…

1.数组相等,数组成员相同,位置也相同 一般的如果判断@array1 等于 @array2 a.数组长度相同 $#array1=$#array2, 比较数组长度,不能使用length函数,length只适用string类型 数组参数传递,不能直接传递 sub compare() { ; my ($first,$second)=@_; if (@$first==@$second) # the number of the array , don't use length() { ;$i<@$firs…