开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 数值算法/人工智能 > 生物技术 > 查看源码
echo.pl
资源名称：ncbi_cxx_win--Jul_08_2004.zip　[点击查看]
上传用户：yhdzpy8989
上传日期：2007-06-13
资源大小：13604k
文件大小：2k
源码类别：

生物技术

开发平台：

C/C++

echo.pl：源码内容
  1. #!/usr/local/bin/perl
  3. # $Id: echo.pl,v 1000.0 2003/10/31 21:38:10 gouriano Exp $
  4. #
  5. # Author:  Josh Cherry
  6. #
  7. # ask gbench for some arguments and echo them back
  9. use CGI;
  11. $qs = <STDIN>;
  12. $query = new CGI($qs);
  14. #if a get info call...
  15. if ($query->param('action') eq "info") {
  16.     print '
  17.    PluginInfo ::= {
  18.       ver-major 0,
  19.       ver-minor 0,
  20.       ver-revision 0,
  21.       ver-build-date "",
  22.       class-name "echo.pl",
  23.       menu-item "Test scripts/echo in perl",
  24.       tooltip "echo arguments we are handed",
  25.       commands algo {
  26.         {
  27.           command 3,
  28.           args {
  29.             {
  30.               name "locs",
  31.               desc "Locations to evaluate",
  32.               data array {
  33.                 object {
  34.                   docaddr "(nil)",
  35.                   objaddr "(nil)",
  36.                   subtype "Seq-loc"
  37.                 }
  38.               }
  39.             },
  40.             {
  41.               name "integers",
  42.               desc "Some Integers",
  43.               data array {
  44.                 integer 1
  45.               }
  46.             },
  47.             {
  48.               name "string",
  49.               desc "A string",
  50.               data single string ""
  51.             },
  52.             {
  53.               name "double",
  54.               desc "A double",
  55.               data single double { 6, 10, -1 }
  56.             }
  57.           }
  58.         }
  59.       }
  60.     }
  61.    '
  62. } else {  # otherwise, run
  63.     print "$qsn";
  64. }
  67. # ===========================================================================
  68. # $Log: echo.pl,v $
  69. # Revision 1000.0  2003/10/31 21:38:10  gouriano
  70. # PRODUCTION: IMPORTED [ORIGINAL] Dev-tree R1.3
  71. #
  72. # Revision 1.3  2003/10/29 20:12:05  jcherry
  73. # Reflect new spec for plugin args
  74. #
  75. # Revision 1.2  2003/10/07 13:47:03  dicuccio
  76. # Renamed CPluginURL* to CPluginValue*
  77. #
  78. # Revision 1.1  2003/07/28 18:24:31  jcherry
  79. # Initial version
  80. #
  81. # ===========================================================================
  84. # 
  85. #  ===========================================================================
  86. #  PRODUCTION $Log: echo.pl,v $
  87. #  PRODUCTION Revision 1000.0  2003/10/31 21:38:10  gouriano
  88. #  PRODUCTION PRODUCTION: IMPORTED [ORIGINAL] Dev-tree R1.3
  89. #  PRODUCTION
  90. #  ===========================================================================
  91. #