Perlの隠された機能？

有用な作業を行うために実際に使用できた、Perlの本当に便利ですが難解な言語機能は何ですか？

ガイドライン：

• CPANではなく、Perlコアへの回答を制限してください
• 例と短い説明を入力してください

他の言語の隠し機能にもある隠し機能：

（これらはすべてCorionの回答からです）

• C
  • ダフのデバイス
  • 移植性と標準性
• C＃
  • 空白で区切られたリストと文字列の引用
  • エイリアス可能な名前空間
• ジャワ
  • 静的イニシャライザ
• JavaScript
  • 機能はファーストクラスの市民です
  • ブロックのスコープと閉鎖
  • 変数を介して間接的にメソッドとアクセサーを呼び出す
• ルビー
  • コードによるメソッドの定義
• PHP
  • 広範なオンラインドキュメント
  • 魔法の方法
  • シンボリックリファレンス
• パイソン
  • 1行の値の交換
  • コア機能でも独自の機能に置き換える機能

その他の隠し機能：

演算子：

• ブール準演算子
• フリップフロップ演算子
  • リスト作成にも使用
• ++単項-演算子は文字列に取り組みます
• 繰り返し演算子
• 宇宙船オペレーター
• || 演算子（および//演算子）は、一連の選択肢から選択します
• ダイヤモンドオペレーター
• m//オペレーターの特別な場合
• チルド-チルド「オペレーター」

引用構文：

• qwオペレーター
• 文字は、q {}のような構成で引用区切り文字として使用できます
• 引用メカニズム

構文と名前：

• 印章の後にスペースができます
• シンボリック参照を使用して潜水艦に数値の名前を付けることができます
• 法的な末尾のコンマ
• グループ化された整数リテラル
• ハッシュスライス
• 配列からハッシュのキーを生成する

モジュール、プラグマ、およびコマンドラインオプション：

• 厳格に警告を使用する
• 汚染チェック
• -nおよび-pの難解な使用
• CPAN
• overload::constant
• IO :: Handleモジュール
• 安全なコンパートメント
• の属性

変数：

