問題タブ [data-dumper]

このスクリプトを実行すると、次のエラーが発生します。

すべての Net::DNS、Data::Dumper、および Getopt::Long モジュールがインストールされていることを確認しました。

./script --filename と入力できるようにするにはどうすればよいですか?

ファイル名は、検証するドメイン名のリストです。

私はData::Dumper長い間使用しています。Google で検索しているときに、もう 1 つ同様のモジュールが見つかりましData::Dumpた。

それらが提供するサブルーチンの主な違いは何ですか?

私のプログラミング スキルはせいぜい中級で、Perl はあまり使ったことがありません。

受信メールから元の「送信元アドレス」(「エンベロープ送信元アドレス」ではない) を抽出しようとしています。

サーバー上の MailScanner ソフトウェアを通過する受信メールを解析します。私が書いた場合（MailScannerの組み込みメッセージオブジェクトを使用）：

次のログ エントリ (サニタイズ済み) を取得します。

私が書いた場合（MailScannerの作者による提案に基づいて）：

次のログ エントリが表示されます。

その結果をどうするかわからないので、オンラインで見つけた MailScanner 互換スクリプトを介して Data::Dumper を使用してみましたが、次の結果が得られました。

等々。

そこで次に、mail_hdr_list を次のように解析してみます。

そして、私はこの結果を得る:

私は困惑しています。このオブジェクトから From: アドレスを取得する方法がわかりませんが、envelope-from アドレスは取得できません。

私のコードを書き直す助けがあれば大歓迎です。

以下のコードを使用すると、出力が得られますが、「幅」、「file_media_type」、「file_ext」の値が必要ですが、この値を個別に取得できません。私はPerlにとても慣れていないので、助けてください!

コード

出力

Perl を使用していくつかの API クエリを実行し、Data::Dumper を使用してコンテンツを出力し、できればいくつかのキーを変数として割り当てています。

ただし、特定のキー (b4) の出力を出力したり、変数として定義したりすることはできません。

これは JSON 形式の HASH/ARRAY/HASH/HASH/Key=>Value のネストされたデータ構造によるものだと思います。

参照されたレイアウトから値「24」を取得するにはどうすればよいですか?

以下のルーチンを作成して、ハッシュ 0 ～ 7 を反復処理し、それぞれの特定のキーの値を出力しました。各ハッシュで「b4」の値を取得する必要があります。

(0..7) を廃止したいと思います。ハッシュの数が異なる場合に備えて、よりスマートなものを使用します。たとえば、2 つだけの場合もあれば、160 の場合もあります。

データは次のように構造化されています。

Perl でシリアライズとデシリアライズを行う必要があります。Data::Dumperと がこの仕事に最適ではないことは承知していevalますが、私が取り組んでいるレガシー スクリプトでこの側面を変更することは許可されていません。
以下に 2 つの使用方法 ( CODE 1とCODE 2 ) を示しますeval。CODE 1
では、ハッシュは を介し​​て逆シリアル化される前に文字列として使用できます。CODE 2 では、ハッシュは を使用してシリアライズされてから、 を介してデシリアライズされます。 eval
Dumpereval

どちらのコード サンプルでも、逆シリアル化を試みる 2 つの方法のうちの 1 つが機能します。逆シリアル化する他の方法が機能しないのはなぜですか?

コード 1

出力

ただし、以下のコードは逆の方法で機能します:
CODE 2

出力