[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 pofile
./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;
コメント (10)
よくわからないけど、なんかすごい！
投稿者: Yukino | 2006年07月04日 01:30
つくんなよ笑
どこにある？
投稿者: NZM | 2006年07月04日 01:53
/home/po/poperl
>Yukino
すごいのはやちえの書き込みを見て30分ぐらいでアップまでしちゃう僕の暇さ加減
投稿者: negipo | 2006年07月04日 01:57
え？４分じゃないんですか？
投稿者: shaman | 2006年07月04日 05:07
前の前のエントリのやちえのコメントを見てから、コーディングして完成してひとしきり興奮して使い方書いてcs0にアップしてログとってここに書き込むまでで30分。
投稿者: negipo | 2006年07月04日 05:55
何が起こってるんですか？？？ｗ
あ、それとラブレター見ていただけましたか？ｗ
投稿者: しんなべ | 2006年07月04日 16:39
読んだ笑
お疲れさま
投稿者: negipo | 2006年07月04日 17:51
さいこーw
ちなみにもしかしてこれ見ました？
http://search.cpan.org/~mschwern/DNA-0.03/lib/DNA.pm
投稿者: hiroyuki | 2006年07月04日 20:16
見てねえwww
それまじさいこう
投稿者: po | 2006年07月04日 21:01
p-manと一緒に読んでたけど、open F, $0;して自分自身を読んでるあたり頭良過ぎる。
use DNA;
ATGC...
ってなってるのを見てどうやってるのかと思ったら。
ちなみにこの人Sex-0.69も開発してるぜ。阿呆すぎ。
投稿者: negipo | 2006年07月04日 21:09