File::Binary - �����ゃ����ŝ�祉����＜�ゃ�̬˛莨若�≪�吾�ャ�若�
use File::Binary qw($BIG_ENDIAN $LITTLE_ENDIAN $NATIVE_ENDIAN);
my $fb = File::Binary->new("myfile");
$fb->get_ui8();
$fb->get_ui16();
$fb->get_ui32();
$fb->get_si8();
$fb->get_si16();
$fb->get_si32();
$fb->close();
$fb->open(">newfile");
$fb->put_ui8(255);
$fb->put_ui16(65535);
$fb->put_ui32(4294967295);
$fb->put_si8(-127);
$fb->put_si16(-32767);
$fb->put_si32(-2147483645);
$fb->close();
$fb->open(IO::Scalar->new($somedata));
$fb->set_endian($BIG_ENDIAN); # force endianness
# do what they say on the tin
$fb->seek($pos);
$fb->tell();
# ��ŝ�í�ŝ�File::Binary��壔����ゃ����ŝ�祉����＜�ゃ�˨��茯㏍�粋昭�����≪�吾�ャ�若�˨�с����� ��������������˨�������������������с����� ��������☗�������壔��Macromedia SWF�����＜�ゃ�˨����宴����������勉�≪�吾�ャ�若�˨�勛����水����������� ��吾����������˩戎��������障��������
�����������������������������☖�����絎������˨����í�若��篏�罐㏍��箙����莇���������激����障�������� ��������〠����������������障����������������☗����⓾��!��ゃ����わ�� 鐚�荐活��羈�:�����������������障�������с�����...��ŝ�������ŝ����������ŝ����������Ǎ��
膃☗垬��(signed)���膃☗埇�＜��(unsigned)��勉��8���16���32�����������勖�贋�違��茯㏍� ��吾����������＜�純�������������＜��絨���ャ�勉�������������勖����鴻�с�������＜�����>32����������� ��贋�違�勉�������勉�＜�純����������ャ�������ゃ�������с�������������障�с�����������罩�菴������障�����
��勛��������腆冴�˨������𡉴����ゃ�潟�帥�若����с�若�鴻�虁�恰Ⅶ��倶��(pretty brain dead)�� �����ｃ������������𡉴�������若�吾�с�潟����勐����剛�������с��膓㊥�������⓾����障��������
�����＜�ゃ�����������������IO::Handle���isa��勉�����������(荐活��羈�:��泣����壔�í�鴻�勉�����) ���羝＜����障�����
�����＜�ゃ�����������������IO::Handle���isa��勉�����������(荐活��羈�:��泣����壔�í�鴻�勉�����) ���羝＜����障�����
篏�臀勉��seek�����障�����
�憜����勌��臀勉��菴������障����������������＜�ゃ�˨�祉����潟����˨��IO::Seekable��勉�泣����壔�í�� ��с�ŝ�������違��0���菴����������������$File::Binary::DEBUG���1��̬┃絎���������⓾����������� 茘☗�������冴����障�����
�憜����勉����＜�ゃ�˩��臀勉��菴������障�����
�憜����勌��臀勉��菴������障����������������＜�ゃ�˨�祉����潟����˨��IO::Seekable��勉�泣����壔�í�� ��с�ŝ�������違��0���菴����������������$File::Binary::DEBUG���1��̬┃絎���������⓾����������� 茘☗�������冴����障�����
flush�����������������壔��flush�����ŝ����������˨����障����������������馹�������
��≪�吾�ャ�若�˨����í�勉�������˨����＜�ゃ�˨��茯㏍��������荐㊤�������障�������ŝ����激�с�潟�壚札筝���勰�����
$BIG_ENDIAN
$LITTLE_ENDIAN
$NATIVE_ENDIANNATIVE��夌憜����勉�激�鴻�������勉����潟����ｃ�≪�潟���ｨ羝㋘����障�����
�����＜�ゃ�˨�����篁紙����勖�違�勉����ゃ��������緇������障�����
��������������勉����ゃ�������阪�������障�����
膃☗垬�����膃☗埇�＜�����8�����������贋�医�ゃ��茯㏍�帥����吾�������障�����
膃☗垬�����膃☗埇�＜�����16�����������贋�医�ゃ��茯㏍�帥����吾�������障�����
膃☗垬�����膃☗埇�＜�����32�����������贋�医�ゃ��茯㏍�帥����吾�������障�����
�����勉�激�鴻�������勉����潟����ｃ�≪�潟��綽������障�����$LITTLE_ENDIAN��� $BIG_ENDIAN���������������菴������障�����
�����＜�ゃ�˨����������障�����File::Binary��ŝ����吾�с�壔����壚����勉����＜�ゃ�˨�� ��ŝ�若����潟�������障�у�ñ����������������壔�с����障��������
32���������篁ヤ����勖�医�ゃ����宴����������壔�с����障��������
羌勐��絨���亥�鴻����阪��絨���亥�鴻�勖�医�ゃ����������冴����������壔�с����障��������
���������絖���х�����������絖���������������冴����������壔�с����障��������
seek���tell��˨�ゃ����⓾�壔����鴻�����綽�荀���с�����
(c)opyright 2002, Simon Wistow
Distributed under the same terms as Perl itself.
This software is under no warranty and will probably ruin your life, kill your friends, burn your house and bring about the apocalypse
Copyright 2003, Simon Wistow <simon@thegestalt.org>
綏���� 絖����(GCD00051@nifty.ne.jp)