固定長データの読み込み
unpackまたは、マッチでできます。
use strict;
use warnings;
my $str = 'aBCdefGHIJ';
# 下記のどちらでも $str を1,2,3,4文字に分割したものを
# @aaa に格納します
my @aaa = unpack 'a1a2a3a4', $str; # unpack
#my @aaa = $str =~ /(.)(..)(...)(....)/; # マッチ
foreach my $val (@aaa) {
print $val, "\n";
}
