正则表达式匹配的问题-CSDN论坛

CSDN论坛 > 其他开发语言 > 脚本语言(Perl/Python)

正则表达式匹配的问题 [问题点数：20分，结帖人potato1234]

一键查看最优答案

确认一键查看最优答案？

本功能为VIP专享，开通VIP获取答案速率将提升10倍哦！

取消

开通vip会员

⋅求高手用PERL解决遇到的提取文本问题 ⋅Perl中文件输出问题 ⋅关于正则匹配的问题 更多帖子 关注私信空间博客 potato1234 本版专家分：2 结帖率 81.82%: 想匹配文本中的这些行：
if a;
if a and b;
if a;
if a and b;
我的正则是这样写的：
$part =~ m/(if\s*\w\s*((and)?)\s*\w?\s*;$)/ismg

但是输出结果一直不对，希望大家能帮忙解答一下

0 2011-08-01 14:56:21

回复数 2 只看楼主引用举报楼主

⋅ Flex 使用定时器绘制动态曲线时，ArrayCollection中有数据，但却画不出曲线（在线等） ⋅XP下不能启用“IEEE 802.1x 身份验证” ⋅这个板块不太活跃 更多帖子 关注私信空间博客 m00z 本版专家分：1240

试试这样

#! perl

use strict;

my $str = "if a;



if a and b;

  if a;

  if a and b;";



if ( $str =~ /((\s+)?if\s+\w+(\s+and\s+\w+)(.*?)){2}/s ) {

	print $str;

}

0 2011-08-01 15:42:27

只看TA 引用举报 #1 得分 20

⋅求高手用PERL解决遇到的提取文本问题 ⋅Perl中文件输出问题 ⋅关于正则匹配的问题 更多帖子 关注私信空间博客 potato1234 本版专家分：2: 好的，我试一下，谢谢您的答复。
后来我改了一下写法：
$part =~ m/（if\s*\w\s*(and?)\s*\w?\s*;）/ismg

引用 1 楼 will2ni 的回复:
试试这样

Perl code
#! perl
use strict;
my $str = "if a;

if a and b;
  if a;
  if a and b;";

if ( $str =~ /((\s+)?if\s+\w+(\s+and\s+\w+)(.*?)){2}/s ) {
    print $str;
}

0 2011-08-01 21:12:44

只看TA 引用举报 #2    得分 0

收藏帖子