Perl基础与核心概念详解
Perl是一种功能强大的文本处理语言，以其灵活性和表达能力著称。本文将详细介绍Perl的核心概念和基础知识。 变量作用域：my、our和local Perl提供了三种变量声明方式，它们各有不同的作用域规则。 my - 词法作用域变量 my声明的是词法变量，其作用域限于当前的代码块。 my $var = 1; { my $var = 2; print "$var\n"; # 输出: 2 } print "$var\n"; # 输出: 1 our - 包全局变量 our声明的是包全局变量，即使在不同的代码块中也保持相同的值。 our $var = 1; { our $var = 2; print "$var\n"; # 输出: 2 } print "$var\n"; # 输出: 2 混合使用示例 当my和our混合使用时，my变量会优先： our $var = 1; { my $var = 2; print "$var\n"; # 输出: 2（my优先） } print "$var\n"; # 输出: 1（our的值） 列表操作符 Perl提供了丰富的列表操作符，这些是Perl编程的核心工具。 grep - 列表过滤 grep操作符用于过滤列表，返回满足条件的元素。 # 获取1-1000中的所有奇数 my @odd_numbers = grep { $_ % 2 } 1..1000; # 匹配包含"fred"的行（不区分大小写） my @matching_lines = grep { /\bfred\b/i } <$fh>; # 在标量上下文中获取匹配数量 my $line_count = grep /\bfred\b/i, <$fh>; grep的工作原理： 将列表中的每个元素依次放入$_变量 在标量上下文中评估测试条件 如果结果为真，将该元素加入输出列表 map - 列表转换 map操作符用于转换列表中的每个元素。 # 格式化货币数据 my @data = (4.75, 1.5, 2, 1234, 6.9456, 12345678.9, 29.95); my @formatted_data = map { big_money($_) } @data; # 直接打印格式化结果 print "The money numbers are:\n", map { sprintf("%25s\n", $_) } @formatted_data; # 输出2的幂次 print "Some powers of two are:\n", map "\t" . ( 2 ** $_ ) . "\n", 0..15; 其他列表操作符 # 排序 my @castaways = sort qw(Gilligan Skipper Ginger Professor Mary-Ann); # 反序 my @reversed = reverse qw(Gilligan Skipper Ginger Professor Mary-Ann); 循环控制 标签循环 Perl允许为循环添加标签，从而在内层循环中控制外层循环。 ...