免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 2707 | 回复: 6

正则表达式怎么匹配@符号啊? [复制链接]

论坛徽章:
0
发表于 2009-11-13 11:33 |显示全部楼层
5可用积分
$a是一个命令的输出结果,里边有符号@。需要取出@后面的字串,因为@前后的值都是会变的,所以不能根据前后的值来匹配,只能匹配@。
但是@后面的字串是打不出来的,不知道怎么才能把@匹配出来?
麻烦各位大侠赐教哇~
下面是我写的测试脚本:

$a = "fff@mmmmm";
my $cell_manager;
chomp ($a);
if ($a =~ /(@)/) {
    print "match\n";               
    $cell_manager = $1;
}
else {
    print "not\n";
}
chomp($cell_manager);
print "\$cell_manager = $cell_manager\n";

[ 本帖最后由 frilland 于 2009-11-13 11:42 编辑 ]

最佳答案

查看完整内容

$a = 'fff@mmmmm';

论坛徽章:
0
发表于 2009-11-13 11:33 |显示全部楼层
$a = 'fff@mmmmm';

论坛徽章:
0
发表于 2009-11-13 11:54 |显示全部楼层
你犯得错误跟你基础不熟悉及不良编程习惯有关,要养成好习惯就一定要加上

use strict;
use warnings;

论坛徽章:
0
发表于 2009-11-13 11:56 |显示全部楼层

回复 #2 cobrawgl 的帖子

恩知道了,直接取命令的结果是可以匹配/\@/的,但是放到字串里边就会@就不再是原来的意思了,谢谢哦~

论坛徽章:
0
发表于 2009-11-13 11:57 |显示全部楼层

回复 #3 cobrawgl 的帖子

呵呵,谢谢哦,我写测试程序的时候还真的没有加这两句话呢,以后会记住的!

论坛徽章:
0
发表于 2009-11-13 22:38 |显示全部楼层
my [email=$a=]$a='fff@mmmmm'[/email];
my $cell_manager;
if ($a =~ /(@)(\w*)/) {
    print "match\n";
    $cell_manager = $2;#取出@后面的内容
}
else {
    print "not\n";
}
chomp($cell_manager);
print "\$cell_manager = $cell_manager\n";

论坛徽章:
0
发表于 2009-11-13 22:56 |显示全部楼层
对于模式未匹配到得字符,perl已经有两个默认变量来表示他们了
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP