Perl正则表达式处理换行
正则表达式 处理 换行 Perl
2023-06-13 09:11:54 时间
大家好,又见面了,我是你们的朋友全栈君。
use strict;
my $values ;
open(OUTFILE,"file.txt") or die("Can't find file.txt:$!") ;
while(defined($values= <OUTFILE>)){
# print $values ;
if($values =~ /.*User Name:(.*);(.*)/ms){
print $1;
print $2;
}}
我的file.txt内容为:
Logon Failure:
User Name:lixin;
Domain:BEIM-SERVER;
Reason:Unknown user name or bad password!
问题:按照我的程序匹配之后,本应$1得到的是lixin,$2得到的是后面所有的内容。
但此时$2只得到个换行,后面两行内容并未得到。
这是因为$values= <OUTFILE>只读取了一行,$/ 中保存这输入行记录分隔符(它的默认分隔符是/n)。因此,每当菱形运算符用于读取数据时,它将一直读取数据,直到它发现与$/一致的字符。所以,如果我们将$/设为 undef ,菱形运算符将读取整个文件并将它们存储在标量中。
要想让perl“吞吃文件”,可以改成这样:
use strict;
my $values ;
open(OUTFILE,"file.txt") or die("Can't find file.txt:$!") ;
$/ = undef; # 此行注掉后,$values 仅读入Logon Failure:
while(defined($values= <OUTFILE>)){
# print $values ;
if($values =~ /.*User Name:(.*);(.*)/ms){
print $1;
print $2;
}}
发布者:全栈程序员栈长,转载请注明出处:https://javaforall.cn/139716.html原文链接:https://javaforall.cn
相关文章
- EditPlus正则表达式替换字符串详解
- Perl 正则表达式小结
- Python初识模块之正则表达式
- jmeter正则表达式提取器的用法和正则「建议收藏」
- 【10分钟入门】想学爬虫?关于正则表达式,看这一篇就够了!
- SQL开发基础:SqlServer 正则表达式的字符处理问题
- mysql 字符串正则表达式及说明
- 常用正则表达式大全详解编程语言
- 表达式使用Linux Find命令用正则表达式查找文件(linuxfind正则)
- MySQL正则表达式匹配数字:更有效的数据库搜索和筛选。(mysql正则匹配数字)
- 防范正则表达式和Redis攻击的策略(正则表达式redis攻击)
- 在PHP中使用与Perl兼容的正则表达式
- 常用正则表达式比较实用
- 判断时间的正则表达式
- php的正则表达式完全手册
- 正则表达式搭配js轻松处理json文本方便而老古
- 正则表达式(括号)、[中括号]、{大括号}的区别小结