正則表達(dá)式怎么匹配@符號(hào)��？

frilland

$a是一個(gè)命令的輸出結(jié)果，里邊有符號(hào)@。需要取出@后面的字串，因?yàn)锧前后的值都是會(huì)變的，所以不能根據(jù)前后的值來(lái)匹配，只能匹配@。
但是@后面的字串是打不出來(lái)的，不知道怎么才能把@匹配出來(lái)？
麻煩各位大俠賜教哇~
下面是我寫(xiě)的測(cè)試腳本：

$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 編輯 ]

cobrawgl

$a = 'fff@mmmmm';

cobrawgl

你犯得錯(cuò)誤跟你基礎(chǔ)不熟悉及不良編程習(xí)慣有關(guān)，要養(yǎng)成好習(xí)慣就一定要加上

use strict;
use warnings;

frilland

恩知道了，直接取命令的結(jié)果是可以匹配/\@/的，但是放到字串里邊就會(huì)@就不再是原來(lái)的意思了，謝謝哦~

frilland

呵呵，謝謝哦，我寫(xiě)測(cè)試程序的時(shí)候還真的沒(méi)有加這兩句話呢，以后會(huì)記住的！

xych_chinaunix

my [email=$a=]$a='fff@mmmmm'[/email];
my $cell_manager;
if ($a =~ /(@)(\w*)/) {
    print "match\n";
    $cell_manager = $2;#取出@后面的內(nèi)容
}
else {
    print "not\n";
}
chomp($cell_manager);
print "\$cell_manager = $cell_manager\n";

yz86yz

對(duì)于模式未匹配到得字符，perl已經(jīng)有兩個(gè)默認(rèn)變量來(lái)表示他們了