[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
life is short, you need ... other language except vbs/batch script

TOP

本帖最后由 523066680 于 2017-7-26 15:04 编辑

回复 9# a2002

       思路才重要的说法是那种熟悉各种语言优劣的大师级别的人适合说的。JAVA C C++ C#  F# 尚不必做过多的争执,做的东西怎么样还是看人。
但是部分脚本语言:{vbs batchscript} 对比 {ruby python perl js racket lua ... } 阵营,孰优孰劣是很明显的事情。

事实上,对于刚学会几门语言的人来说,选择第一第二编程语言非常重要,语言决定了视野,影响着思维的广度和深度,参考《程序员的呐喊》

TOP

本帖最后由 523066680 于 2017-7-26 15:31 编辑

回复 11# a2002

    评分就不要了吧(扣分就更不要了吧

说一种极端情况:
当一种语言为了实现某个功能,代码写起来比C语言长,构思起来比C语言复杂,跑起来比C编译的程序慢,这就很尴尬了……


读取脚本自身的内容并输出16进制码:
  1. use IO::Handle;
  2. use File::Slurp;
  3. STDOUT->autoflush(1);
  4. my $all = read_file( __FILE__, {binmode=>':raw'});
  5. printf "Address  ";
  6. grep { printf "%2X ", $_ } ( 0 .. 15);
  7. print "\n";
  8. my $n = 1;
  9. for my $e ( split('', $all) )
  10. {
  11.     printf "%08X ", $n if ( ($n-1) % 16 == 0);
  12.     printf "%02X ", ord( $e );
  13.     print "\n" if ( $n % 16 == 0);
  14.     $n++;
  15. }
复制代码
难怪老刘那个这么短,不带格式化输出,再补一个
  1. use File::Slurp;
  2. grep
  3. {
  4.     printf "%02X ", ord($_);
  5.     print "\n" if (++$n % 16 == 0);
  6. }
  7. split "", read_file( __FILE__, {binmode=>':raw'});
复制代码
相信 python ruby 做这个事也是极其利索的。
1

评分人数

TOP

返回列表