引用（Reference）是Perl中用于指向其他数据结构的强大工具，允许构建复杂数据结构和实现动态操作。本文将全面介绍引用的创建、解引用和常见用法。

目录

  1. 引用概述
  2. 创建引用
  3. 解引用
  4. 匿名引用
  5. 复杂数据结构
  6. 引用与子程序
  7. 参考资料

1. 引用概述

Perl 中的引用是一个标量，存储另一个变量的内存地址。引用以 \ 开头创建，支持指向标量、数组、哈希甚至子程序。

特点：

  • 提供间接访问数据的方式。
  • 允许构建多维数据结构。
  • 在参数传递中避免复制大数据。

站内链接：了解标量基础，见 Perl 标量。

2. 创建引用

标量引用

1
2
3
4
5
6
use strict;
use warnings;
 
my $scalar = "Hello";
my $scalar_ref = \$scalar;
print "引用地址：$scalar_ref\n";  # 如 SCALAR(0x...)

数组引用

1
2
3
my @array = (1, 2, 3);
my $array_ref = \@array;
print "数组引用：$array_ref\n";  # 如 ARRAY(0x...)

哈希引用

1
2
3
my %hash = ("name" => "Alice", "age" => 25);
my $hash_ref = \%hash;
print "哈希引用：$hash_ref\n";  # 如 HASH(0x...)

3. 解引用

解引用标量

使用 $：

1
2
3
my $value = "Perl";
my $ref = \$value;
print $$ref, "\n";  # Perl

解引用数组

使用 @ 或 ->：

1
2
3
4
my @list = ("a", "b", "c");
my $list_ref = \@list;
print "@$list_ref\n";       # a b c
print $list_ref->[1], "\n"; # b

解引用哈希

使用 % 或 ->：

1
2
3
4
my %data = ("key" => "value");
my $data_ref = \%data;
print %$data_ref, "\n";         # keyvalue
print $data_ref->{"key"}, "\n"; # value

4. 匿名引用

无需先创建变量，直接生成引用：

匿名数组

1
2
my $anon_array = [1, 2, 3];
print $anon_array->[0], "\n";  # 1

匿名哈希

1
2
my $anon_hash = { "x" => 10, "y" => 20 };
print $anon_hash->{"x"}, "\n";  # 10

匿名子程序

1
2
my $anon_sub = sub { print "Anonymous!\n" };
$anon_sub->();  # Anonymous!

站内链接：更多子程序内容，见 Perl 子程序。

5. 复杂数据结构

数组中的哈希

1
2
3
4
5
my @people = (
    { "name" => "Alice", "age" => 25 },
    { "name" => "Bob", "age" => 30 }
);
print $people[0]->{"name"}, "\n";  # Alice

哈希中的数组

1
2
3
4
5
my %scores = (
    "math" => [90, 85, 88],
    "science" => [95, 92, 87]
);
print $scores{"math"}->[1], "\n";  # 85

多维数组

1
2
3
4
5
my $matrix = [
    [1, 2, 3],
    [4, 5, 6]
];
print $matrix->[1]->[2], "\n";  # 6

6. 引用与子程序

传递引用

避免复制大数据：

1
2
3
4
5
6
7
sub print_array {
    my ($ref) = @_;
    print "@$ref\n";
}
 
my @numbers = (1..5);
print_array(\@numbers);  # 1 2 3 4 5

返回引用

1
2
3
4
5
6
7
sub make_hash {
    my %hash = ("a" => 1, "b" => 2);
    return \%hash;
}
 
my $href = make_hash();
print $href->{"a"}, "\n";  # 1

7. 参考资料

站内链接

出站链接

其他资源

  • 《Programming Perl》 – 引用章节。
  • X社区：搜索 #PerlReferences 获取示例。

这篇指南详细介绍了Perl引用的创建、解引用及复杂数据结构的应用。如果需要更深入的内容（比如深拷贝或引用循环），请告诉我！