本帖最后由 523066680 于 2017-7-26 15:31 编辑
回复 11# a2002
评分就不要了吧(扣分就更不要了吧
说一种极端情况:
当一种语言为了实现某个功能,代码写起来比C语言长,构思起来比C语言复杂,跑起来比C编译的程序慢,这就很尴尬了……
读取脚本自身的内容并输出16进制码:- use IO::Handle;
- use File::Slurp;
- STDOUT->autoflush(1);
-
- my $all = read_file( __FILE__, {binmode=>':raw'});
-
- printf "Address ";
- grep { printf "%2X ", $_ } ( 0 .. 15);
- print "\n";
-
- my $n = 1;
- for my $e ( split('', $all) )
- {
- printf "%08X ", $n if ( ($n-1) % 16 == 0);
- printf "%02X ", ord( $e );
- print "\n" if ( $n % 16 == 0);
- $n++;
- }
复制代码 难怪老刘那个这么短,不带格式化输出,再补一个- use File::Slurp;
-
- grep
- {
- printf "%02X ", ord($_);
- print "\n" if (++$n % 16 == 0);
- }
- split "", read_file( __FILE__, {binmode=>':raw'});
复制代码 相信 python ruby 做这个事也是极其利索的。 |