Perl/Storable

1. 예1

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);

$info = Storable::file_magic( $filename )