なぜperlが悪いのですか？

おそらく「吸う」という言葉はあまりにも粗野ですが、

「なぜCが悪い」

そして

「なぜC ++が悪い」

これはおそらく正しい見出しです。



まず、Perlが現在私のお気に入りの言語であることを教えてください

プログラミング。 私は彼の力、彼の優雅さ、そして、

とりわけ、私は彼の表現力が大好きです。 しかし、Perl、

確かに欠陥がないわけではありません。



この記事の口調は否定的なものとは考えられていません。 知っておくと役に立つと思います。

使用されているプログラミング言語、特に人気のある言語の弱点について、

そのため、これらの弱点が他の言語に該当しないことを確信しています。



だから、ここにPerlの問題のリストがあります：

1. オブジェクトの継承はありません。

   
   
   
   
   Perlの継承は、 ISA配列を介して実装されます（
   
   「これは問題です」など）
   
   あるパッケージから別のパッケージへの祝福されたリンクを介したメソッド。
   
   たとえば、SomeClassのグローバルにSomeOtherClassが含まれている場合
   
   ISA配列、SomeOtherClassメソッドを直接呼び出すことができます
   
   SomeClassのbless-nutyリンク経由。
   
   
   
   残念ながら、オブジェクトを継承する本当の方法はありません
   
   Perlの別のクラスの場合、メソッドのみを継承できます。 通常
   
   回避策で使用-必要なクラスのコンストラクターから
   
   継承すると、クラスのコンストラクターが呼び出され、
   
   オブジェクトを取得し、独自のフィールドをハッシュに追加してから、
   
   オブジェクトをクラスに再度bless-nullします。
   
   
   
   

   パッケージSomeClass;
    SomeOtherClassを使用します。
   
    @ISA = 'SomeOtherClass';
   
    sub new {
   	私の$ class = shift;
   
   	 ＃新しいSomeOtherClassオブジェクトを作成します。
   	私の$ self = $ class-> SUPER :: new;
   
   	 ＃それを台無しに：
   	 $ self-> {'_ something'} = 1;
   	 $ self-> {'_ something_else'} = 2;
   
   	 ＃今、それをSomeClassに祝福します：
   	 bless（$ self、$ class）;
   	 $ selfを返します。
    }
   
    1;
   

   
   
   
   
   問題は、カプセル化の法律に違反していることです
   
   抽象化：オブジェクトの実装の詳細を知る必要があります。
   
   あなたはそれを継承します
   
   そのフィールドは直接。 1つのグローバル変数を宣言できます
   
   パッケージ化し、これらの変数を操作するプロシージャを作成してから、
   
   これらの手順を継承しますが、そうではありません。
   
   
   
   無数のオブジェクト指向モジュールで
   
   CPAN Perlはもともと純粋に設計されていたことを忘れがちです
   
   構造プログラミング言語。 そのような瞬間はそれを完全に明確にします：
   
   Perlのオブジェクト指向は、本当に祝福されたリンクとほんの少しにすぎません
   
   構文糖。
   
   
   
   

   参照カウンター。

   
   
   
   
   Perlはガベージコレクターの参照カウンターを使用して、簡単な方法
   
   タイムリーなリリースを保証するメモリ管理
   
   未使用のリソース。 すべてのスカラー、配列、ハッシュ、その他のもの
   
   1で始まる組み込みの参照カウンター。 毎回
   
   この変数のリンクが作成されると、参照カウント
   
   増加します。 リンクが削除されると、カウンターが減少します。 いくつかで
   
   最後のリンクが削除され、カウンターがゼロになった瞬間、
   
   この変数に使用されていたメモリは解放されます。
   
   この問題は、相互に参照する2つの変数がある場合に発生します
   
   親ハッシュと子のハッシュのような友人。
   
   相互リンク。 誰のカウンターも減らすことができないので
   
   最後のリンクが破棄されるまでゼロになります。
   
   2番目が解放されるまで解放され、その結果、両方が残ります
   
   メモリにハングアップします。 これは、循環参照と呼ばれるものです。
   
   （追加情報を参照してください：
   
   http://www.perl.com/pub/a/2002/08/07/proxyobject.html
   
   ）
   
   
   
   これは、Perlのメモリリークの修正が予想外に簡単であることを意味します。
   
   多くの有望なPerlハッカーが偶然これを行った。 彼らは考えた：
   
   「はい、このオブジェクトに親への参照が含まれていると便利です。
   
   逆もまた同様です」と、メモリリークが発生します。
   
   
   
   参照カウンターを使用するのは、Perlだけではありません。VB
   
   PHPのように、Pythonはまだ使用しています。
   
   
   
   おそらくリンク数の最大の問題は余分なものです
   
   XS拡張機能の作成者にロードします。 カウンターはそれらを作り出す
   
   コード全体でSvREFCNT_inc（）およびSvREFCNT_dec（）を呼び出し、それを制御します
   
   各SvREFCNT_inc（）には、対応するSvREFCNT_dec（）があります。 なに
   
   次の迷惑に私を導きます...
   
   
   
   

   直感的なAPIではありません。

   
   
   
   
   Perl C APIはかなり好奇心is盛です。 まず、目に見えるものはありません
   
   命名規則。 いくつかのプロシージャ名が混在しています
   
   ケース、たとえばnewSViv（）、その他には
   
   アンダースコア、たとえば、newRV_noinc（）。 多くの変数名と
   
   構造体のメンバーには短い名前があります。
   
   長さは「Cur」、サイズは「len」。
   
   
   
   APIにはマクロもたくさんあり、その多くはドキュメント化されていません
   
   perlapiまたはその他のマニュアルページ（HvKEYS（）など）
   
   
   
   そして、人生をさらに面白くするために、
   
   文書化されているが、カウンターを変更するかどうかはよく言われない
   
   引数への参照。
   
   
   
   

   スカラーコンテキストでの配列/リストの非直感的な動作。

   
   
   
   
   私は、次のような余分な括弧でコードを書くのは本当に好きではありません：
   
   
   
   

    my（$ first_field）= split（/ \ t /、$ tab_delimited_fields）; 
   

   
   
   
   
   何らかの関数から返されるリストまたは配列を妨害するため、
   
   ふるまい。
   
   
   
   Perlでは、配列はスカラーで使用するとサイズを返します
   
   コンテキスト、およびリスト（例：プログラムテキストの「（70、80、90）」）
   
   最後のアイテムを返します。 まず、一般的な目的のために
   
   リストと配列の違いを導入しましたか？ 第二に、いつ、なぜ
   
   スカラーコンテキストでリストを使用する必要がある場合があります
   
   彼の最後のアイテムを取得するには？
   
   
   
   配列とリストの両方が機能した場合、はるかに良いと思います
   
   同じで、それらの代わりにスカラーコンテキストの最初の要素を返しました
   
   長さまたは最後のアイテム。 次に、次のようなコードを記述できます。
   
   
   
   

   私の$ email_address = $ input =〜/（\ S + \ @ \ S +）/; 
   

   
   
   
   
   彼は働くだろう。
   
   
   
   だから、あなたは尋ねて、配列のサイズを取得しますか？ じゃあどうして
   
   length（）関数を使用していますか？ 多くの初心者はこれを提案します
   
   それだけで動作するはずです。
   
   
   
   

   書式

   
   
   
   
   Perlのフォーマットは、おそらく「レポート」の一部でした
   
   「実用的な抽出とレポート言語」-もちろん「Perl」は
   
   頭字語ではなくなり、正直に言うと、
   
   使用されているフォーマット？ 実際、どのように覚えていますか
   
   彼らは使用する権利がありますか？
   
   
   
   Perlのこの大きく、完全に無視された部分は、さまざまな方法で吸い込まれます。
   
   理由。
   
   
   
   まず、フォーマットを定義するための構文は厄介です（約20
   
   または、文字「<」が次々に？）、グローバル（あなた
   
   どこかにドットで終わる大きなブロックが必要です-より可能性が高い
   
   あなたのコードの下にあるすべて）と通常とは完全に異なります
   
   Perl構文（特に忘れてしまう可能性を高める、特に
   
   あなたはそれを使用したことがないので）。
   
   
   
   第二に、フォーマットを使用して完全なことをしようとする試み
   
   冗長性につながり、多くの場合、select（）関数の使用が必要です。
   
   write（）を呼び出す前に$ ^で大騒ぎし、3つの使用を強制する
   
   十分な表現を実現するための表現。 （4
   
   式（カウントを選択して復元する場合）（）。
   
   
   
   第三に、フォーマットでできることはすべて、通常はできることです
   
   printf（）with sprintf（）-オーム。 フォーマットの構文が本当に
   
   通常は複数のprintf（）を使用して、printf（）よりも柔軟性が高い
   
   問題を解決することができます。これは、より短く、よりクリーンな方法です。
   
   おそらく、これらすべての最悪の部分は、write（）が使用されることです
   
   I / Oをread（）として実行する代わりに、存在しない形式を出力するには、
   
   その英語の反対：
   
   

   「書き込みは*「読み取り」の反対ではないことに注意してください。 残念ながら。」
   
   

   
   
   from（perldoc -f write）。
   
   
   
   

   定数やマクロはありません。

   
   
   
   
   実際、これらは2つの別個のポイントである必要があります。Perlでは
   
   変数を定数として宣言または定義する簡単な方法
   
   全体にマジックナンバーを分散させる代わりとしてのマクロ
   
   コード。
   
   
   
   はい、Perlには両方を行う定数プラグマがあります
   
   別の、しかしそれは本当に単なるハックです。 巧妙でエレガントなハックが
   
   それにもかかわらず、ハック：
   
   
   
   

   定数PORT => 80を使用します。
   

   
   
   
   
   PORTは、割り当ての右辺値として使用できるようになりました。
   
   それは定数のようなものであり、何かを割り当てる試みは
   
   致命的なエラーが発生します。 しかし、あなたが見るように、PORTは実際には
   
   定数ではなく、「引数なし」のプロトタイプを持つ単なる関数です。
   
   関数をオーバーライドするか、または
   
   「サブを使用」、または直接シンボルテーブルから。
   
   さらに重要なことは、定数の目標の1つは効率です。 する
   
   コンパイラーにとって人生はより簡単で、割り当てる必要がありません。
   
   変数に何か。 ここでは、小さなゲインの代わりに、perl、
   
   通訳者は生産性にわいせつな打撃を受けます。
   
   
   
   

   型情報はありません。

   
   
   
   
   Perlでは、スカラーには値または値への参照を含めることができます。
   
   残念ながら、Perlはどの型を見つけるための演算子を提供していません
   
   「値」にはスカラーが含まれ、演算子は型を決定するためだけのものです
   
   リンク。 これにより、たとえば、
   
   算術計算にふさわしいスカラー数
   
   難しい。 はい、Perlハッカーはその数字を考えることに慣れていることを理解しています
   
   そして、文字列は交換可能ですが、問題はまだ発生し、それはばかげています
   
   正規表現からヘルプを求めて以下を決定します。
   
   
   
   

    「数字じゃない！」  （$ thing =〜/ ^ \ d + $ /）; 
   

   
   
   
   
   もちろん、この表現はうまく機能しません。なぜなら、数字は
   
   「+」、「-」、「。」などの他の文字を含む サインを示すために、
   
   小数部または指数。
   
   
   
   ctype.hの関数でさえ、何もしないよりも便利です。
   
   
   
   Perlが持っているように見えるので、これはさらに厄介です
   
   SVにどのような値の型があるかをかなりよく推測します（C-type typedef
   
   フラグフィールドの値に基づいて、スカラーの値を記述する）、
   
   必要に応じて簡単に変換できます。
   
   
   
   

   Autovivification。

   
   
   
   
   autovivifyハッシュのキーと値のペア（翻訳者のメモ：方法がわかりません
   
   つまり、autovivifyを翻訳するという意味で-「作成される
   
   自動的に、オンザフライで））Perlで。 つまり、指定できることを意味します
   
   タイプ「autovived」の新しいキーが発生します。
   
   
   
   

    my％hash =（key1 => 'value1'、key2 => 'value2'）;
   
    $ hash {autovived} = 1;
   

   
   
   
   
   また、キー名とそれも封印できることを意味します
   
   警告なしに発生します。 大きくない
   
   ハッシュを辞書として使用するときの問題は、キーが
   
   多くの場合、他の場所から来ますが、次のようなハッシュを使用すると
   
   構造またはオブジェクト、これは問題につながります：
   
   
   
   

    $ self = {
   	名前=> undef、
           年齢=> undef
   
    ...
   
   サブネーム{
    	私の$ self = shift;
   
    	 $ self-> {Name} = @_の場合にシフト;
   
    	 return $ self-> {name};
    }
   

   
   
   
   
   ハッシュをオブジェクトとして使用するときは、常に定義して初期化します
   
   コンストラクター内の各ハッシュ要素は、少なくとも「undef」です。
   
   キーワード「静的」に何を与えないと、干渉します
   
   初期化後に新しい要素がハッシュに追加されます。
   
   
   
   

    static my $ self = {
    	名前=> undef、
    	年齢=> undef
   
    ...
   
    $ self-> {Name} = shift;  ＃致命的エラー
   

   
   
   
   
   
   
   
   
   思い浮かぶ他の弱い刺激が含まれます
   
   文字列の前のchop（）に相当するものがないため、適用できません
   
   チェーンごとの-xファイルのテスト（「-e $ filename && -T
   
   $ filename && -w $ filename "instead of" -e -T -w $ filename "or" -eTw $ filename "）、
   
   binmode（）を呼び出すための奇妙な慣習、不安定なシグナル、
   
   local（）などの名前の見当識障害、および関数sizeof（）の欠如。
   
   
   
   この16歳の言語は、しばらくの間着実に膨らんでいます。 多くの彼
   
   アスペクトは直観的でなく、効果的でなく、単に見苦しくなります。
   
   実装を変更するのが難しく、新しい機能を追加する
   
   古いものを壊すことなく非常に困難になります。
   
   
   
   Perl 6は、これらの問題の多くを修正しようとするPerlコミュニティによる試みです。
   
   実オブジェクトのサポートが追加され、参照カウンターがなくなります。
   
   シギル（$、@、％）はより直感的になり、多くの新機能が追加されます。
   
   追加されます。
   
   
   
   このトップダウンの言語の書き直しはまだ完全ではありませんが、私は、
   
   他の多くの人と一緒に、熱心に彼を待っています。 この時点まで、私は私が思う
   
   私は、Perl 5を使用してほとんどの作業を続けます。