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

zzz19760225

1234567890

zzz19760225

单元组合全排列卦象的阵列，下面列举对比比较各个符合条件的现象。文本4.txt，4.pl处理。
一个4.txt文本，里面第一行是1,2,3,4,5,6,7,8,9,10，第二行是1,3,5,7,9，perl处理，若第二行条件符合，第二行的内容都是第一行里有的，而且其本身的单元都有，则输出“第二行”。
4.txt

1. 1,2,3,4,5,6,7,8,9,10
   
2. 1,3,5,7,9
   

复制代码

4.pl

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. # 打开文件
   
6. open my $fh, '<', '4.txt' or die "无法打开文件: $!";
   
7. 
   
8. # 读取第一行和第二行
   
9. my $line1 = <$fh>;
   
10. my $line2 = <$fh>;
    
11. close $fh;
    
12. 
    
13. # 去除换行符
    
14. chomp($line1, $line2);
    
15. 
    
16. # 分割成数组
    
17. my @first = split /,/, $line1;
    
18. my @second = split /,/, $line2;
    
19. 
    
20. # 去除可能的空格
    
21. @first = map { s/^\s+|\s+$//g; $_ } @first;
    
22. @second = map { s/^\s+|\s+$//g; $_ } @second;
    
23. 
    
24. # 方法1：使用哈希表检查（推荐，效率高）
    
25. my %first_set = map { $_ => 1 } @first;
    
26. my $all_exist = 1;
    
27. 
    
28. foreach my $elem (@second) {
    
29.     if (!exists $first_set{$elem}) {
    
30.         $all_exist = 0;
    
31.         last;
    
32.     }
    
33. }
    
34. 
    
35. if ($all_exist) {
    
36.     print "第二行\n";
    
37. } else {
    
38.     print "条件不满足\n";
    
39. }
    
40. 
    
41. # === 或者更简洁的写法 ===
    
42. # my $all_exist = 1;
    
43. # $all_exist = 0 unless (grep { $_ eq $elem } @first) foreach @second;
    
44. # print $all_exist ? "第二行\n" : "条件不满足\n";
    
45. <>;
    

复制代码

什么地方不对头。如第二行，则是太阳病，若是第三行，则是少阴病。三个阵列，第一阵列是基本单元，第二阵列是第一阵列的全排列或全组合，第三阵列是定义比较选择第二阵列的应用名字。

zzz19760225

0.pl

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use utf8;
   
5. binmode(STDIN, ':encoding(utf8)');
   
6. binmode(STDOUT, ':encoding(utf8)');
   
7. binmode(STDERR, ':encoding(utf8)');
   
8. 
   
9. # 读取输入文件
   
10. my $input_file = '1.txt';
    
11. my $output_file = '2.txt';
    
12. 
    
13. # 检查输入文件是否存在
    
14. unless (-e $input_file) {
    
15.     die "错误: 文件 '$input_file' 不存在!\n";
    
16. }
    
17. 
    
18. # 读取文件内容
    
19. open(my $fh_in, '<:encoding(utf8)', $input_file) or die "无法打开文件: $!";
    
20. my $content = do { local $/; <$fh_in> };
    
21. close($fh_in);
    
22. 
    
23. # 去除换行符并按逗号分割
    
24. $content =~ s/\s+//g;  # 移除空白字符
    
25. my @items = split(/,/, $content);
    
26. @items = grep { $_ ne '' } @items;  # 移除空元素
    
27. 
    
28. if (@items == 0) {
    
29.     die "错误: 没有找到有效的单元!\n";
    
30. }
    
31. 
    
32. print "找到 " . scalar(@items) . " 个单元: @items\n";
    
33. 
    
34. # 生成全排列
    
35. my @permutations = permute(\@items);
    
36. 
    
37. # 写入输出文件
    
38. open(my $fh_out, '>:encoding(utf8)', $output_file) or die "无法创建输出文件: $!";
    
39. foreach my $perm (@permutations) {
    
40.     print $fh_out join(',', @$perm) . "\n";
    
41. }
    
42. close($fh_out);
    
43. 
    
44. print "成功生成 " . scalar(@permutations) . " 个排列组合，已保存到 '$output_file'\n";
    
45. 
    
46. # 全排列函数 (递归实现)
    
47. sub permute {
    
48.     my ($arr) = @_;
    
49.     my @result = ();
    
50.    
    
51.     if (@$arr == 1) {
    
52.         return ([$arr->[0]]);
    
53.     }
    
54.    
    
55.     for (my $i = 0; $i < @$arr; $i++) {
    
56.         my @rest = @$arr;
    
57.         my $first = splice(@rest, $i, 1);
    
58.         
    
59.         my @sub_perms = permute(\@rest);
    
60.         foreach my $sub_perm (@sub_perms) {
    
61.             my @new_perm = ($first, @$sub_perm);
    
62.             push(@result, \@new_perm);
    
63.         }
    
64.     }
    
65.    
    
66.     return @result;
    
67. }
    

复制代码

1.txt

1. 发热,出汗,头疼
   

复制代码

2.txt

1. 发热,出汗,头疼
   
2. 发热,头疼,出汗
   
3. 出汗,发热,头疼
   
4. 出汗,头疼,发热
   
5. 头疼,发热,出汗
   
6. 头疼,出汗,发热
   

复制代码

这个只是排序全排列，不是全组合，应该用全组合。
全组合
3.pl

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use utf8;
   
5. binmode(STDOUT, ':encoding(utf8)');
   
6. binmode(STDERR, ':encoding(utf8)');
   
7. 
   
8. my $input_file = '1.txt';
   
9. my $output_file = '3.txt';
   
10. 
    
11. # 检查输入文件
    
12. unless (-e $input_file) {
    
13.     die "错误: 文件 '$input_file' 不存在!\n";
    
14. }
    
15. 
    
16. # 读取文件
    
17. open(my $fh_in, '<:encoding(utf8)', $input_file) or die "无法打开文件: $!";
    
18. my $content = do { local $/; <$fh_in> };
    
19. close($fh_in);
    
20. 
    
21. # 处理内容：去除空白，按逗号分割
    
22. $content =~ s/\s+//g;
    
23. my @items = split(/,/, $content);
    
24. @items = grep { $_ ne '' } @items;
    
25. 
    
26. if (@items == 0) {
    
27.     die "错误: 没有找到有效的单元!\n";
    
28. }
    
29. 
    
30. my $n = scalar(@items);
    
31. print "找到 $n 个单元: " . join(', ', @items) . "\n";
    
32. print "总共将生成 " . (2**$n - 1) . " 种组合（不含空集）\n";
    
33. 
    
34. # 生成所有组合
    
35. my @combinations = generate_combinations(\@items);
    
36. 
    
37. # 写入输出文件
    
38. open(my $fh_out, '>:encoding(utf8)', $output_file) or die "无法创建输出文件: $!";
    
39. foreach my $comb (@combinations) {
    
40.     print $fh_out join(',', @$comb) . "\n";
    
41. }
    
42. close($fh_out);
    
43. 
    
44. print "成功生成 " . scalar(@combinations) . " 种组合，已保存到 '$output_file'\n";
    
45. 
    
46. # 生成全组合的函数（使用二进制法）
    
47. sub generate_combinations {
    
48.     my ($arr) = @_;
    
49.     my @result = ();
    
50.     my $n = scalar(@$arr);
    
51.    
    
52.     # 从1到2^n-1，每个数字代表一种组合
    
53.     for (my $i = 1; $i < (1 << $n); $i++) {
    
54.         my @combination = ();
    
55.         for (my $j = 0; $j < $n; $j++) {
    
56.             # 检查第j位是否为1
    
57.             if ($i & (1 << $j)) {
    
58.                 push(@combination, $arr->[$j]);
    
59.             }
    
60.         }
    
61.         push(@result, \@combination);
    
62.     }
    
63.    
    
64.     return @result;
    
65. }
    

复制代码

1.txt

1. 发热,出汗,头疼
   

复制代码

3.txt

1. 发热
   
2. 出汗
   
3. 发热,出汗
   
4. 头疼
   
5. 发热,头疼
   
6. 出汗,头疼
   
7. 发热,出汗,头疼
   

复制代码

zzz19760225

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use utf8;
   
5. use open ':std', ':encoding(utf8)';
   
6. use Tk;
   
7. 
   
8. # 配置参数
   
9. my $MAX_LINES = 1000;  # 最多保留1000行
   
10. my $MAX_BYTES = 20 * 1024 * 1024;  # 最多保留10MB
    
11. 
    
12. # 创建主窗口
    
13. my $mw = MainWindow->new;
    
14. $mw->title("Text 图文混排 - 命令行模式");
    
15. $mw->geometry("800x600");
    
16. 
    
17. # 创建主框架
    
18. my $main_frame = $mw->Frame->pack(-fill => 'both', -expand => 1);
    
19. 
    
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');
    
28. 
    
29. # 设置显示区域为只读
    
30. $text->configure(-state => 'disabled');
    
31. 
    
32. # 创建底部输入框架
    
33. my $input_frame = $main_frame->Frame(
    
34.     -background => 'lightgray',
    
35. )->pack(-fill => 'x', -side => 'bottom');
    
36. 
    
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);
    
46. 
    
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);
    
