wecho.pl
上传用户:caisangzi8
上传日期:2013-10-25
资源大小:15756k
文件大小:1k
源码类别:

DVD

开发平台:

C/C++

  1. #! /home/potatooo/xcc/bin/perl
  2. #
  3. # FILE
  4. # wecho.pl
  5. #
  6. # DESCRIPTION
  7. # humm... avoid DOS-WIN32 builtin ECHO bug
  8. #
  9. for ($argvcnt=0; $argvcnt<@ARGV && $ARGV[$argvcnt] =~ /^-(.*)/; $argvcnt++)
  10. {
  11.   if ($ARGV[$argvcnt] =~ /^-z/)
  12.   {
  13.     $argvcnt++;
  14.     last;
  15.   }
  16.   if ($ARGV[$argvcnt] =~ /^--help/
  17.       || $ARGV[$argvcnt] =~ /^-hz/)
  18.   {
  19.     print("
  20. Usage: $0 [options] [inputfile [outputfile]]
  21. where option is:
  22.   --little-endian   Specify little-endian output
  23.   --big-endian      Specify big-endian output (default)
  24.   --byte            Specify 8-bit output
  25.   --short           Specify 16-bit output
  26.   --long            Specify 32-bit output (default)
  27. ");
  28.     exit(-1);
  29.   } 
  30.   else {
  31.     die "$0: illegal option $ARGV[$argvcnt]";
  32.   }
  33. }
  34. for (; $argvcnt<@ARGV; $argvcnt++)
  35. {
  36.   print $ARGV[$argvcnt] . " ";
  37. }
  38. print "n";