Perl语言高级用法有啥案例

Perl是一种功能强大的编程语言，它的高级用法包括正则表达式、模块化、面向对象编程等。以下是一些Perl高级用法的案例：

1. 正则表达式：Perl被广泛认为是正则表达式的先驱，它的正则表达式引擎非常强大。例如，以下代码使用正则表达式将一个字符串中的所有数字提取出来：

my $string = "The price is $15 and the discount is $20.";
my @numbers = $string =~ /\d+/g;
print "@numbers\n";  # 输出 "15 20"

2. 模块化：Perl支持模块化编程，允许将代码分解为可重用的模块。以下是一个简单的Perl模块示例：

# my_module.pm
package MyModule;

use strict;
use warnings;

sub add {
    my ($a, $b) = @_;
    return $a + $b;
}

1;

然后，在主程序中使用该模块：

# main.pl
use strict;
use warnings;
use MyModule;

my $result = add(3, 4);
print "$result\n";  # 输出 "7"

3. 面向对象编程：Perl也支持面向对象编程，可以使用包和类来实现。以下是一个简单的Perl类示例：

# MyClass.pm
package MyClass;

use strict;
use warnings;

sub new {
    my ($class, %params) = @_;
    my $self = {
        _name => $params->{name} || 'Unknown',
    };
    bless $self, $class;
    return $self;
}

sub say_hello {
    my ($self) = @_;
    print "Hello, my name is $self->{_name}!\n";
}

1;

然后，在主程序中使用该类：

# main.pl
use strict;
use warnings;
use MyClass;

my $obj = MyClass->new(name => 'Alice');
$obj->say_hello();  # 输出 "Hello, my name is Alice!"

以上只是Perl高级用法的一些简单示例，Perl还支持许多其他高级特性，如异常处理、生成器、上下文感知等。