1

Perlスクリプトにハッシュ(別のファイルで定義されている)を入力し、それに必要な操作を行うにはどうすればよいですか?

例:

file1.pl-定義されたハッシュが含まれています。

file2.pl-file1.plからハッシュを設定する必要があるユーザー定義コード

my %tgs = (
    'articles' =>  {
        'vim' => '20 awesome articles posted',
        'awk' => '9 awesome articles posted',
        'sed' => '10 awesome articles posted'
    },

    'ebooks' =>  {
        'linux 101'   => 'Practical Examples to Build a Strong Foundation in Linux',
        'nagios core' => 'Monitor Everything, Be Proactive, and Sleep Well'
    },
);
4

1 に答える 1

1

@Gibronは実際にあなたの質問にすでに答えています。
だから私はあなたにもっと興味があるかもしれないコードをあなたに見せます。
通常のハッシュを設定する方法は、「ハッシュ上のハッシュ」を入力する方法と同じです。
Data :: Dumperを使用してハッシュ構造を直接表示しています。独自の方法を選択して、最終的なハッシュに何が含まれているかを知ることができます。

use strict;
use Data::Dumper qw(Dumper);
do 'file1.def'; # evaluate file1

# add new sub key and value to 'hash of hash'
$file1::tgs{'articles'}{'emacs'} = '21 awesome articles posted';

# create a completely new pair
$file1::tgs{'new_key'}{'new_sub_key'} = 'new_value';

# see the result
print Dumper (\%file1::tgs);
于 2013-04-04T13:08:46.660 に答える