Perl中怎么处理正则表达式

在Perl中，可以使用正则表达式的方式来进行字符串匹配和替换操作。以下是一些基本的正则表达式操作示例：

字符串匹配：

my $str = "Hello, World!";
if ($str =~ /Hello/) {
    print "String contains 'Hello'\n";
}

字符串替换：

my $str = "Hello, World!";
$str =~ s/Hello/Hi/;
print "$str\n";  # 输出 "Hi, World!"

提取匹配的内容：

my $str = "The price is $100";
if ($str =~ /(\$\d+)/) {
    my $price = $1;
    print "Price: $price\n";  # 输出 "Price: $100"
}

使用正则表达式进行循环匹配：

my $str = "apple,banana,orange";
while ($str =~ /(\w+)/g) {
    print "$1\n";
}

以上是一些基本的正则表达式操作示例，在实际应用中可以根据具体需求来灵活运用正则表达式进行字符串处理。