3 번째 수정본 소스 보기 : Perl/Storable

내용출력

로그인[l]

수정할 수 없습니다: Perl/Storable 는 읽기 전용 페이지입니다.

[[Perl]]의 복잡한 자료구조를 파일에 저장하거나 불러올 수 있음

== # 예1 ==
두 개의 배열을 저장하고 불러오는 예<footnote(Intermediate Perl, Chapter 6.4)>
{{{#!vim perl
use Storable;
my @data1 = qw(one won);
my @data2 = qw(two too to);
push @data2, \@data1;
push @data1, \@data2;
# 위 자료구조는 두 배열이 서로의 레퍼런스를 가지고 있는 상황으로써, 실제로는 바람직하지 않음

# 저장할 데이타를 하나의 레퍼런스에 넣고 파일명을 두번째 인자로 추가
store [\@data1, \@data2], 'some_file';



# 불러오는 코드


use Storable;
my $result = retrieve 'some_file';
# Data::Dumper를 사용해서 출력
use Data::Dumper;
$Data::Dumper::Purity = 1;
print Dumper($result);


# 처음 저장했을 때처럼 두 개의 배열을 각각 따로따로 얻고 싶다면
use Storable;
# $arr1과 $arr2는 두 배열의 레퍼런스
my ($arr1, $arr2) = @{ retrieve 'some_file' };
use Data::Dumper;
$Data::Dumper::Purity = 1;
print Dumper($arr1, $arr2);

# or equivalently:
use Storable;
my $result = retrieve 'some_file';
use Data::Dumper;
$Data::Dumper::Purity = 1;
print Dumper(@$result);
}}}
<div class="comments">
<longcomments(100)>
----

</div>
----
[[컴퓨터분류]]

Perl/Storable 페이지로 돌아가기 | 다른 수정본 보기