![](https://img-blog.csdnimg.cn/20201014180756913.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
perl
seu他山之石
每天进步一点点~
好记性不如烂笔头~
展开
-
perl脚本编写——提取文本中的所有数字,单行多次匹配
perl脚本编写——提取文本中的所有数字,单行多次匹配1.题目针对如下的shuzi.txt文件提取文件中所有的数字。abcv125edr345adeh47cvf2.编写思路a.按行读入文件b.全局匹配,匹配到数字存入数组中c.输出所有的数字3.脚本如下open IN,'<','shuzi.txt';while(<IN>){ @shuzi = /(\d+)/g;}foreach $key (@shuzi){ print "$key\n";}close IN;原创 2021-07-23 16:39:24 · 1519 阅读 · 0 评论 -
Perl——正则表达式
正则表达式文本替换}}}查找m/正则表达式/匹配模式替换s/ 正则表达式匹配/替换内容/匹配模式## 选项——g:global匹配——i:不区分大小写——m:换行匹配——e: 替换的值要先计算 s/(ab+c)/&replace($1)/e——x:允许换行加注释,忽略空白字符...原创 2021-04-28 21:17:35 · 3047 阅读 · 0 评论 -
Perl——实现分类和排序
使用perl进行文本分类排序输入文件:score.txt**要求:**得到pass liast(score>60),fail list(score<60),并且按照从大到小顺序。code:processing result:原创 2021-05-05 19:58:47 · 695 阅读 · 1 评论 -
Perl——正则表达式之贪婪模式和非贪婪模式
Perl——正则表达式之贪婪模式和非贪婪模式使用使用perl进行正则表达式匹配时,常用两种匹配模式,一种是贪婪匹配,一种是非贪婪匹配。贪婪匹配(greedy match):尽可能匹配最长的内容。默认匹配为贪婪匹配。非贪婪匹配:尽可能少地匹配,也叫做懒惰匹配lazy match。在*,+,?等表示匹配次数的后面加上?就表示以非贪婪模式进行匹配。my $str = "abc123abc1234";#字符串定义# greedy matchif(str =~ /a\w*3/){ print "$&a原创 2021-06-07 15:59:16 · 1718 阅读 · 0 评论 -
Perl——对数组array和哈希数组hash array的操作
Perl——对数组array的操作文章目录Perl——对数组array的操作一、对数组的赋值二、对数组操作的函数三、使用foreach遍历数组(Array)四、使用foreach遍历哈希数组(hash array)五、对哈希数组进行操作的一些函数,类keys函数一、对数组的赋值如果对数组尾端元素进行赋值,数组会根据需要自动扩大。数组的长度没有上限,只要内存足够大。my @myarray = ();$myarray[0] = "0";$myarray[1] = "1";$myarray[2] =原创 2021-06-07 09:24:09 · 1431 阅读 · 0 评论 -
Perl——字符串的使用
Perl——字符串的使用字符串可以用双引号也可以用单引号,单引号内内容不作转义,双引号对字符串内容做转义。‘hello\n’; #指hello\n这个字符串“hello\n” #指hello 换行单引号内 ‘ 需要转义。 'a\'b‘ #代表a'b。" "内的内容需要转义my $a = "abc";my $b = "def$a";#b实际是“defabc”字符串的拼接字符串用 . 进行拼接。"verdi"."-2001"."-nologo" #verdi-2001-nolog字符原创 2021-06-05 11:23:51 · 297 阅读 · 0 评论