54. 
    
55. # 绑定回车键
    
56. $input->bind('<Return>' => \&process_command);
    
57. 
    
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. }
    
88. 
    
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. }
     
122. 
     
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. }
     
138. 
     
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. }
     
146. 
     
147. # 显示自定义文本
     
148. sub show_text {
     
149.     my ($content) = @_;
     
150.     insert_with_limit("$content\n");
     
151. }
     
152. 
     
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. }
     
187. 
     
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; }
     
199. 
     
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. }
     
213. 
     
214. # 设置焦点到输入框
     
215. $input->focus();
     
216. 
     
217. # 初始化显示内容
     
218. # 改为显示帮助信息，让用户知道如何使用
     
219. show_help();
     
220. 
     
221. # 进入主循环
     
222. MainLoop;
     

复制代码

输入tu，可以显示对应的图片。需要一种匹配比较选择的正则图文输出，还有gif是静态显示第一页，不是播放动图。

zzz19760225

模仿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;
   
8. 
   
9. # Linux系统使用UTF-8编码
   
10. binmode(STDOUT, ':encoding(utf8)');
    
11. binmode(STDIN, ':encoding(utf8)');
    
12. binmode(STDERR, ':encoding(utf8)');
    
13. 
    
14. my $mw = MainWindow->new;
    