• 自動活性化
• $[変数
• ネクタイ
• 動的スコープ
• 単一ステートメントでの変数スワッピング

ループとフロー制御：

• 魔法の後藤
• for 単一の変数
• 継続条項
• 必死モード

正規表現：

• \Gアンカー
• (?{}) と正規表現の「（?? {}）」

その他の機能：

• デバッガー
• BEGIN、CHECK、ENDなどの特別なコードブロック
• DATAブロック
• 新しいブロック操作
• ソースフィルター
• シグナルフック
• 地図（2回）
• 組み込み関数のラップ
• eof機能
• dbmopen機能
• 警告をエラーに変える

その他のトリック、およびメタ答え：

• catファイル、必要に応じてgzipを解凍
• Perlのヒント

関連項目：

• Cの隠し機能
• C＃の非表示機能
• C ++の隠された機能
• Javaの隠された機能
• JavaScriptの隠された機能
• Rubyの隠し機能
• PHPの隠された機能
• Pythonの隠し機能
• Clojureの非表示の機能

フリップフロップ演算子は、フラグ変数を使用せずに、ファイルハンドルから返されたレコード（通常は行）をループするときに最初の反復をスキップする場合に便利です。

while(<$fh>)
{
  next if 1..1; # skip first record
  ...
}

perldoc perlop詳細と例については、「フリップフロップ」を実行して検索してください。

Perlには自明ではない機能がたくさんあります。

たとえば、印章の後にスペースができることをご存知ですか？

 $ perl -wle 'my $x = 3; print $ x'
 3

または、シンボリック参照を使用する場合、サブに数値の名前を付けることができますか？

$ perl -lwe '*4 = sub { print "yes" }; 4->()' 
yes

「ブール」疑似演算子もあり、真の式の場合は1を返し、偽の場合は空の文字列を返します。

$ perl -wle 'print !!4'
1
$ perl -wle 'print !!"0 but true"'
1
$ perl -wle 'print !!0'
(empty line)

その他の興味深いもの：use overload文字列リテラルと数値をオーバーロードできます（たとえば、それらをBigIntsにするなど）。

これらの多くは実際にはどこかで文書化されているか、文書化された機能から論理的にフォローされていますが、それでもあまり知られていないものもあります。

更新：もう1ついいもの。q{...}引用構文の下で言及されましたが、区切り文字として文字を使用できることをご存知ですか？

$ perl -Mstrict  -wle 'print q bJet another perl hacker.b'
Jet another perl hacker.

同様に、正規表現を書くことができます：

m xabcx
# same as m/abc/

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;

（シェルのメタ文字を含むファイル名を処理するために必要な$ _の前後の引用符）

この<>機能は@ARGV、「。gz」または「.Z」で終わるすべてのファイルを解凍します。

while (<>) {
    print;
}

Perlの私のお気に入りの機能の1つは、ブール||演算子を使用して一連の選択肢から選択することです。

 $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; ＃$ xがfalseの場合、値は0になります。

$ x // = 0; ＃$ xが未定義の場合、値はゼロになります。

チェリオ、

ポール

演算子++と単項-は、数値だけでなく文字列でも機能します。

my $_ = "a"
print -$_

プリント-a

print ++$_

プリントb

$_ = 'z'
print ++$_

プリントAA

Perlは他のリストのほとんどすべての「難解な」部分を持っているので、Perlができないことの1つを説明します。

//演算子は正規表現に使用されるため、Perlができないことの1つは、コードに任意のURLを含めることです。

Perlが提供する機能があなたに明らかでない場合に備えて、完全に明らかではない可能性があるエントリの選択リストを次に示します。

ダフのデバイス - Perlで

移植性とStandardness - CコンパイラよりもPerlで複数のコンピュータは、おそらくあります

ファイル/パスの操作クラス - ネットよりもさらに多くのオペレーティングシステム上のファイル::検索作品

空白区切りのリスト株価 や文字列は - Perlは、あなたのリストと文字列の区切り文字にはほとんど任意の引用符を選択することができます

エイリアス可能な名前空間-Perlはグロブ割り当てを通じてこれらを持っています：

*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' )

コードのメソッドを定義する - Perlはあまりにもすることができます：

*foo = sub { print "Hello world" };

Pervasive online documentation - Perlのドキュメントはオンラインであり、おそらくシステムにもあります

「存在しない」関数を呼び出すたびに呼び出されるマジックメソッド -PerlはAUTOLOAD関数にそれを実装します

シンボリック参照 -これらに近づかないようにしてください。彼らはあなたの子供を食べます。しかし、もちろん、Perlを使用すると、血に飢えた悪魔に子供を提供できます。

1行の値スワッピング -Perlはリストの割り当てを許可します

コア機能でも独自の機能に置き換える機能

use subs 'unlink'; 
sub unlink { print 'No.' }

または

BEGIN{
    *CORE::GLOBAL::unlink = sub {print 'no'}
};

unlink($_) for @ARGV

Autovivification。私の知る限り、他の言語にはありません。

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と同じように機能しますが、システムコマンドとして非対話的に実行します。標準出力から生成されたすべてのテキストを返します。（リダイレクションは、OSでサポートされている場合も出てきます）逆引用符（ `文字）も使用されます。

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 //が表示されることもあります。

実際には隠されていませんが、Perlプログラマーの多くはCPANについて知りません。これは特に、フルタイムのプログラマーではないか、Perlでフルタイムでプログラミングしていない人に当てはまります。

「for」ステートメントは、「with」がPascalで使用されるのと同じ方法で使用できます。

for ($item)
{
    s/&‎nbsp;/ /g;
    s/<.*?>/ /g;
    $_ = join(" ", split(" ", $_));
}

変数名を繰り返すことなく、一連のs ///操作などを同じ変数に適用できます。

注：上の改行しないスペース（＆nbsp;）には、Markdownを回避するためにUnicodeが隠されています。コピーして貼り付けないでください:)

quoteword演算子は、私のお気に入りの1つです。比較：

my @list = ('abc', 'def', 'ghi', 'jkl');

そして

my @list = qw(abc def ghi jkl);

ノイズがはるかに少なく、目に優しい。SQLを書くときに本当に見逃しがちなPerlのもう1つの本当に良い点は、末尾のコンマが正当であることです。

print 1, 2, 3, ;

奇妙に見えますが、コードを別の方法でインデントすると、そうではありません。

print
    results_of_foo(),
    results_of_xyzzy(),
    results_of_quux(),
    ;

関数呼び出しに引数を追加しても、前または後の行でカンマをいじる必要はありません。単一行の変更は、周囲の行に影響を与えません。

これにより、可変個の関数を操作することが非常に快適になります。これはおそらくPerlの最も過小評価されている機能の1つです。

DATAブロックに直接貼り付けられたデータを解析する機能。プログラムなどで開くテストファイルに保存する必要はありません。例えば：

my @lines = <DATA>;
for (@lines) {
    print if /bad/;
}

__DATA__
some good data
some bad data
more good data 
more good data 

新しいブロック操作

言語を拡張する機能、疑似ブロック操作を作成する機能は1つだと思います。

1. 最初にコード参照をとることを示すサブルーチンのプロトタイプを宣言します。

   sub do_stuff_with_a_hash (&\%) {
       my ( $block_of_code, $hash_ref ) = @_;
       while ( my ( $k, $v ) = each %$hash_ref ) { 
           $block_of_code->( $k, $v );
       }
   }

2. そうすれば、それをボディで呼び出すことができます

   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もう1つの半隠された宝石です。）subブロックの前のキーワード、またはハッシュの前のコンマが必要ないことに注意してください。最終的には次のようになります。map { } @list

ソースフィルター

また、ソースフィルターもあります。あなたがそれを操作できるようにPerlがあなたにコードを渡す場所。これとブロック操作の両方は、ほとんどの場合、自宅でこれを試してはいけません。

たとえば、時間をチェックするための非常に単純な言語を作成して、いくつかの意思決定のために短いPerlの1行を許可するなど、ソースフィルターでいくつかのきちんとしたことを行いました。

perl -MLib::DB -MLib::TL -e 'run_expensive_database_delete() if $hour_of_day < AM_7';

Lib::TL 「変数」と定数の両方をスキャンし、それらを作成して、必要に応じて置き換えるだけです。

繰り返しになりますが、ソースフィルターは乱雑になる可能性がありますが、強力です。しかし、それらはデバッガをひどいものに混乱させる可能性があります-さらに、警告が間違った行番号で出力される可能性があります。Damian's 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を使用すると、大きな数値を3桁のグループに分割しても、解析可能な整数を取得できます。2_000_000_000上記の20億に注意してください。

バイナリ "x"は繰り返し演算子です：

print '-' x 80;     # print row of dashes

リストでも機能します：

print for (1, 4, 9) x 3; # print 149149149

汚染チェック。汚染チェックを有効に-tすると、汚染されたデータ（大まかに言えば、プログラムの外部からのデータ）を安全でない関数（ファイルを開く、外部コマンドを実行するなど）に渡そうとすると、perlは停止します（またはで警告します）。これは、setuidスクリプトやCGI、またはスクリプトがデータをフィードする人よりも大きな権限を持つスクリプトを作成するときに非常に役立ちます。

魔法の後藤。 goto &sub最適化された末尾呼び出しを行います。

デバッガ。

use strictとuse warnings。これらは、タイプミスの束からあなたを救うことができます。

"-n"および"-p"スイッチがPerl 5に実装されている方法に基づいて、以下を含む一見間違っているプログラムを作成できます}{。

ls |perl -lne 'print $_; }{ print "$. Files"'

これは内部的にこのコードに変換されます：

LINE: while (defined($_ = <ARGV>)) {
    print $_; }{ print "$. Files";
}

宇宙船オペレーターから簡単に始めましょう。

$a = 5 <=> 7;  # $a is set to -1
$a = 7 <=> 5;  # $a is set to 1
$a = 6 <=> 6;  # $a is set to 0

これはメタアンサーですが、Perlヒントアーカイブには、Perlで実行できるあらゆる種類の興味深いトリックが含まれています。以前のヒントのアーカイブは閲覧用にオンラインであり、メーリングリストまたはAtomフィードを介して購読できます。

私のお気に入りのヒントには、PARを使用して実行可能ファイルを構築すること、オートダイを使用して自動的に例外をスローすること、Perl 5.10でスイッチとスマートマッチコンストラクトを使用することが含まれます。

開示：私はPerl Tipsの作成者およびメンテナーの1人なので、明らかに非常に高く評価しています。;）

マップ -コードをより表現力豊かにするだけでなく、この「関数型プログラミング」についてもう少し読む衝動を与えたからです。

ループの継続句。次のループであっても、すべてのループの最後で実行されます。

while( <> ){
  print "top of loop\n";
  chomp;

  next if /next/i;
  last if /last/i;

  print "bottom of loop\n";
}continue{
  print "continue\n";
}

私の投票は、Perlの正規表現の（？{}）グループと（?? {}）グループに行きます。1つ目は戻り値を無視してPerlコードを実行し、2つ目は戻り値を正規表現として使用してコードを実行します。

while(/\G(\b\w*\b)/g) {
     print "$1\n";
}

\ Gアンカー。それはだ熱いです。

m//オペレータは、いくつかのあいまいな特殊なケースがあります。

• ?区切り文字として使用する場合、を呼び出さない限り、1回だけ一致しますreset。
• '区切り文字として使用する場合、パターンは補間されません。
• パターンが空の場合、最後に一致したパターンが使用されます。

nullファイルハンドルのひし形演算子 <>は、コマンドラインツールの構築に使用されます。<FH>ハンドルから読み取るように動作しますが、最初に見つかったコマンドラインファイル名またはSTDINのいずれかを魔法のように選択します。perlopから取得：

while (<>) {
...         # code for each line
}

特別なコードブロックのようなBEGIN、CHECKとEND。それらはAwkからのものですが、Perlではレコードベースではないため、動作が異なります。

このBEGINブロックを使用して、解析フェーズのコードを指定できます。syntax-and-variable-checkを実行したときにも実行されますperl -c。たとえば、構成変数を読み込むには：

BEGIN {
    eval {
        require 'config.local.pl';
    };
    if ($@) {
        require 'config.default.pl';
    }
}

rename("$_.part", $_) for "data.txt";

自分で繰り返すことなく、data.txt.partをdata.txtに名前変更します。

少しあいまいなのは、スカラーコンテキストを強制するチルダ-チルダ「演算子」です。

print ~~ localtime;

と同じです

print scalar localtime;

とは異なります

print localtime;

tieは、可変結合インターフェースです。

一致するラベルを見つけるためにスタックを調べさせるPerlのループ制御構造の「必死モード」は、Test :: Moreが好むまたは好まない、いくつかの奇妙な動作を可能にします。

SKIP: {
    skip() if $something;

    print "Never printed";
}

sub skip {
    no warnings "exiting";
    last SKIP;
}

ほとんど知られていない.pmcファイルがあります。「use Foo」は、Foo.pmの前に@INCでFoo.pmcを探します。これは、コンパイルされたバイトコードを最初にロードできるようにすることを目的としていましたが、Module :: Compileはこれを利用して、ソースのフィルタリングされたモジュールをキャッシュし、ロード時間を短縮してデバッグを容易にします。

警告をエラーに変換する機能。

local $SIG{__WARN__} = sub { die @_ };
$num = "two";
$sum = 1 + $num;
print "Never reached";

これについては、言及されていない頭上から考えることができます。

山羊演算子*：

$_ = "foo bar";
my $count =()= /[aeiou]/g; #3

または

sub foo {
    return @_;
}

$count =()= foo(qw/a b c d/); #4

これは、スカラーコンテキストでのリスト割り当てにより、割り当てられているリスト内の要素の数が得られるため機能します。

* 注、実際には演算子ではありません