Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1211403
  • 博文数量: 398
  • 博客积分: 10110
  • 博客等级: 上将
  • 技术积分: 4055
  • 用 户 组: 普通用户
  • 注册时间: 2007-12-23 20:01
个人简介

新博客http://www.cnblogs.com/zhjh256 欢迎访问

文章分类

全部博文(398)

文章存档

2012年(1)

2011年(41)

2010年(16)

2009年(98)

2008年(142)

2007年(100)

我的朋友

分类:

2009-04-19 14:18:33

# perl正则表达式之a, but not b,and vice versa
C:\Documents and Settings\Administrator>perl
$a="YES ";
print "1:$a\n" if $a=~ /(?=^(?:(?!YES).)*)NO/s;

$a="NO ";
print "2:$a\n" if $a=~ /(?=^(?:(?!YES).)*)NO/s;

$a="NO YES";
print "3:$a\n" if $a=~ /(?=^(?:(?!YES).)*)NO/s;

$a="YES NO ";
print "4:$a\n" if $a=~ /(?=^(?:(?!YES).)*)NO/s;
^D
2:NO
3:NO YES

C:\Documents and Settings\Administrator>perl
$a="oh NO,shit";
if ($a=~ /[^YES].*NO/)
{
  print $a;
}
^D
oh NO,shit
C:\Documents and Settings\Administrator>perl
$a="oh NO,shit";
print $a if$a=~ /[^YES].*NO/;
^D
oh NO,shit

阅读(469) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~