15. $mw->title("智能命令行 - 支持图片显示");
    
16. $mw->geometry("800x600");
    
17. 
    
18. my $main_frame = $mw->Frame->pack(-fill => 'both', -expand => 1);
    
19. 
    
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');
    
27. 
    
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');
    
35. 
    
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);
    
43. 
    
44. my $send_btn = $input_frame->Button(
    
45.     -text => '发送',
    
46.     -command => \&process_command,
    
47.     -background => 'gray30',
    
48.     -foreground => 'white',
    
49. )->pack(-side => 'right');
    
50. 
    
51. $input->bind('<Return>' => \&process_command);
    
52. 
    
53. my @history;
    
54. my $history_index = -1;
    
55. 
    
56. sub insert_chinese {
    
57.     my ($text) = @_;
    
58.     $output->insert('end', $text);
    
59. }
    
60. 
    
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");
    
73. 
    
74. # 关键修复：确保滚动到顶部
    
75. $output->see('1.0');
    
76. 
    
77. # 多个延迟确保显示正确
    
78. $mw->after(50, sub { $output->see('1.0'); });
    
79. $mw->after(200, sub { $output->see('1.0'); });
    
80. 
    
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') {        show_help();    }
    
91.     elsif ($command eq 'clear') {        $output->delete('1.0', 'end');        insert_chinese("屏幕已清空\n");    }
    
92.     elsif ($command eq 'image') {        show_demo_image();    }
    
93.     elsif ($command =~ /^text\s+(.+)/) {        insert_chinese("$1\n");    }
    
94.     elsif ($command eq 'date') {        insert_chinese(scalar(localtime) . "\n");    }
    
