FC2ブログ
スポンサーサイト
上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
固定幅データの作り方とそのばらし方
5バイト、6バイト、7バイトで形成されるデータを作ってみよう。
use strict;

my @cs = ('aaa', 'bb', 'c');
my $str = '';
$str .= "A" . $_ for (5,6,7);
print pack "$str", @cs;

結果:
aaa  bb    c      



では、これを1データごとに改行して表示してみる。
use strict;

my $c     = 'aaa  bb    c      ';
my $str ='';
$str  .= 'A' . $_ for (5,6,7);
print "'$_'", "\n" for unpack $str, $c;

結果:
'aaa'
'bb'
'c'



ワンライナーなら、

パック
print pack "@{[do{ join 'A', ('',5,6,7) }]}", ('aaa', 'bb', 'c');

解凍
print $_, "\n"
      for unpack "@{[do{ join 'A', ('',5,6,7) }]}", 'aaa  bb    c      ';


参考資料:
http://itpro.nikkeibp.co.jp/article/Reference/20081008/316471/
http://itpro.nikkeibp.co.jp/article/Reference/20080930/315791/
スポンサーサイト
コメントを投稿する
Name:
URL:
Comment:

秘密:管理者にだけ表示を許可する
トラックバック
この記事のトラックバックURL
この記事にトラックバックする(FC2ブログユーザー)
ブログ検索

プロフィール

ビンゴ中西
Perlが好きである。
プログラミング言語のほとんどは独学。独学の過程で多くのプログラム仲間にも色々教わりました。

FC2カウンター

カレンダー

10 | 2018/11 | 12
- - - - 1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30 -

ブロとも申請フォーム

この人とブロともになる

| ホーム |
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。