問題タブ [perl]

プログラム (または関数) の実際の出力と参照出力の差分を表示できる Perl モジュールはありますか? 違いがある場合、テストは失敗します。

また、違いはあるが出力に問題がない場合（機能が変更されたため）、実際の出力を将来の参照出力としてコミットできるようにしたいと考えています。

Sys :: SyslogをSolarisで動作させる人はいますか？（私はSPARCのSunOS5.10のPerlv5.8.4でSys:: Syslog 0.05を実行しています）。これが私にとってうまくいかないことです：

私が何をしても、closelogはエラーを返し、何もログに記録されません。

私はこの質問をインタビューで使用しますが、最善の解決策は何でしょうか。

n個のリストを取得して2^ n -1個のリストを返し、どの項目がどのリストにあるかを示すPerlサブを記述します。つまり、最初のリスト、2番目のリスト、1番目と2番目のリストの両方、およびその他すべてのリストの組み合わせにのみ含まれるアイテムです。nが適度に小さい（20未満）と仮定します。

例えば：

ここで、最初の結果リストはリスト1のみにあるすべてのアイテムを示し、2番目の結果リストはリスト2のみにあるすべてのアイテムを示し、3番目の結果リストは両方のリストにあるすべてのアイテムを示します。

ここで、最初のリストはリスト1のみにあるすべてのアイテムを示し、2番目のリストはリスト2のみにあるすべてのアイテムを示し、3番目のリストは最初の例のようにリスト1と2の両方にあるすべてのアイテムを示します。4番目のリストはリスト3にのみ存在するすべてのアイテムを示し、5番目のリストはリスト1と3にのみ存在するすべてのアイテムを示し、6番目のリストはリスト2と3にのみ存在するすべてのアイテムを示し、7番目のリストはすべてのアイテムを示します。 3つのリストすべてに含まれています。

私は通常、この問題をn =2の場合のこの問題のサブセットのフォローアップとして提供します。

解決策は何ですか？

フォローアップ：リストの項目は文字列です。重複がある可能性がありますが、それらは単なる文字列であるため、重複は出力で潰す必要があります。出力リスト内のアイテムの順序は重要ではなく、リスト自体の順序も重要です。

私はどのスクリプト言語も初めてです。それでも、他のスクリプトを自分の目的に合わせて調整するのと少し似た方法でスクリプトを作成しました。私にとって、Perl を学ぶのに最適なオンライン リソースは何ですか?

Perl 用の優れたコード難読化ツールを知っている人はいますか? クライアントにリリースする前に、コードを難読化するオプションを検討するよう求められています。難読化されたコードがリバース エンジニアリングされる可能性があることは知っていますが、それは私たちの主な関心事ではありません。

一部のクライアントは、私たちが提供したソース コードに小さな変更を加えており、何か問題が発生して修正しなければならない場合や、変更内容で機能しないパッチをリリースした場合に悪夢に見舞われます。したがって、意図は、彼らがコードに独自の変更を加えることを困難にすることです(とにかくそれを行うことは想定されていません)。

win32.perl.org Webサイトは、 MSWindows用のいくつかのPerlディストリビューションへの参照を提供します。

長い間、 ActiveStateのActivePerlを使用していましたが、最近StrawberryPerlに切り替えました 。

IMHO ActivePerlがStrawberryPerlに対してまだ持っている唯一の利点は、Perl Tkが付属しているという事実です 。これは、グラフィカルデバッガーであるDevel::ptkdbを簡単にインストールできることを意味します。それ以外に、StrawberryPerlにはすべての利点があると思います。

現在、単純なシェルワンライナーで特定のファイルを監視しています:

PerlにはExcelファイルを処理するための優れたモジュールがあることを知っているので、たとえば、おそらくcronを使用してそのチェックを毎日実行し、結果をスプレッドシートに書き込んでさらに統計的に使用するという考えです。

パール? パール？パール？良いスタイルとは？

私は答えを知っています。私は、質問がそこにあり、質問者が正しい形式があることを認識していることを確認したかっただけです.

信頼できないサーバーへのリクエストを実装しようとしています。リクエストはあると便利ですが、perl スクリプトが正常に完了するために 100% 必要というわけではありません。問題は、サーバーがときどきデッドロックし (理由を突き止めようとしています)、要求がまったく成功しないことです。サーバーはそれがライブであると認識しているため、ソケット接続を開いたままにしておくため、LWP::UserAgent のタイムアウト値は何の役にも立ちません。リクエストに絶対タイムアウトを強制する最良の方法は何ですか?

参考までに、これは DNS の問題ではありません。デッドロックは、Postgres データベースに同時にヒットする膨大な数の更新と関係があります。テスト目的で、本質的に while(1) {} 行をサーバーの応答ハンドラに入れました。

現在、コードは次のようになっています。

シグナルを使用してタイムアウトをトリガーしようとしましたが、うまくいかないようです。

私が使用する最終的な回答は、誰かがオフラインで提案したものですが、ここで言及します。何らかの理由で、SigAction は機能しますが、$SIG(ALRM) は機能しません。理由はまだわかりませんが、これは動作することがテストされています。2 つの作業バージョンを次に示します。

irbRuby やpythonPythonのコマンドと同様に、Perl の対話型コンソールを起動するにはどうすればよいですか?