突然ですが、クイズです。

次のスクリプトと、その実行結果には嘘があります。さて、その嘘とは何でしょう。

decode-dvd.pl
#!/usr/local/bin/perl
use strict;
use warnings;
use Encode;
use Perl6::Slurp;

print decode('09-F9-11-02-9D-74-E3-5B-D8-41-56-C5-63-56-88-C0', slurp(shift));
実行結果:
% perl decode-hddvd.pl 007.iso
Unknown encoding '09-F9-11-02-9D-74-E3-5B-D8-41-56-C5-63-56-88-C0' at decode-hddvd.pl line 7

ここで、007.isoというのはHD-DVDのdisk imageとします。

See Also:

3E-44-61-6E-20-74-68-65-20-45-6E-63-6F-64-65-20-4D-61-69-6E-74-61-69-6E-65-72