Perl/Storable

1. 예제 코드

2. 플랫폼 호환

3. Comments

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

2. 플랫폼 호환

• 읽고 쓰는 속도가 느리다 (매번 변환해야 함)
• double 형 실수들은 해당 숫자를 텍스트로 변환해서 저장하므로 유효숫자 마지막 자리에 오차가 생긴다.
• infinity 나 Not a Number 의 경우도 정확히 저장-복원되지 않을 수 있다.

$info = Storable::file_magic( $filename )

3. Comments