Perlã§swfã®ç¸¦æ¨ªã®ãµã¤ãºãåå¾ãã [ Perl/CGIã®è¨é² ] å¿ è¦ãªã¢ã¸ã¥ã¼ã«ã¯ SWF::Header SWF::BinStream Data::TemporaryBag SWF::BinStream::Codec::Zlib 使ãæ¹ã¯ use SWF::Header; $header_data = SWF::Header->read_file('./test.swf'); 縦ãµã¤ãºã¯ $header_data->{height} 横ãµã¤ãºã¯ $header_data->{width} ä»ã«åå¾ã§ããå¤ã¯ signature => 'FWS' or 'CWS', version => Shockwave language version, filelen => Length of entire file in bytes, xmin => Stage
{{#tags}}- {{label}}
{{/tags}}