=head1 NAME

Enjoy! Perl Programming - No.30

=head1 SYNOPSIS

データの保存 - 固定長ファイルの操作

=head1 DESCRIPTION

Perl言語におけるファイル処理。固定長ファイルを操作する。

=head2 固定長ファイルの操作

固定長のレコードを使ってランダムアクセスファイルを実現する
には次のようにする。

    # [例題30-1]
    $Format = "A20 A8";
    print '-' x 5 . "New file created\n";
    open FH, '>no30-1.write.txt'
            or die "File open error: $!";
    print FH pack($Format,"XJR1200",600000);
    print FH pack($Format,"SRS400",1350000);
    print FH pack($Format,"XJR400",400000);
    close FH;
    print '-' x 5 . "Reading\n";
    open FH, 'no30-1.write.txt'
            or die "File open error: $!";
    while (read(FH, $buf, 28))
    {
        ($name, $price) = unpack($Format, $buf);
        print "Name = [$name] Price = [$price]\n";
    }
    close FH;
    print '-' x 5 . "Updating\n";
    open FH, '+<no30-1.write.txt' # 読み書きオープン
            or die "File open error: $!";
    seek FH, 28, 0; # 先頭から28バイトに移動
    print FH pack($Format,"SR400",298000); # 書込み
    close FH;
    print '-' x 5 . "Reading\n";
    open FH, 'no30-1.write.txt'
            or die "File open error: $!";
    while (read(FH, $buf, 28))
    {
        ($name, $price) = unpack($Format, $buf);
        print "Name = [$name] Price = [$price]\n";
    }
    close FH;

固定長レコードを使ってファイルを操作するには "pack" "unpack"
関数を利用する。レコードの区切りとなる改行文字が存在しない為
レコードの読込みには "read" 関数を利用する。固定長ファイルフ
ォーマットをサポートするシステムとのデータ交換には有効。

=head1 SEE ALSO

    "pack","unpack","seek","read" 関数のドキュメントページ。

=head1 TESTED

 OS  : Windows 2000
 Perl: ActivePerl v5.6.1 build 631

=head1 AUTHOR

 Name：吉田和弘（YOSHIDA Kazuhiro）
 Email：y-kazu@lares.dti.ne.jp
 Homepage：http://www.lares.dti.ne.jp/~y-kazu/perl/