polog

へんなもんpoにするな．
どうせならキーボードのスキャンコードとか使ってで完全に可逆に変換してpoperlとかでプログラム実行できるようにしてくれ．
ScanCode Set2は16進数だからうまいこと2進数（po）にできるはず．

できた。cs0の僕のホームに置いたよ
[po@cs0 ~]$ ./poperl
USAGE:
to transform perlscript to pofile:
./poperl -t [perlscript] >[pofilename]
to execute pofile
./poperl [pofilename]
[po@cs0 ~]$ cat hoge.pl
#!/usr/bin/perl

print "hello world!\n";
[po@cs0 ~]$ ./poperl -t hoge.pl
pooopppppoooppoppoopoppopoopoooppooopoppppopppppppopppoppoopoppppooppopopoopoopppoopoopppoopooooppoppppppooopooopoopoooopoooppoppoopoopppooppoppppoppppopopooopppoopooopppopppopppooopoo
[po@cs0 ~]$ ./poperl -t hoge.pl > po
[po@cs0 ~]$ ./poperl po
hello world!

ソースはこんな
#!/usr/bin/perl -w

use strict;

my $transform = 0;
unless (defined $ARGV[0]){
print "USAGE:
to transform perlscript to pofile:
./poperl -t [perlscript] [pofilename]
to execute pofilename
./poperl [pofilename]
";
exit
}
$transform = shift @ARGV if($ARGV[0] eq '-t');
my $filename = shift @ARGV;

if($transform){
open F, $filename;
my $file = undef;
map{chomp; next if (/^\=/); s/\#.*//g;$file .= $_} ＜F＞;
close F;

my $length = (length $file) * 8;
my $ret = unpack "B$length", $file;
$ret =~ tr/[01]/[po]/;
print $ret;
exit;
}

open F, $filename;
my $file = undef;
map{$file .= $_} ＜F＞;
close F;
my $length = (length $file);
$file =~ tr/[po]/[01]/;
my $ret = pack "B$length", $file;
eval $ret;

nharry npotter