设为首页收藏本站
切换到宽版

 找回密码
 注册
搜索
批处理之家»论坛 › 其它讨论区 › 技术研讨 › 批处理勇士大闯关改中医许阳批处理的可能 ...
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
1234567
返回列表 发新帖
楼主: zzz19760225

批处理勇士大闯关改中医许阳批处理的可能

[复制链接]
zzz19760225
 楼主| 发表于 2026-6-27 16:54:21 | 显示全部楼层
1234567890
回复

举报

zzz19760225
 楼主| 发表于 2026-6-27 16:54:54 | 显示全部楼层
1234567890
回复

举报

zzz19760225
 楼主| 发表于 2026-6-27 16:55:03 | 显示全部楼层
1234567890
回复

举报

zzz19760225
 楼主| 发表于 2026-6-27 16:55:09 | 显示全部楼层

perl图文混编的命令输入界面

本帖最后由 zzz19760225 于 2026-7-15 20:41 编辑
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  4. use utf8;
  5. use open ':std', ':encoding(utf8)';
  6. use Tk;

  8. # 配置参数
  9. my $MAX_LINES = 1000;  # 最多保留1000行
  10. my $MAX_BYTES = 20 * 1024 * 1024;  # 最多保留10MB

  12. # 创建主窗口
  13. my $mw = MainWindow->new;
  14. $mw->title("Text 图文混排 - 命令行模式");
  15. $mw->geometry("800x600");

  17. # 创建主框架
  18. my $main_frame = $mw->Frame->pack(-fill => 'both', -expand => 1);

  20. # 创建显示区域（上方）
  21. my $text = $main_frame->Scrolled('Text',
  22.     -wrap   => 'word',
  23.     -font   => '{DejaVu Sans} 12',
  24.     -background => 'white',
  25.     -foreground => 'black',
  26.     -scrollbars => 'osoe',  # 自动显示/隐藏滚动条
  27. )->pack(-fill => 'both', -expand => 1, -side => 'top');

  29. # 设置显示区域为只读
  30. $text->configure(-state => 'disabled');

  32. # 创建底部输入框架
  33. my $input_frame = $main_frame->Frame(
  34.     -background => 'lightgray',
  35. )->pack(-fill => 'x', -side => 'bottom');

  37. # 命令输入框
  38. my $input = $input_frame->Entry(
  39.     -font => ['DejaVu Sans', 12],
  40.     -background => 'white',
  41.     -foreground => 'black',
  42.     -insertbackground => 'black',
  43.     -relief => 'sunken',
  44.     -bd => 2,
  45. )->pack(-side => 'left', -fill => 'x', -expand => 1, -padx => 5, -pady => 5);

  47. # 状态标签（显示行数等信息）
  48. my $status_label = $input_frame->Label(
  49.     -text => '行数: 0',
  50.     -font => ['DejaVu Sans', 9],
  51.     -background => 'lightgray',
  52.     -foreground => 'gray30',
  53. )->pack(-side => 'right', -padx => 5);

  55. # 绑定回车键
  56. $input->bind('<Return>' => \&process_command);

  58. # 安全地插入内容（带限制）
  59. sub insert_with_limit {
  60.     my ($content) = @_;
  61.    
  62.     # 启用编辑
  63.     $text->configure(-state => 'normal');
  64.    
  65.     # 插入新内容
  66.     $text->insert('end', $content);
  67.    
  68.     # 限制行数
  69.     my $line_count = $text->index('end');
  70.     $line_count =~ s/\..*//;
  71.     if ($line_count > $MAX_LINES) {
  72.         my $delete_lines = $line_count - $MAX_LINES;
  73.         # 删除最旧的行（保留最新的MAX_LINES行）
  74.         eval {
  75.             $text->delete('1.0', "${delete_lines}.0");
  76.         };
  77.     }
  78.    
  79.     # 更新状态标签
  80.     my $current_lines = $text->index('end');
  81.     $current_lines =~ s/\..*//;
  82.     $status_label->configure(-text => "行数: $current_lines (最大: $MAX_LINES)");
  83.    
  84.     # 禁用编辑并滚动到底部
  85.     $text->configure(-state => 'disabled');
  86.     $text->see('end');
  87. }

  89. # 在显示区域插入初始内容
  90. sub display_content {
  91.     # 启用编辑
  92.     $text->configure(-state => 'normal');
  93.    
  94.     # 插入一些文字
  95.     $text->insert('end', "图片显示测试:\n");
  96.     $text->insert('end', "第一张图片:\n");
  97.    
  98.     # 尝试加载并显示图片
  99.     eval {
  100.         my $img = $mw->Photo(-file => '20260421071250802.bmp');
  101.         $text->imageCreate('end', -image => $img);
  102.         $text->insert('end', "\n");
  103.     };
  104.     if ($@) {
  105.         $text->insert('end', "无法加载图片: 20260421071250802.bmp (错误: $@)\n");
  106.     }
  107.    
  108.     $text->insert('end', "\n第二张图片:\n");
  109.     eval {
  110.         my $img1 = $mw->Photo(-file => '1.gif');
  111.         $text->imageCreate('end', -image => $img1);
  112.         $text->insert('end', "\n");
  113.     };
  114.     if ($@) {
  115.         $text->insert('end', "无法加载图片: 1.gif (错误: $@)\n");
  116.     }
  117.    
  118.     # 禁用编辑并滚动到底部
  119.     $text->configure(-state => 'disabled');
  120.     $text->see('end');
  121. }

  123. # 显示帮助信息
  124. sub show_help {
  125.     my $content = '';
  126.     $content .= "可用命令:\n";
  127.     $content .= "  test     - 显示测试内容（图文混排）\n";
  128.     $content .= "  help     - 显示此帮助信息\n";
  129.     $content .= "  clear    - 清空显示区域\n";
  130.     $content .= "  text [内容] - 显示自定义文字\n";
  131.     $content .= "  echo [内容] - 显示回显内容\n";
  132.     $content .= "  tu       - 显示图片测试\n";
  133.     $content .= "  exit     - 退出程序\n";
  134.     $content .= "\n输入命令后按回车执行\n";
  135.    
  136.     insert_with_limit($content);
  137. }

  139. # 清空显示区域
  140. sub clear_display {
  141.     $text->configure(-state => 'normal');
  142.     $text->delete('1.0', 'end');
  143.     $text->configure(-state => 'disabled');
  144.     $status_label->configure(-text => "行数: 0 (最大: $MAX_LINES)");
  145. }

  147. # 显示自定义文本
  148. sub show_text {
  149.     my ($content) = @_;
  150.     insert_with_limit("$content\n");
  151. }

  153. # 显示图片测试 - 修正版本
  154. sub tu {
  155.     # 启用编辑
  156.     $text->configure(-state => 'normal');
  157.    
  158.     $text->insert('end', "=== 图片测试 ===\n");
  159.    
  160.     # 测试加载第一张图片
  161.     $text->insert('end', "加载图片 20260421071250802.bmp:\n");
  162.     eval {
  163.         my $img2 = $mw->Photo(-file => '20260421071250802.bmp');
  164.         $text->imageCreate('end', -image => $img2);
  165.         $text->insert('end', "\n");
  166.     };
  167.     if ($@) {
  168.         $text->insert('end', "错误: 无法加载 20260421071250802.bmp - $@\n");
  169.     }
  170.    
  171.     $text->insert('end', "\n加载图片 1.gif:\n");
  172.     eval {
  173.         my $img3 = $mw->Photo(-file => '1.gif');
  174.         $text->imageCreate('end', -image => $img3);
  175.         $text->insert('end', "\n");
  176.     };
  177.     if ($@) {
  178.         $text->insert('end', "错误: 无法加载 1.gif - $@\n");
  179.     }
  180.    
  181.     $text->insert('end', "=== 图片测试结束 ===\n");
  182.    
  183.     # 禁用编辑并滚动到底部
  184.     $text->configure(-state => 'disabled');
  185.     $text->see('end');
  186. }

  188. # 处理命令
  189. sub process_command {
  190.     my $command = $input->get();
  191.     $input->delete(0, 'end');
  192.    
  193.     # 移除前后空格
  194.     $command =~ s/^\s+//;
  195.     $command =~ s/\s+$//;
  196.    
  197.     # 处理空命令
  198.     if ($command eq '') { return; }

  200.     # 在显示区域显示输入的命令
  201.     insert_with_limit("> $command\n");
  202.    
  203.     # 解析命令
  204.     if ($command eq 'exit' || $command eq 'quit') { exit(0); }
  205.     elsif ($command eq 'help')  { show_help();       }
  206.     elsif ($command eq 'clear') { clear_display();   }
  207.     elsif ($command eq 'tu') { tu();   }
  208.     elsif ($command eq 'test')  { display_content(); }
  209.     elsif ($command =~ /^echo\s+(.+)/) {        show_text($1);    }
  210.     elsif ($command =~ /^text\s+(.+)/) {        show_text($1);    }
  211.     else {insert_with_limit("未知命令: $command (输入 'help' 查看可用命令)\n");    }
  212. }

  214. # 设置焦点到输入框
  215. $input->focus();

  217. # 初始化显示内容
  218. # 改为显示帮助信息，让用户知道如何使用
  219. show_help();

  221. # 进入主循环
  222. MainLoop;
