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还支持许多其他高级特性，如异常处理、生成器、上下文感知等。