Perl 的隐藏功能？
[英]Hidden features of Perl?
问题描述
Perl 中有哪些真正有用但深奥的语言特性，您实际上能够用来做有用的工作？
准则：
- 尝试将答案限制在 Perl 核心而不是 CPAN
- 请给出一个例子和一个简短的描述
在其他语言的隐藏功能中也发现了隐藏功能：
（这些都来自Corion的回答）
- C
- 达夫的装置
- 便携性和标准性
- C＃
- 空格分隔列表和字符串的引号
- 可别名命名空间
- 爪哇
- 静态初始化器
- JavaScript
- 函数是一等公民
- 块作用域和闭包
- 通过变量间接调用方法和访问器
- 红宝石
- 通过代码定义方法
- PHP
- 无处不在的在线文档
- 魔术方法
- 符号引用
- Python
- 一行值交换
- 能够用您自己的功能替换甚至核心功能
其他隐藏功能：
运营商：
- bool 准运算符
- 触发器运算符
- 也用于列表构建
-
++和一元-运算符处理字符串 - 重复运算符
- 飞船操作员
- || 运算符（和 // 运算符）从一组选项中进行选择
- 钻石操作员
-
m//运算符的特殊情况 - 波浪号-波浪号“运算符”
引用结构：
语法和名称：
模块、编译指示和命令行选项：
变量：
循环和流量控制：
常用表达：
其他特性：
其他技巧和元答案：
也可以看看：
78 个解决方案
解决方案1
54
触发器操作符用于在循环文件句柄返回的记录（通常是行）时跳过第一次迭代，而不使用标志变量：
while(<$fh>)
{
next if 1..1; # skip first record
...
}
运行perldoc perlop并搜索“触发器”以获取更多信息和示例。
解决方案2
47
Perl中有许多非显而易见的功能。
例如，你知道sigil之后可以有一个空格吗？
$ perl -wle 'my $x = 3; print $ x'
3
或者，如果使用符号引用，您可以给出子数字名称？
$ perl -lwe '*4 = sub { print "yes" }; 4->()'
yes
还有“bool”准运算符，它返回1表示真实表达式，空字符串表示false：
$ perl -wle 'print !!4'
1
$ perl -wle 'print !!"0 but true"'
1
$ perl -wle 'print !!0'
(empty line)
其他有趣的东西： use overload你可以重载字符串文字和数字（例如使它们成为BigInts或其他）。
这些东西中的许多实际上是在某处记录的，或者从逻辑上遵循记录的特征，但是有些并不是很清楚。
更新 ：另一个不错的。 提到q{...}引用结构下面，但是你知道你可以用字母作为分隔符吗？
$ perl -Mstrict -wle 'print q bJet another perl hacker.b'
Jet another perl hacker.
同样，您可以编写正则表达式：
m xabcx
# same as m/abc/
解决方案3
46
通过magic ARGV添加对压缩文件的支持：
s{
^ # make sure to get whole filename
(
[^'] + # at least one non-quote
\. # extension dot
(?: # now either suffix
gz
| Z
)
)
\z # through the end
}{gzcat '$1' |}xs for @ARGV;
（引用带有shell元字符的文件名所需的$ _左右的引号）
现在<>功能将解压缩任何以“.gz”或“.Z”结尾的@ARGV文件：
while (<>) {
print;
}
解决方案4
40
Perl中我最喜欢的一个功能是使用布尔值|| 运算符在一组选择之间进行选择。
$x = $a || $b;
# $x = $a, if $a is true.
# $x = $b, otherwise
这意味着可以写：
$x = $a || $b || $c || 0;
从$a ， $b和$c获取第一个真值，否则为默认值0 。
在Perl 5.10中，还有//运算符，如果已定义则返回左侧，否则返回右侧。 以下选择$a ， $b ， $c或0的第一个定义值：
$x = $a // $b // $c // 0;
这些也可以与他们的简写形式一起使用，这对于提供默认值非常有用：
$x ||= 0; # If $x was false, it now has a value of 0. $x //= 0; # If $x was undefined, it now has a value of zero.
Cheerio，
保罗
解决方案5
39
运算符++和一元 - 不仅可以处理数字，还可以处理字符串。
my $_ = "a"
print -$_
打印-a
print ++$_
打印b
$_ = 'z'
print ++$_
打印aa
解决方案6
36
由于Perl几乎所有的“深奥”部分来自其他列表，我会告诉你Perl不能做的一件事：
Perl不能做的一件事就是在代码中有任意URL，因为
//运算符用于正则表达式。
为了防止Perl提供的功能不明显，这里有一些可能不是很明显的选项列表：
可移植性和标准性 - 使用Perl的计算机可能多于使用C编译器的计算机
文件/路径操作类 - File :: Find可以在比.Net更多的操作系统上运行
用于以空格分隔的列表 和字符串的 引号 - Perl允许您为列表和字符串分隔符选择几乎任意的引号
可替换的命名空间 - Perl通过glob赋值：
*My::Namespace:: = \%Your::Namespace
静态初始化程序 - Perl几乎可以在编译和对象实例化的每个阶段运行代码，从BEGIN （代码解析）到CHECK （在代码解析之后） import （在模块导入时）到new （对象实例化）到DESTROY （对象破坏）到END （程序退出）
功能是一等公民 - 就像在Perl中一样
阻止范围和关闭 - Perl都有
通过变量间接调用方法和访问器 - Perl也这样做：
my $method = 'foo';
my $obj = My::Class->new();
$obj->$method( 'baz' ); # calls $obj->foo( 'baz' )
*foo = sub { print "Hello world" };
每当你调用“不存在”函数时调用的魔术方法 - Perl在AUTOLOAD函数中实现它
符号引用 - 建议您远离这些。 他们会吃你的孩子。 但是，当然，Perl允许您为您的孩子提供嗜血的恶魔。
一行值交换 - Perl允许列表分配
use subs 'unlink';
sub unlink { print 'No.' }
要么
BEGIN{
*CORE::GLOBAL::unlink = sub {print 'no'}
};
unlink($_) for @ARGV
解决方案7
35
自动化 。 AFAIK 没有其他语言 。
解决方案8
31
在Perl中引用几乎任何类型的奇怪字符串都很简单。
my $url = q{http://my.url.com/any/arbitrary/path/in/the/url.html};
事实上，Perl中的各种引用机制非常有趣。 Perl正则表达式引用机制允许您引用任何内容，指定分隔符。 您几乎可以使用任何特殊字符，如＃，/，或打开/关闭字符，如（），[]或{}。 例子：
my $var = q#some string where the pound is the final escape.#;
my $var2 = q{A more pleasant way of escaping.};
my $var3 = q(Others prefer parens as the quote mechanism.);
报价机制：
q：字面引用; 只有需要转义的字符才是结束字符。 qq：解释性引用; 处理变量和转义字符。 非常适合您需要引用的字符串：
my $var4 = qq{This "$mechanism" is broken. Please inform "$user" at "$email" about it.};
qx：像qq一样工作，但后来作为系统命令执行，非交互式。 返回从标准输出生成的所有文本。 （重定向，如果在操作系统中受支持，也会出现）也用后引号（`字符）完成。
my $output = qx{type "$path"}; # get just the output
my $moreout = qx{type "$path" 2>&1}; # get stuff on stderr too
qr：解释像qq，但然后将其编译为正则表达式。 适用于正则表达式的各种选项。 您现在可以将正则表达式作为变量传递：
sub MyRegexCheck {
my ($string, $regex) = @_;
if ($string)
{
return ($string =~ $regex);
}
return; # returns 'null' or 'empty' in every context
}
my $regex = qr{http://[\w]\.com/([\w]+/)+};
@results = MyRegexCheck(q{http://myurl.com/subpath1/subpath2/}, $regex);
qw：一个非常非常有用的报价运算符。 将一组引用的空格分隔的单词转换为列表。 非常适合在单元测试中填写数据。
my @allowed = qw(A B C D E F G H I J K L M N O P Q R S T U V W X Y Z { });
my @badwords = qw(WORD1 word2 word3 word4);
my @numbers = qw(one two three four 5 six seven); # works with numbers too
my @list = ('string with space', qw(eight nine), "a $var"); # works in other lists
my $arrayref = [ qw(and it works in arrays too) ];
只要它能让事情变得更清晰，它们就能很好地使用它们。 对于qx，qq和q，我很可能使用{}运算符。 使用qw的人最常见的习惯通常是（）运算符，但有时你也会看到qw //。
解决方案9
27
“for”语句的使用方法与Pascal中使用的“with”相同：
for ($item)
{
s/ / /g;
s/<.*?>/ /g;
$_ = join(" ", split(" ", $_));
}
您可以将一系列s ///操作等应用于同一变量，而无需重复变量名称。
注意：上面的非中断空格（＆nbsp;）中隐藏了Unicode以规避Markdown。 不要复制贴吧:)
解决方案10
27
并非真正隐藏，但Perl程序员每天都不了解CPAN 。 这尤其适用于不是全职程序员或不在Perl全职编程的人。
解决方案11
26
引号运算符是我最喜欢的东西之一。 相比：
my @list = ('abc', 'def', 'ghi', 'jkl');
和
my @list = qw(abc def ghi jkl);
噪音更少，眼睛更容易。 关于Perl的另一个非常好的事情，一个在编写SQL时真的错过了，是一个尾随逗号是合法的：
print 1, 2, 3, ;
这看起来很奇怪，但如果你以另一种方式缩进代码则不行：
print
results_of_foo(),
results_of_xyzzy(),
results_of_quux(),
;
在函数调用中添加一个额外的参数不需要在前一行或尾随行上使用逗号。 单线更改对其周围线没有影响。
这使得使用可变参数函数非常愉快。 这可能是Perl评价最低的功能之一。
解决方案12
26
解析直接粘贴到DATA块的数据的能力。 无需保存到要在程序中打开的测试文件或类似文件。 例如：
my @lines = <DATA>;
for (@lines) {
print if /bad/;
}
__DATA__
some good data
some bad data
more good data
more good data
解决方案13
24
二进制“x”是重复运算符 ：
print '-' x 80; # print row of dashes
它也适用于列表：
print for (1, 4, 9) x 3; # print 149149149
解决方案14
24
新的块操作
我想说扩展语言的能力，创建伪块操作就是其中之一。
您声明了一个sub的原型，表明它首先需要一个代码引用：
sub do_stuff_with_a_hash (&\\%) { my ( $block_of_code, $hash_ref ) = @_; while ( my ( $k, $v ) = each %$hash_ref ) { $block_of_code->( $k, $v ); } }然后你可以像这样在身体中调用它
use Data::Dumper; do_stuff_with_a_hash { local $Data::Dumper::Terse = 1; my ( $k, $v ) = @_; say qq(Hey, the key is "$k"!); say sprintf qq(Hey, the value is "%v"!), Dumper( $v ); } %stuff_for ;
（ Data::Dumper::Dumper是另一个半隐藏的gem。）注意你不需要在块前面的sub关键字，或者在hash之前需要逗号。 最终看起来很像： map { } @list
源过滤器
此外，还有源过滤器。 Perl会将代码传递给您，以便您可以操作它。 这个以及块操作都是非常不尝试这种在家的类型。
我已经使用源过滤器做了一些巧妙的事情，例如创建一个非常简单的语言来检查时间，允许简短的Perl单行进行一些决策：
perl -MLib::DB -MLib::TL -e 'run_expensive_database_delete() if $hour_of_day < AM_7';
Lib::TL只扫描“变量”和常量，创建它们并根据需要替换它们。
同样，源过滤器可能很混乱，但功能强大。 但它们可能会使调试程序变得糟糕 - 甚至可能会使用错误的行号打印警告。 我停止使用Damian的Switch，因为调试器将无法告诉我我到底在哪里。 但我发现你可以通过修改一小段代码来减少损坏，使它们保持在同一条线上。
信号挂钩
这通常已经足够了，但并不是那么明显。 这是一个捎带旧的模具处理程序。
my $old_die_handler = $SIG{__DIE__};
$SIG{__DIE__}
= sub { say q(Hey! I'm DYIN' over here!); goto &$old_die_handler; }
;
这意味着只要代码中的某个其他模块想要死，它们就会来找你（除非其他人在$SIG{__DIE__}上进行破坏性覆盖）。 并且可以通知您某些事情是错误的。
当然，对于足够多的东西，你可以使用END { }块，如果你想做的就是清理。
overload::constant
您可以在包含模块的包中检查特定类型的文字。 例如，如果您在import子目录中使用它：
overload::constant
integer => sub {
my $lit = shift;
return $lit > 2_000_000_000 ? Math::BigInt->new( $lit ) : $lit
};
这意味着调用包中每个大于20亿的整数都将变为Math::BigInt对象。 （参见overload :: constant ）。
分组整数文字
虽然我们正在努力。 Perl允许您将大数字分成三个数字的组，并且仍然可以获得一个可解析的整数。 注意2_000_000_000以上为20亿。
解决方案15
24
污点检查。 启用污点检查后，如果您尝试将受污染的数据（粗略地说，来自程序外部的数据）传递给不安全的函数（打开文件，运行外部命令等），perl将会死（或警告，带-t ） 。 在编写setuid脚本或CGI或脚本具有比提供数据的人更多特权的任何内容时，它非常有用。
魔术转到。 goto &sub执行优化的尾调用。
调试器。
use strict并use warnings 。 这些可以帮助您摆脱一堆拼写错误。
解决方案16
22
基于在Perl 5中实现"-n"和"-p"开关的方式，你可以编写一个看似不正确的程序，包括}{ ：
ls |perl -lne 'print $_; }{ print "$. Files"'
在内部转换为此代码：
LINE: while (defined($_ = <ARGV>)) {
print $_; }{ print "$. Files";
}
解决方案17
18
让我们从宇宙飞船运营商开始 。
$a = 5 <=> 7; # $a is set to -1
$a = 7 <=> 5; # $a is set to 1
$a = 6 <=> 6; # $a is set to 0
解决方案18
18
这是一个元答案，但Perl Tips档案包含可以使用Perl完成的各种有趣的技巧。 以前的提示存档是在线浏览，可以通过邮件列表或原子订阅订阅。
我最喜欢的一些技巧包括使用PAR构建可执行文件 ， 使用autodie自动抛出异常 ，以及在Perl 5.10中使用switch和smart-match构造。
披露：我是Perl Tips的作者和维护者之一，所以我显然非常重视它们。 ;）
解决方案19
18
map - 不仅因为它使得一个人的代码更具表现力，而且因为它让我有一种冲动来阅读更多关于这种“函数式编程”的信息。
解决方案20
15
我的投票将用于Perl正则表达式中的（？{}）和（?? {}）组。 第一个执行Perl代码，忽略返回值，第二个执行代码，使用返回值作为正则表达式。
解决方案21
15
循环上的continue子句。 它将在每个循环的底部执行，即使是下一个循环。
while( <> ){
print "top of loop\n";
chomp;
next if /next/i;
last if /last/i;
print "bottom of loop\n";
}continue{
print "continue\n";
}
解决方案22
13
m//运算符有一些模糊的特殊情况：
- 如果使用
?作为分隔符，除非您调用reset否则它只匹配一次。 - 如果使用
'作为分隔符，则不插入模式。 - 如果模式为空，则使用上次成功匹配的模式。
解决方案23
13
while(/\G(\b\w*\b)/g) {
print "$1\n";
}
\\ G锚。 很热 。
解决方案24
12
null filehandle 菱形运算符 <>在构建命令行工具中占有一席之地。 它像<FH>一样从句柄中读取，除了它神奇地选择最先找到的那个：命令行文件名或STDIN。 摘自perlop：
while (<>) {
... # code for each line
}
解决方案25
11
特殊代码块 ，如BEGIN ， CHECK和END 。 它们来自Awk，但在Perl中的工作方式不同，因为它不是基于记录的。
BEGIN块可用于为解析阶段指定一些代码; 当你执行syntax-and-variable-check perl -c时也会执行它。 例如，要加载配置变量：
BEGIN {
eval {
require 'config.local.pl';
};
if ($@) {
require 'config.default.pl';
}
}
解决方案26
11
rename("$_.part", $_) for "data.txt";
将data.txt.part重命名为data.txt而不必重复自己。
解决方案27
10
有点模糊的是波形符号“操作符”，它强制标量上下文。
print ~~ localtime;
是相同的
print scalar localtime;
与...不同
print localtime;
解决方案28
9
输入记录分隔符可以设置为对数字的引用以读取固定长度的记录：
$/ = \3; print $_,"\n" while <>; # output three chars on each line
解决方案29
9
tie，变量绑定接口。
解决方案30
9
Perl的循环控制构造的“绝望模式”导致它们查找堆栈以找到匹配的标签，这允许一些好奇的行为，Test :: More利用了这些行为，无论好坏。
SKIP: {
skip() if $something;
print "Never printed";
}
sub skip {
no warnings "exiting";
last SKIP;
}
有一个鲜为人知的.pmc文件。 “使用Foo”将在Foo.pm之前在@INC中查找Foo.pmc. 这是为了允许首先加载已编译的字节码，但Module :: Compile利用此功能来缓存源过滤的模块，以加快加载速度并简化调试。
将警告变为错误的能力。
local $SIG{__WARN__} = sub { die @_ };
$num = "two";
$sum = 1 + $num;
print "Never reached";
这就是我能想到的没有被提及的头脑。
解决方案31
9
山羊运营商* ：
$_ = "foo bar";
my $count =()= /[aeiou]/g; #3
要么
sub foo {
return @_;
}
$count =()= foo(qw/a b c d/); #4
它的工作原理是因为标量上下文中的列表赋值会产生所分配列表中的元素数。
*注意，不是真正的操作员
解决方案32
7
我不知道它有多深奥，但我最喜欢的一个是hash slice 。 我用它做各种事情。 例如合并两个哈希：
my %number_for = (one => 1, two => 2, three => 3);
my %your_numbers = (two => 2, four => 4, six => 6);
@number_for{keys %your_numbers} = values %your_numbers;
print sort values %number_for; # 12346
解决方案33
7
这个不是特别有用，但它非常深奥。 我在 Perl 解析器中挖掘时偶然发现了这一点。
在 POD 出现之前，perl4 有一个技巧可以让您将手册页作为 nroff 直接嵌入到您的程序中，这样它就不会丢失。 perl4 使用名为wrapman的程序（有关详细信息，请参阅 Pink Camel 第 319 页）巧妙地将 nroff 手册页嵌入到您的脚本中。
它的工作原理是告诉 nroff 忽略所有代码，然后将手册页的内容放在END标记之后，该标记告诉 Perl 停止处理代码。 看起来像这样：
#!/usr/bin/perl
'di';
'ig00';
...Perl code goes here, ignored by nroff...
.00; # finish .ig
'di \" finish the diversion
.nr nl 0-1 \" fake up transition to first page
.nr % 0 \" start at page 1
'; __END__
...man page goes here, ignored by Perl...
我不知道 roff 魔术的细节，但您会注意到 roff 命令是 void 上下文中的字符串或数字。 通常，void 上下文中的常量会产生警告。 op.c有一些特殊的例外，允许以某些 roff 命令开头的 void 上下文字符串。
/* perl4's way of mixing documentation and code
(before the invention of POD) was based on a
trick to mix nroff and perl code. The trick was
built upon these three nroff macros being used in
void context. The pink camel has the details in
the script wrapman near page 319. */
const char * const maybe_macro = SvPVX_const(sv);
if (strnEQ(maybe_macro, "di", 2) ||
strnEQ(maybe_macro, "ds", 2) ||
strnEQ(maybe_macro, "ig", 2))
useless = NULL;
这意味着'di'; 不会产生警告，但也不会'die'; 'did you get that thing I sentcha?'; 或'ignore this line'; .
此外，数字常量0和1也有例外，它们允许使用0 .00; . 该代码声称这是用于更一般的目的。
/* the constants 0 and 1 are permitted as they are
conventionally used as dummies in constructs like
1 while some_condition_with_side_effects; */
else if (SvNIOK(sv) && (SvNV(sv) == 0.0 || SvNV(sv) == 1.0))
useless = NULL;
你知道吗， 2 while condition确实警告！
解决方案34
7
您可以使用 @{[...]} 来获得复杂的 perl 表达式的插值结果
$a = 3;
$b = 4;
print "$a * $b = @{[$a * $b]}";
打印： 3 * 4 = 12
解决方案35
6
sub load_file
{
local(@ARGV, $/) = shift;
<>;
}
以及一个适当地返回数组的版本：
sub load_file
{
local @ARGV = shift;
local $/ = wantarray? $/: undef;
<>;
}
解决方案36
6
use diagnostics;
如果您开始使用 Perl 并且以前从未这样做过，这个模块将为您节省大量时间和麻烦。 对于您可以获得的几乎所有基本错误消息，该模块将为您详细解释为什么您的代码出错，包括一些有关如何修复它的有用提示。 例如：
use strict;
use diagnostics;
$var = "foo";
给你这个有用的信息：
Global symbol "$var" requires explicit package name at - line 4.
Execution of - aborted due to compilation errors (#1)
(F) You've said "use strict vars", which indicates that all variables
must either be lexically scoped (using "my"), declared beforehand using
"our", or explicitly qualified to say which package the global variable
is in (using "::").
Uncaught exception from user code:
Global symbol "$var" requires explicit package name at - line 4.
Execution of - aborted due to compilation errors.
at - line 5
use diagnostics;
use strict;
sub myname {
print { " Some Error " };
};
你会得到这个大而有用的文本块：
syntax error at - line 5, near "};"
Execution of - aborted due to compilation errors (#1)
(F) Probably means you had a syntax error. Common reasons include:
A keyword is misspelled.
A semicolon is missing.
A comma is missing.
An opening or closing parenthesis is missing.
An opening or closing brace is missing.
A closing quote is missing.
Often there will be another error message associated with the syntax
error giving more information. (Sometimes it helps to turn on -w.)
The error message itself often tells you where it was in the line when
it decided to give up. Sometimes the actual error is several tokens
before this, because Perl is good at understanding random input.
Occasionally the line number may be misleading, and once in a blue moon
the only way to figure out what's triggering the error is to call
perl -c repeatedly, chopping away half the program each time to see
if the error went away. Sort of the cybernetic version of S.
Uncaught exception from user code:
syntax error at - line 5, near "};"
Execution of - aborted due to compilation errors.
at - line 7
从那里你可以推断出你的程序可能有什么问题（在这种情况下，打印格式完全错误）。 诊断中有大量已知错误。 现在，虽然在生产中使用这不是一件好事，但对于 Perl 的新手来说，它可以作为一个很好的学习辅助工具。
解决方案37
5
解决方案38
5
($x, $y) = ($y, $x) 是让我想学习 Perl 的原因。
列表构造函数 1..99 或 'a'..'zz' 也很不错。
解决方案39
5
@Schwern 提到通过本地化$SIG{__WARN__}将警告转化为错误。 您也可以use warnings FATAL => "all"; . 请参阅perldoc lexwarn 。
关于这一点，从 Perl 5.12 开始，您可以说perldoc foo而不是完整的perldoc perlfoo 。 最后！ :)
解决方案40
4
Schwartzian 变换是一种技术，可让您按计算出的二级索引进行有效排序。 假设您想按 md5 总和对字符串列表进行排序。 下面的评论最好向后阅读（无论如何，这是我最终写这些的顺序）：
my @strings = ('one', 'two', 'three', 'four');
my $md5sorted_strings =
map { $_->[0] } # 4) map back to the original value
sort { $a->[1] cmp $b->[1] } # 3) sort by the correct element of the list
map { [$_, md5sum_func($_)] } # 2) create a list of anonymous lists
@strings # 1) take strings
这样，您只需要进行 N 次昂贵的 md5 计算，而不是 N log N 次。
解决方案41
4
安全隔间。
使用 Safe 模块，您可以只使用 perl 构建您自己的沙箱式环境。 然后您就可以将 perl 脚本加载到沙箱中。
此致，
解决方案42
4
核心IO::Handle模块。 对我来说最重要的是它允许对文件句柄进行自动刷新。 例子：
use IO::Handle;
$log->autoflush(1);
解决方案43
4
有条件地将字符串或列表添加到其他列表中的一种有用的复合运算符是x!! 操作员：
print 'the meaning of ', join ' ' =>
'life,' x!! $self->alive,
'the universe,' x!! ($location ~~ Universe),
('and', 'everything.') x!! 42; # this is added as a list
此运算符允许类似于的反向语法
do_something() if test();
解决方案44
4
使用能力怎么样
my @symbols = map { +{ 'key' => $_ } } @things;从一个数组生成一个 hashref 数组——hashref 前面的 + 消除了块的歧义，因此解释器知道它是一个 hashref 而不是代码块。 惊人的。
（感谢 Dave Doyle 在上次多伦多 Perlmongers 会议上向我解释了这一点。）
解决方案45
4
好的。 这是另一个。 动态范围。 在另一篇文章中讨论了一点，但我没有在隐藏功能上看到它。
像 Autovivification 这样的动态范围使用它的语言数量非常有限。 Perl 和 Common Lisp 是我所知道的仅有的两个使用动态范围的方法。
解决方案46
4
使用左值使您的代码真正令人困惑：
my $foo = undef ;
sub bar:lvalue{ return $foo ;}
# Then later
bar = 5 ;
print bar ;
解决方案47
4
这个单行说明了如何使用 glob 为指定长度的单词 (4) 生成字母表的所有单词组合（A、T、C 和 G -> DNA）：
perl -MData::Dumper -e '@CONV = glob( "{A,T,C,G}" x 4 ); print Dumper( \@CONV )'
解决方案48
3
use Quantum::Superpositions;
if ($x == any($a, $b, $c)) { ... }
解决方案49
3
我最喜欢的 Perl 半隐藏特性是eof函数。 这是一个几乎直接来自perldoc -f eof的示例，它显示了如何使用它来重置文件名和$. （当前行号）轻松跨越在命令行加载的多个文件：
while (<>) {
print "$ARGV:$.\t$_";
}
continue {
close ARGV if eof
}
解决方案50
3
您可以将正则表达式和字符串中的分隔符替换为任何其他内容。 这对“倾斜牙签综合症”特别有用，示例如下：
$url =~ /http:\/\/www\.stackoverflow\.com\//;
您可以通过更改分隔符来消除大部分反击。 /bar/是m/bar/简写，与m!bar!相同m!bar! .
$url =~ m!http://www\.stackoverflow\.com/!;
您甚至可以使用平衡分隔符，如 {} 和 []。 我个人喜欢这些。 q{foo}与'foo'相同。
$code = q{
if( this is awesome ) {
print "Look ma, no escaping!";
}
};
要迷惑你的朋友（和你的语法高亮），试试这个：
$string = qq'You owe me $1,000 dollars!';
解决方案51
3
有一种更强大的方法来检查程序是否存在语法错误：
perl -w -MO=Lint,no-context myscript.pl
它可以做的最重要的事情是报告“不存在的子程序”错误。
解决方案52
3
use re debug
关于使用重新调试的文档
和
perl -MO=Concise[,OPTIONS]
简明文件
除了非常灵活、富有表现力并且适合以 C、Pascal、Python 和其他语言的风格进行编程之外，还有几个 pragmas 命令开关使 Perl 成为我的“goto”语言，用于对算法、正则表达式或快速问题进行初始 kanoodling需要解决。 我相信这两个是 Perl 独有的，也是我最喜欢的。
use re debug ：大多数现代风格的正则表达式都归功于 Perl。 虽然有许多 Perl 形式的正则表达式不能用其他语言表达，但几乎没有其他语言形式的正则表达式不能用 Perl 表达。 此外，Perl 内置了一个很棒的正则表达式调试器，用于显示正则表达式引擎如何解释您的正则表达式并匹配目标字符串。
示例：我最近正在尝试编写一个简单的 CSV 例程。 （是的，是的，我知道，我应该使用Text::CSV... ）但是 CSV 值没有被引用并且很简单。
我的第一个/^(^(?:(.*?),){$i}/是/^(^(?:(.*?),){$i}/提取 n 条 CSV 记录上的 i 记录。这很好——除了最后一条记录或 n 条记录。我可以在没有调试器的情况下看到这一点。
接下来我尝试了/^(?:(.*?),|$){$i}/这不起作用，我无法立即看到原因。 我以为我说的是(.*?)后跟逗号或 EOL。 然后我在一个小测试脚本的顶部添加了use re debug 。 啊，是的， ,|$之间的变化不是那样解释的； 它被解释为((.*?),) | ($) ((.*?),) | ($) -- 不是我想要的。
需要一个新的分组。 所以我到达了工作/^(?:(.*?)(?:,|$)){$i}/ 。 当我在正则表达式调试器中时，我惊讶于在字符串末尾匹配需要多少循环。 它是.*? 术语非常含糊，需要过多的回溯才能满足。 所以我尝试了/^(?:(?:^|,)([^,]*)){$i}/这有两件事：1）减少回溯，因为除了逗号之外的所有东西的贪婪匹配 2）允许正则表达式优化器只在第一个字段上使用一次更改。 使用 Benchmark，这比第一个正则表达式快 35%。 正则表达式调试器很棒，很少有人使用它。
perl -MO=Concise[,OPTIONS] ：B 和 Concise 框架是查看 Perl 如何解释您的杰作的perl -MO=Concise[,OPTIONS]工具。 使用-MO=Concise打印源代码的 Perl 解释器翻译结果。 Concise 有很多选项，在 B 中，您可以编写自己的 OP 代码演示。
在这篇文章中，您可以使用 Concise 来比较不同的代码结构。 您可以将源代码行与这些行生成的 OP 代码交织在一起。 一探究竟。
解决方案53
3
您可以在 HEREDOCS 上使用不同的引号来获得不同的行为。
my $interpolation = "We will interpolated variables";
print <<"END";
With double quotes, $interpolation, just like normal HEREDOCS.
END
print <<'END';
With single quotes, the variable $foo will *not* be interpolated.
(You have probably seen this in other languages.)
END
## this is the fun and "hidden" one
my $shell_output = <<`END`;
echo With backticks, these commands will be executed in shell.
echo The output is returned.
ls | wc -l
END
print "shell output: $shell_output\n";
解决方案54
3
聚会很晚，但是：属性。
属性本质上允许您定义与变量或子例程的声明相关联的任意代码。 使用这些的最好方法是使用Attribute::Handlers ； 这使得定义属性变得容易（在其他方面，属性！）。
我在 YAPC::2006 上做了一个关于使用它们声明性地组装一个可插拔类及其插件的演示，在线这里。 这是一个非常独特的功能。
解决方案55
3
我个人喜欢 s/// 操作的 /e 修饰符：
while(<>) {
s/(\w{0,4})/reverse($1);/e; # reverses all words between 0 and 4 letters
print;
}
输入：
This is a test of regular expressions
^D
输出（我认为）：
sihT si a tset fo regular expressions
解决方案56
2
以下内容与“~~”一样简短但更有意义，因为它们指示返回的内容，并且不会与智能匹配运算符混淆：
print "".localtime; # Request a string
print 0+@array; # Request a number
解决方案57
2
Axeman 提醒我包装一些内置函数是多么容易。
在 Perl 5.10 之前，Perl 没有像 Python 那样漂亮的字体。
因此，在您的本地程序中，您可以执行以下操作：
sub print {
print @_, "\n";
}
或添加一些调试。
sub print {
exists $ENV{DEVELOPER} ?
print Dumper(@_) :
print @_;
}
解决方案58
2
两件事情可以很好地协同工作：IO 处理核心字符串，以及使用函数原型使您能够使用类似 grep/map 的语法编写自己的函数。
sub with_output_to_string(&) { # allows compiler to accept "yoursub {}" syntax.
my $function = shift;
my $string = '';
my $handle = IO::Handle->new();
open($handle, '>', \$string) || die $!; # IO handle on a plain scalar string ref
my $old_handle = select $handle;
eval { $function->() };
select $old_handle;
die $@ if $@;
return $string;
}
my $greeting = with_output_to_string {
print "Hello, world!";
};
print $greeting, "\n";
解决方案59
2
在循环中使用散列作为可见过滤器的能力。 我还没有看到用另一种语言写成的东西。 例如，我无法在 python 中复制它。
例如，如果以前没有见过，我想打印一行。
my %seen;
for (<LINE>) {
print $_ unless $seen{$_}++;
}
解决方案60
2
命令行上的新 -E 选项：
> perl -e "say 'hello"" # does not work
String found where operator expected at -e line 1, near "say 'hello'"
(Do you need to predeclare say?)
syntax error at -e line 1, near "say 'hello'"
Execution of -e aborted due to compilation errors.
> perl -E "say 'hello'"
hello
解决方案61
2
例如，您可以在字符串中展开函数调用；
print my $foo = "foo @{[scalar(localtime)]} bar";
foo 2010 年 5 月 26 日星期三 15:50:30 酒吧
解决方案62
2
我最喜欢的功能是语句修饰符。
不知道我想做多少次：
say 'This will output' if 1;
say 'This will not output' unless 1;
say 'Will say this 3 times. The first Time: '.$_ for 1..3;
其他语言。 等等...
'etc' 让我想起了另一个 5.12 特性，Yada Yada 运算符。
这很棒，适合您只需要占位符的时候。
sub something_really_important_to_implement_later {
...
}
解决方案63
1
如果程序在调试器中运行，则defined &DB::DB表达式返回 true。
解决方案64
1
匹配正则表达式的插值。 一个有用的应用是在黑名单上进行匹配。 不使用插值，它是这样写的：
#detecting blacklist words in the current line
/foo|bar|baz/;
可以改写
@blacklistWords = ("foo", "bar", "baz");
$anyOfBlacklist = join "|", (@blacklistWords);
/$anyOfBlacklist/;
这更冗长，但允许从数据文件填充。 此外，如果出于某种原因在源中维护列表，则维护数组比维护 RegExp 更容易。
解决方案65
1
使用散列（其中键是唯一的）来获取列表的唯一元素：
my %unique = map { $_ => 1 } @list;
my @unique = keys %unique;
解决方案66
1
我参加聚会有点晚了，但是对内置的绑定哈希函数dbmopen()投了票——它对我帮助很大。 它不完全是一个数据库，但如果您需要将数据保存到磁盘，它可以解决很多问题并且 Just Works。 当我没有数据库、不了解 Storable.pm 时，它帮助我开始，但我知道我想要超越读取和写入文本文件。
解决方案67
1
为 unpack() 和 pack() 函数添加一个，如果您需要以其他程序使用的格式导入和/或导出数据，这非常有用。
当然，现在大多数程序都允许您以 XML 格式导出数据，而且许多常用的专有文档格式都为它们编写了相关的 Perl 模块。 但这是在您需要时非常有用的功能之一，而 pack()/unpack() 可能是人们能够为如此多的专有数据格式编写 CPAN 模块的原因。
解决方案68
1
下次你参加极客派对时，用一个 bash shell 拉出这个单衬里，女人会蜂拥而至，你的朋友会崇拜你：
找 。 -name "*.txt"|xargs perl -pi -e 's/1:(\\S+)/uc($1)/ge'
处理所有 *.txt 文件并使用 perl 的正则表达式进行就地查找和替换。 这个将“1:”后的文本转换为大写并删除“1:”。 使用 Perl 的“e”修饰符将查找/替换正则表达式的第二部分视为可执行代码。 即时单行模板系统。 使用 xargs 可以让您处理大量文件而不会遇到 bash 的命令行长度限制。
解决方案69
1
您可能认为可以这样做以节省内存：
@is_month{qw(jan feb mar apr may jun jul aug sep oct nov dec)} = undef;
print "It's a month" if exists $is_month{lc $mon};
但它不会那样做。 Perl 仍然为每个键分配不同的标量值。 Devel::Peek显示了这一点。 PVHV是哈希值。 Elt是一个键， Elt的SV是它的值。 请注意，每个 SV 都有不同的内存地址，表明它们没有被共享。
Dump \%is_month, 12;
SV = RV(0x81c1bc) at 0x81c1b0
REFCNT = 1
FLAGS = (TEMP,ROK)
RV = 0x812480
SV = PVHV(0x80917c) at 0x812480
REFCNT = 2
FLAGS = (SHAREKEYS)
ARRAY = 0x206f20 (0:8, 1:4, 2:4)
hash quality = 101.2%
KEYS = 12
FILL = 8
MAX = 15
RITER = -1
EITER = 0x0
Elt "feb" HASH = 0xeb0d8580
SV = NULL(0x0) at 0x804b40
REFCNT = 1
FLAGS = ()
Elt "may" HASH = 0xf2290c53
SV = NULL(0x0) at 0x812420
REFCNT = 1
FLAGS = ()
undef 标量占用的内存与整数标量一样多，因此您可能会问，只需将它们全部分配为 1 即可避免忘记检查exists的陷阱。
my %is_month = map { $_ => 1 } qw(jan feb mar apr may jun jul aug sep oct nov dec);
print "It's a month" if $is_month{lc $mon});
解决方案70
0
$0 是正在执行的 perl 脚本的名称。 它可用于获取运行模块的上下文。
# MyUsefulRoutines.pl
sub doSomethingUseful {
my @args = @_;
# ...
}
if ($0 =~ /MyUsefulRoutines.pl/) {
# someone is running perl MyUsefulRoutines.pl [args] from the command line
&doSomethingUseful (@ARGV);
} else {
# someone is calling require "MyUsefulRoutines.pl" from another script
1;
}
这个习惯用法有助于将带有一些有用子例程的独立脚本处理到可以导入其他脚本的库中。 Python 具有与object.__name__ == "__main__"成语相似的功能。
解决方案71
0
@Corion - Perl 中的裸 URL？ 当然可以，即使是内插字符串。 唯一重要的是在您实际用作正则表达式的字符串中。
解决方案72
0
通过在同一行上打印来显示脚本中的进度：
$| = 1; # flush the buffer on the next output
for $i(1..100) {
print "Progress $i %\r"
}
解决方案73
0
使用带有redo或其他控制字的裸块来创建自定义循环结构。
遍历返回第一个->can('print')方法的对象链表：
sub get_printer {
my $self = shift;
{$self->can('print') or $self = $self->next and redo}
}
解决方案74
0
Perl 非常适合作为灵活的 awk/sed。
例如，让我们使用一个简单的替代ls | xargs stat ls | xargs stat ，天真地做如下：
$ ls | perl -pe 'print "stat "' | sh
当输入（文件名）有空格或外壳特殊字符（如|$\\ ）时，这不起作用。 所以在 Perl 输出中经常需要单引号。
通过命令行-ne调用 perl 的一个复杂问题是 shell 在你的单行中首先被蚕食。 这通常会导致痛苦的逃避以满足它。
我一直使用的一个“隐藏”功能是\\x27来包含单引号，而不是尝试使用 shell 转义'\\''
所以：
$ ls | perl -nle 'chomp; print "stat '\''$_'\''"' | sh
可以更安全地编写：
$ ls | perl -pe 's/(.*)/stat \x27$1\x27/' | sh
这不适用于文件名中的有趣字符，即使是这样引用也是如此。 但这将：
$ ls | perl -pe 's/\n/\0/' | xargs -0 stat
解决方案75
0
“现在”
sub _now {
my ($now) = localtime() =~ /([:\d]{8})/;
return $now;
}
print _now(), "\n"; # 15:10:33
解决方案76
0
多一个...
Perl 缓存：
my $processed_input = $records || process_inputs($records_file);
在 Elpeleg 开源、Perl CMS http://www.web-app.net/
解决方案77
0
B::Deparse - Perl 编译器后端生成 perl 代码。 不是您在日常 Perl 编码中会使用的东西，但在特殊情况下可能很有用。
如果您遇到一些混淆的代码或复杂的表达式，请通过Deparse传递它。 用于找出被打高尔夫球的 JAPH 或 Perl 代码。
$ perl -e '$"=$,;*{;qq{@{[(A..Z)[qq[0020191411140003]=~m[..]g]]}}}=*_=sub{print/::(.*)/};$\=$/;q<Just another Perl Hacker>->();'
Just another Perl Hacker
$ perl -MO=Deparse -e '$"=$,;*{;qq{@{[(A..Z)[qq[0020191411140003]=~m[..]g]]}}}=*_=sub{print/::(.*)/};$\=$/;q<Just another Perl Hacker>->();'
$" = $,;
*{"@{[('A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z')['0020191411140003' =~ /../g]];}";} = *_ = sub {
print /::(.*)/;
}
;
$\ = $/;
'Just another Perl Hacker'->();
-e syntax OK
一个更有用的例子是使用 deparse 来找出 coderef 背后的代码，你可能已经从另一个模块收到了，或者
use B::Deparse;
my $deparse = B::Deparse->new;
$code = $deparse->coderef2text($coderef);
print $code;
解决方案78
-1
我喜欢我们可以在数组的任何地方插入元素的方式，比如
=> 在数组@a 中的 $i 位置插入 $x
@a = ( 11, 22, 33, 44, 55, 66, 77 );
$x = 10;
$i = 3;
@a = ( @a[0..$i-1], $x, @a[$i..$#a] );
Perl：实验特征和Perldoc
声明:本站的技术帖子网页，遵循CC BY-SA 4.0协议，如果您需要转载，请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.