复制代码
输入tu，可以显示对应的图片。需要一种匹配比较选择的正则图文输出，还有gif是静态显示第一页，不是播放动图。
回复

举报

zzz19760225
 楼主| 发表于 2026-6-27 16:57:52 | 显示全部楼层
本帖最后由 zzz19760225 于 2026-6-30 20:45 编辑

模仿cmd界面的perl问答输入输出页面
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  4. use utf8;
  5. use Encode;
  6. use Tk;
  7. use Tk::ROText;

  9. # Linux系统使用UTF-8编码
  10. binmode(STDOUT, ':encoding(utf8)');
  11. binmode(STDIN, ':encoding(utf8)');
  12. binmode(STDERR, ':encoding(utf8)');

  14. my $mw = MainWindow->new;
  15. $mw->title("智能命令行 - 支持图片显示");
  16. $mw->geometry("800x600");

  18. my $main_frame = $mw->Frame->pack(-fill => 'both', -expand => 1);

  20. my $output = $main_frame->Scrolled('ROText',
  21.     -scrollbars => 'e',
  22.     -wrap => 'word',
  23.     -font => ['Courier', 10],
  24.     -background => 'black',
  25.     -foreground => 'lime',
  26. )->pack(-fill => 'both', -expand => 1, -side => 'top');

  28. my $input_frame = $main_frame->Frame->pack(-fill => 'x', -side => 'bottom');
  29. my $prompt = $input_frame->Label(
  30.     -text => '> ',
  31.     -font => ['Courier', 10],
  32.     -background => 'black',
  33.     -foreground => 'lime',
  34. )->pack(-side => 'left');

  36. my $input = $input_frame->Entry(
  37.     -font => ['Courier', 10],
  38.     -background => 'black',
  39.     -foreground => 'lime',
  40.     -insertbackground => 'lime',
  41.     -width => 80,
  42. )->pack(-side => 'left', -fill => 'x', -expand => 1);

  44. my $send_btn = $input_frame->Button(
  45.     -text => '发送',
  46.     -command => \&process_command,
  47.     -background => 'gray30',
  48.     -foreground => 'white',
  49. )->pack(-side => 'right');

  51. $input->bind('<Return>' => \&process_command);

  53. my @history;
  54. my $history_index = -1;

  56. sub insert_chinese {
  57.     my ($text) = @_;
  58.     $output->insert('end', $text);
  59. }

  61. # 显示欢迎信息
  62. insert_chinese("=" x 60 . "\n");
  63. insert_chinese("智能命令行系统 v1.0\n");
  64. insert_chinese("支持命令：\n");
  65. insert_chinese("  help     - 显示帮助\n");
  66. insert_chinese("  clear    - 清屏\n");
  67. insert_chinese("  image    - 显示示例图片\n");
  68. insert_chinese("  text [内容] - 显示文本\n");
  69. insert_chinese("  date     - 显示当前日期时间\n");
  70. insert_chinese("  calc [表达式] - 计算数学表达式\n");
  71. insert_chinese("  echo [内容] - 回显文本\n");
  72. insert_chinese("=" x 60 . "\n\n");

  74. # 关键修复：确保滚动到顶部
  75. $output->see('1.0');

  77. # 多个延迟确保显示正确
  78. $mw->after(50, sub { $output->see('1.0'); });
  79. $mw->after(200, sub { $output->see('1.0'); });

  81. sub process_command {
  82.     my $command = $input->get();
  83.     $input->delete(0, 'end');
  84.    
  85.     push @history, $command if $command ne '';
  86.     $history_index = -1;
  87.    
  88.     insert_chinese("\n> $command\n");
  89.    
  90.     if ($command eq 'help') {
  91.         show_help();
  92.     }
  93.     elsif ($command eq 'clear') {
  94.         $output->delete('1.0', 'end');
  95.         insert_chinese("屏幕已清空\n");
  96.     }
  97.     elsif ($command eq 'image') {
  98.         show_demo_image();
  99.     }
  100.     elsif ($command =~ /^text\s+(.+)/) {
  101.         insert_chinese("$1\n");
  102.     }
  103.     elsif ($command eq 'date') {
  104.         insert_chinese(scalar(localtime) . "\n");
  105.     }
  106.     elsif ($command =~ /^calc\s+(.+)/) {
  107.         eval_calculation($1);
  108.     }
  109.     elsif ($command =~ /^echo\s+(.+)/) {
  110.         insert_chinese("$1\n");
  111.     }
  112.     else {
  113.         insert_chinese("未知命令: $command (输入 'help' 查看帮助)\n");
  114.     }
  115.    
  116.     $output->see('end');
  117. }

  119. sub show_help {
  120.     insert_chinese("\n可用命令:\n");
  121.     insert_chinese("  help           - 显示此帮助信息\n");
  122.     insert_chinese("  clear          - 清空输出区域\n");
  123.     insert_chinese("  image          - 显示示例图片\n");
  124.     insert_chinese("  text <内容>    - 在输出区域显示文本\n");
  125.     insert_chinese("  date           - 显示当前日期和时间\n");
  126.     insert_chinese("  calc <表达式>  - 计算数学表达式\n");
  127.     insert_chinese("  echo <内容>    - 回显文本\n");
  128.     insert_chinese("\n");
  129. }

  131. sub show_demo_image {
  132.     my $canvas_window = $mw->Toplevel();
  133.     $canvas_window->title("图片显示窗口");
  134.     $canvas_window->geometry("400x300");
  135.    
  136.     my $canvas = $canvas_window->Canvas(
  137.         -background => 'white',
  138.         -width => 400,
  139.         -height => 300,
  140.     )->pack(-fill => 'both', -expand => 1);
  141.    
  142.     $canvas->createRectangle(50, 50, 150, 150,
  143.         -fill => 'red',
  144.         -outline => 'black',
  145.         -width => 2,
  146.     );
  147.    
  148.     $canvas->createOval(200, 50, 300, 150,
  149.         -fill => 'blue',
  150.         -outline => 'black',
  151.         -width => 2,
  152.     );
  153.    
  154.     $canvas->createPolygon(50, 200, 150, 200, 100, 100,
  155.         -fill => 'green',
  156.         -outline => 'black',
  157.         -width => 2,
  158.     );
  159.    
  160.     $canvas->createText(250, 200,
  161.         -text => '示例图形',
  162.         -font => ['Arial', 16],
  163.         -fill => 'purple',
  164.     );
  165.    
  166.     insert_chinese("已在新窗口中显示示例图片\n");
  167. }

  169. sub eval_calculation {
  170.     my ($expr) = @_;
  171.     $expr =~ s/\s+//g;
  172.    
  173.     if ($expr !~ /^[\d+\-*\/\(\)\.]+$/) {
  174.         insert_chinese("错误: 表达式包含非法字符\n");
  175.         return;
  176.     }
  177.    
  178.     eval {
  179.         my $result = eval $expr;
  180.         if ($@) {
  181.             insert_chinese("计算错误: $@\n");
  182.         } else {
  183.             insert_chinese("$expr = $result\n");
  184.         }
  185.     };
  186. }

  188. $input->bind('<Up>' => sub {
  189.     if ($history_index < @history - 1) {
  190.         $history_index++;
  191.         $input->delete(0, 'end');
  192.         $input->insert(0, $history[-1 - $history_index]);
  193.     }
  194. });

  196. $input->bind('<Down>' => sub {
  197.     if ($history_index > 0) {
  198.         $history_index--;
  199.         $input->delete(0, 'end');
  200.         $input->insert(0, $history[-1 - $history_index]);
  201.     } elsif ($history_index == 0) {
  202.         $history_index = -1;
  203.         $input->delete(0, 'end');
  204.     }
  205. });

  207. $input->focus();

  209. # 最终修复：在窗口完全显示后滚动到顶部
  210. $mw->after(500, sub {
  211.     $output->see('1.0');
  212.     $mw->update();
  213. });

  215. MainLoop;
复制代码
运行后：
  1. ============================================================
  2. 智能命令行系统 v1.0
  3. 支持命令：
  4.   help     - 显示帮助
  5.   clear    - 清屏
  6.   image    - 显示示例图片
  7.   text [内容] - 显示文本
  8.   date     - 显示当前日期时间
  9.   calc [表达式] - 计算数学表达式
  10.   echo [内容] - 回显文本
  11. ============================================================
  12. >                          发送
复制代码
deepseek这个作品，形式和颜色是满足需求的。就是中文显示的行里，中文头部被掩盖了一部分。怎么将病症，证候，治法，人物信息装进去，加上增减量和存量，奖罚什么的。老毛病，依然对程序内容看都不看，有了就好了。这样和官僚有什么差别呢，不知道有什么。
要有文字和图片，可能用perl Tk text，Tk模块和text组件。
回复

举报

1234567
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-7-17 00:45

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表