Perl のハッシュに配列を格納して値を取り出すようにした時の備忘録です。

■説明
ハッシュに配列を格納して取り出すことだけをとりあえずやってみる:)
 


(1)ハッシュに配列を格納するスクリプトを作成

[root@example ~]# mkdir /usr/local/perl
[root@example ~]# vi /usr/local/perl/example.pl
#!/usr/bin/perl
use strict;
use warnings;

my @ARRAY = qw(1 2 3);
my %HASH = (
        ARRAY => \@ARRAY
        );

print $HASH{ARRAY}->[0], "\n";
print $HASH{ARRAY}->[1], "\n";
print $HASH{ARRAY}->[2], "\n";
[root@example ~]# chmod +x /usr/local/perl/example.pl

 

(2)実行してみる

[root@example ~]# /usr/local/perl/example.pl
1
2
3

 

(3)自作モジュールも作ってみる

[root@example ~]# mkdir /usr/local/perl/module
[root@example ~]# vi /usr/local/perl/module/Test.pm
package Test;

sub new {

        my $class = shift;
        my @ARRAY = qw(1 2 3);
        my $HASH = {
                ARRAY => \@ARRAY,
                };
        return bless $HASH, $class;

}

sub function_a {

        my $class = shift;
        my @RESULT = @{$class->{ARRAY}};
        return @RESULT;

}

1;

 

(4)モジュールを利用するスクリプト作成

[root@example ~]# vi /usr/local/perl/example2.pl
#!/usr/bin/perl
use strict;
use warnings;
use lib '/usr/local/perl/module';
use Test;

my $TEST;
my @RESULT;

$TEST = Test->new();
@RESULT = $TEST->function_a();

print @RESULT, "\n";
[root@example ~]# chmod +x /usr/local/perl/example2.pl

 

(5)実行してみる その2

[root@example ~]# /usr/local/perl/example2.pl
123

終り:)
# 手抜き・・・。


1月 9, 2013 at 9:00 pm by 黒ぶちメガネ
Category: Linux, Perlスクリプト