Perl/ファイルシステム関係のバックアップ(No.1)

バックアップ一覧
ソースを表示
Perl/ファイルシステム関係は削除されています。
- 1 (2006-04-20 (木) 05:41:24)

Perlのファイルシステム関係

Perlのファイル演算子

読みだし可能	-r	書き込み可能	-w
実行可能	-x	ユーサ所有	-o
存在している	-e	サイズ0	-z
サイズ0でない	-s	普通のファイル	-f
ディレクトリ	-d	シンボリックリンク	-l
ソケット	-S	名前付パイプ	-P
ブロックデバイス	-b	キャラクタデバイス	-c
テキストファイル	-T	バイナリファイル	-B
最終更新時刻からの日数	-M	最終アクセス時刻からの日数	-A

現在のディレクトリを取得

 use Cwd;
 $dir = cwd;

ファイル比較

 use File::Compare;
 if (compare("file1","file2") == 0) {
     print "They're equal\n";
 }

シリアライズ

Data::Dumper

 use Data::Dumper;
 open(FILE,"> out.txt") || die;
 print FILE Data::Dumper->Dump([ $ref ]);
 close(FILE);

 use Data::Dumper;
 $ref = require("out.txt");

Storable(速い)

 use Storable qw(store retrieve freeze thaw dclone);
 
 %color = ('Blue' => 0.1, 'Red' => 0.8, 'Black' => 0, 'White' => 1);
 
 store(\%color, '/tmp/colors') or die "Can't store %a in /tmp/colors!\n";
 
 $colref = retrieve('/tmp/colors');
 die "Unable to retrieve from /tmp/colors!\n" unless defined $colref;
 printf "Blue is still %lf\n", $colref->{'Blue'};
 
 $colref2 = dclone(\%color);
 
 $str = freeze(\%color);
 printf "Serialization of %%color is %d bytes long.\n", length($str);
 $colref3 = thaw($str);

*参考

http://perldoc.jp/docs/modules/Storable-2.05/Storable.pod