perl ^符号

最新推荐文章于 2024-06-20 11:05:33 发布

scan724

最新推荐文章于 2024-06-20 11:05:33 发布

阅读量1.8k

点赞数

CC 4.0 BY-SA版权

分类专栏： Perl高级编程

本文链接：https://blog.youkuaiyun.com/zhaoyangjian724/article/details/42085931

Perl高级编程专栏收录该内容

41 篇文章 ¥39.90 ¥99.00

订阅专栏

本文通过示例介绍了Perl中^符号在正则表达式中的使用，说明了^匹配除指定字符外的所有字符的功能。通过实例展示了在不同情况下的匹配结果，并提到了使用非/字符作为分隔符时，正则表达式的m标志的必要性。

<pre name="code" class="sql">[oracle@june2 perl]$ cat a4.pl 
my $a = "abe";
if ($a =~ /a[^d]e/){print "1111111\n"};

[oracle@june2 perl]$ perl a4.pl 
1111111

[oracle@june2 perl]$ cat a4.pl 
my $a = "ade";
if ($a =~ /a[^d]e/){print "1111111\n"};

[oracle@june2 perl]$ perl a4.pl 
[oracle@june2 perl]$ 

^表示除其之外的所有字符

[oracle@june2 perl]$ cat a4.pl 
my $a = "abe";
if ($a =~ /a[^\\]e/){print "1111111\n"};
[oracle@june2 perl]$ perl a4.pl 
1111111

[oracle@june2 perl]$ cat a4.pl 
my $a = "abe";
if ($a =~ /a[^\/]e/){print "1111111\n"};
[oracle@june2 perl]$ perl a4.pl 
1111111


[oracle@june2 perl]$ cat a4.pl 
my $a = "a/e";
#if ($a =~ #a[^/]e#){print "1111111\n"};
if ($a =~ m#a[^/]e#){print "1111111\n"};
[oracle@june2 perl]$ perl a4.pl 
[oracle@june2 perl]$

了解本专栏