Perl 的变量是程序的核心组成部分，用于存储和操作数据。本文将介绍变量的类型、声明方式、作用域以及常见用法。

目录

  1. 变量概述
  2. 变量类型
  3. 变量声明
  4. 作用域
  5. 特殊变量
  6. 变量操作示例
  7. 参考资料

1. 变量概述

Perl 中的变量根据前缀符号分为三类：

  • 标量 ($)：存储单个值。
  • 数组 (@)：存储有序列表。
  • 哈希 (%)：存储键值对。

变量无需显式指定数据类型，Perl 会根据上下文自动处理。

站内链接：了解数据类型基础，见 Perl 数据类型。

2. 变量类型

标量变量 ($)

存储数字、字符串或未定义值：

my $name = "Alice";
my $age = 25;
my $undef_var;  # 默认 undef

数组变量 (@)

存储多个值：

my @colors = ("red", "blue", "green");
print $colors[0];  # 访问第一个元素：red

哈希变量 (%)

存储键值对：

my %student = ("name" => "Bob", "grade" => "A");
print $student{"name"};  # Bob

3. 变量声明

使用 my

my 定义局部变量，推荐在 use strict; 模式下使用：

use strict;
use warnings;

my $x = 10;
print "$x\n";  # 10

使用 our

our 定义全局变量，作用于当前包：

our $global = "I’m global";
print "$global\n";

不声明（不推荐）

若不用 my 或 our，变量默认为全局，但会导致代码混乱：

$x = 5;  # 全局变量，不建议

4. 作用域

局部作用域

my 创建的变量只在定义的块（如 {}）内有效：

{
    my $temp = "Temporary";
    print "$temp\n";  # Temporary
}
print "$temp\n";  # 错误：$temp 未定义

全局作用域

our 或未声明的变量在整个脚本中有效：

our $shared = "Shared";
sub test {
    print "$shared\n";  # Shared
}
test();

动态作用域（local）

local 临时修改全局变量的值，仅在当前块有效：

$global = "Original";
{
    local $global = "Modified";
    print "$global\n";  # Modified
}
print "$global\n";  # Original

5. 特殊变量

Perl 内置了一些特殊变量，常用如下：

  • $_：默认变量，常用于循环或正则：
foreach ("a", "b", "c") {
    print "$_\n";  # a, b, c
}
  • @ARGV：命令行参数：
print "First arg: $ARGV[0]\n";  # 运行：perl script.pl arg1
  • $!：错误信息：
open(my $fh, '<', 'file.txt') or die "错误：$!";

站内链接：更多特殊变量用法，见 Perl 基础语法。

6. 变量操作示例

标量操作

my $str = "Perl";
$str .= " is fun!";  # 连接字符串
print "$str\n";      # Perl is fun!

数组操作

my @numbers = (1, 2, 3);
push @numbers, 4;    # 添加元素
my $last = pop @numbers;  # 删除并返回末尾
print "@numbers\n";  # 1 2 3

哈希操作

my %data = ("key1" => "value1");
$data{"key2"} = "value2";  # 添加键值对
delete $data{"key1"};      # 删除键
print "$data{'key2'}\n";   # value2

7. 参考资料

站内链接

出站链接

其他资源

  • 《Learning Perl》 – 变量章节。
  • X社区：搜索 #PerlVariables 获取代码分享。

这篇指南详细介绍了Perl变量的类型、声明和操作。如果需要深入某个方面（比如特殊变量的完整列表或复杂作用域示例），请告诉我！