95.     elsif ($command =~ /^calc\s+(.+)/) {        eval_calculation($1);    }
    
96.     elsif ($command =~ /^echo\s+(.+)/) {        insert_chinese("$1\n");    }
    
97.     else {        insert_chinese("未知命令: $command (输入 'help' 查看帮助)\n");    }
    
98.    
    
99.     $output->see('end');
    
100. }
     
101. 
     
102. sub show_help {
     
103.     insert_chinese("\n可用命令:\n");
     
104.     insert_chinese("  help           - 显示此帮助信息\n");
     
105.     insert_chinese("  clear          - 清空输出区域\n");
     
106.     insert_chinese("  image          - 显示示例图片\n");
     
107.     insert_chinese("  text <内容>    - 在输出区域显示文本\n");
     
108.     insert_chinese("  date           - 显示当前日期和时间\n");
     
109.     insert_chinese("  calc <表达式>  - 计算数学表达式\n");
     
110.     insert_chinese("  echo <内容>    - 回显文本\n");
     
111.     insert_chinese("\n");
     
112. }
     
113. 
     
114. sub show_demo_image {
     
115.     my $canvas_window = $mw->Toplevel();
     
116.     $canvas_window->title("图片显示窗口");
     
117.     $canvas_window->geometry("400x300");
     
118.    
     
119.     my $canvas = $canvas_window->Canvas(
     
120.         -background => 'white',
     
121.         -width => 400,
     
122.         -height => 300,
     
123.     )->pack(-fill => 'both', -expand => 1);
     
124.    
     
125.     $canvas->createRectangle(50, 50, 150, 150,
     
126.         -fill => 'red',
     
127.         -outline => 'black',
     
128.         -width => 2,
     
129.     );
     
130.    
     
131.     $canvas->createOval(200, 50, 300, 150,
     
132.         -fill => 'blue',
     
133.         -outline => 'black',
     
134.         -width => 2,
     
135.     );
     
136.    
     
137.     $canvas->createPolygon(50, 200, 150, 200, 100, 100,
     
138.         -fill => 'green',
     
139.         -outline => 'black',
     
140.         -width => 2,
     
141.     );
     
142.    
     
143.     $canvas->createText(250, 200,
     
144.         -text => '示例图形',
     
145.         -font => ['Arial', 16],
     
146.         -fill => 'purple',
     
147.     );
     
148.    
     
149.     insert_chinese("已在新窗口中显示示例图片\n");
     
150. }
     
151. 
     
152. sub eval_calculation {
     
153.     my ($expr) = @_;
     
154.     $expr =~ s/\s+//g;
     
155.    
     
156.     if ($expr !~ /^[\d+\-*\/\(\)\.]+$/) {
     
157.         insert_chinese("错误: 表达式包含非法字符\n");
     
158.         return;
     
159.     }
     
160.    
     
161.     eval {
     
162.         my $result = eval $expr;
     
163.         if ($@) {
     
164.             insert_chinese("计算错误: $@\n");
     
165.         } else {
     
166.             insert_chinese("$expr = $result\n");
     
167.         }
     
168.     };
     
169. }
     
170. 
     
171. $input->bind('<Up>' => sub {
     
172.     if ($history_index < @history - 1) {
     
173.         $history_index++;
     
174.         $input->delete(0, 'end');
     
175.         $input->insert(0, $history[-1 - $history_index]);
     
176.     }
     
177. });
     
178. 
     
179. $input->bind('<Down>' => sub {
     
180.     if ($history_index > 0) {
     
181.         $history_index--;
     
182.         $input->delete(0, 'end');
     
183.         $input->insert(0, $history[-1 - $history_index]);
     
184.     } elsif ($history_index == 0) {
     
185.         $history_index = -1;
     
186.         $input->delete(0, 'end');
     
187.     }
     
188. });
     
189. 
     
190. $input->focus();
     
191. 
     
192. # 最终修复：在窗口完全显示后滚动到顶部
     
193. $mw->after(500, sub {
     
194.     $output->see('1.0');
     
195.     $mw->update();
     
196. });
     
197. 
     
198. 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组件。