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

zzz19760225

perl下，按任意键继续。
按任意键继续.pl

1. 
   
2. #!/usr/bin/perl
   
3. use utf8;
   
4. use strict;
   
5. use warnings;
   
6. use open qw(:std :utf8);
   
7. 
   
8. # === “按任意键继续”函数（无需回车）===
   
9. sub press_any_key {
   
10.     print "\n> 按任意键继续...";
    
11.    
    
12.     # 保存当前终端设置
    
13.     my $old_stty = `stty -g`;
    
14.     chomp $old_stty;
    
15. 
    
16.     # 设置为 raw 模式：关闭回显、关闭行缓冲
    
17.     system("stty raw -echo");
    
18. 
    
19.     # 读取一个字符（阻塞）
    
20.     my $key = getc(STDIN);
    
21. 
    
22.     # 恢复原始终端设置
    
23.     system("stty $old_stty");
    
24. 
    
25.     print "\n";  # 换行，让后续输出整洁
    
26.     return $key;
    
27. }
    
28. 
    
29. # === 示例使用 ===
    
30. print "武器店老板正在说话...\n";
    
31. sleep 1;
    
32. 
    
33. press_any_key();  # 用户按任意键后继续
    
34. 
    
35. print "你走进了武器店！\n";
    
36. <>;
    

复制代码

zzz19760225

perl下goto输入出错，不退出。
输入出错处理.pl

1. 
   
2. #!/usr/bin/perl
   
3. # 指定使用 /usr/bin/perl 解释器运行此脚本
   
4. 
   
5. use strict;
   
6. use warnings;
   
7. use utf8;                    # 告诉 Perl 源代码是 UTF-8 编码（含中文）
   
8. use open qw(:std :encoding(UTF-8));  # 设置 STDIN/STDOUT/STDERR 为 UTF-8
   
9. 
   
10. # 定义子程序 a0，用于自动扫描当前脚本中所有标签
    
11. sub a0 {
    
12.     open my $a1, '<:encoding(UTF-8)', __FILE__ or die "输入错误: $!";
    
13.    
    
14.     my %a2;
    
15.    
    
16.     while (my $a3 = <$a1>) {
    
17.         chomp $a3;
    
18.         
    
19.         # 修改点：支持中英文、数字、下划线的标签（包括汉字）
    
20.         if ($a3 =~ /^\s*([\w\x{4e00}-\x{9fff}]+)\s*:\s*$/u) {
    
21.             my $a4 = $1;
    
22.             $a2{$a4} = 1;
    
23.         }
    
24.     }
    
25.    
    
26.     close $a1;
    
27.     return \%a2;
    
28. }
    
29. 
    
30. my $a5 = a0();
    
31. 
    
32. o:
    
33. print "请输入: ";
    
34. my $a = <STDIN>; chomp $a;
    
35. 
    
36. unless (exists $a5->{$a}) { goto o; }
    
37. 
    
38. goto $a;
    
39. 
    
40. a:
    
41. print "a000\n";
    
42. goto o;
    
43. 
    
44. b:
    
45. print "b111\n";
    
46. goto o;
    
47. 
    
48. c:
    
49. print "退出中\n";
    
50. sleep 1;
    
51. exit;
    
52. 
    
53. 中文:
    
54. print "中文标签也可以。\n";
    
55. goto o;
    
56. 
    
57. d:
    
58. print "新增搜索添加标签!\n";
    
59. goto o;
    
60. 
    

复制代码

zzz19760225

perl下字符小机器人
小机器人自适应滚动信息框.pl

1. 
   
2. #!/usr/bin/perl
   
3. use utf8;
   
4. use strict;
   
5. use warnings;
   
6. use open qw(:std :utf8);
   
7. use Time::HiRes qw(sleep);  # 核心模块，用于精确 sleep
   
8. 
   
9. # === 输入文本 ===
   
10. my $input = "武器店开业啦！神剑打怪掉宝箱！aaaaaaaaaaaaaa快来买吧。今天打八折哦！错过就没有了！再不来就卖完了！";
    
11. 
    
12. # === 按标点切分句子 ===
    
13. my @sentences = grep { /\S/ } split /(?<=[。！？.!?])/, $input;
    
14. @sentences = ($input) if !@sentences || $input !~ /[。！？.!?]/;
    
15. 
    
16. # === 显示宽度计算 ===
    
17. sub display_width {
    
18.     my ($str) = @_;
    
19.     my $w = 0;
    
20.     for my $c (split //, $str) {
    
21.         $w += (ord($c) < 128) ? 1 : 2;
    
22.     }
    
23.     return $w;
    
24. }
    
25. 
    
26. # 找最大宽度
    
27. my $max_width = 1;
    
28. for my $s (@sentences) {
    
29.     my $w = display_width($s);
    
30.     $max_width = $w if $w > $max_width;
    
31. }
    
32. 
    
33. # === 固定配置 ===
    
34. my $TEXT_AREA_WIDTH = $max_width;
    
35. my $DIALOG_WIDTH    = $TEXT_AREA_WIDTH + 4;
    
36. my $MAX_DISPLAY_LINES = 4;  # 小机器人只有4行，所以最多显示4行
    
37. 
    
38. # 边框
    
39. my $top    = "╔" . ("═" x ($DIALOG_WIDTH - 2)) . "╗";
    
40. my $bottom = "╚" . ("═" x ($DIALOG_WIDTH - 2)) . "╝";
    
41. 
    
42. # 补齐函数
    
43. sub pad_to_width {
    
44.     my ($text, $target) = @_;
    
45.     my $cur = display_width($text);
    
46.     return $text . (" " x ($target - $cur)) if $cur < $target;
    
47.     return $text;
    
48. }
    
49. 
    
50. # 左侧行（固定4行）
    
51. my @robot = (
    
52.     "┃小┃╔━━━━╗",
    
53.     "┃机┃┃∩ ∩ ┃",
    
54.     "┃器┃┃ △  ┃",
    
55.     "┃人╠╣ ┌┐ ┃",
    
56.     "╚━━╝╚━━━━╝"
    
57. );
    
58. 
    
59. # 总行数
    
60. my $total = @sentences;
    
61. my $offset = 0;  # 当前滚动起始位置
    
62. 
    
63. # 清屏函数（可选）
    
64. sub clear_screen { print "\x1b[2J\x1b[H"; }
    
65. 
    
66. # === 主循环：滚动显示 ===
    
67. while (1) {
    
68.     clear_screen();  # 每次刷新前清屏，避免重叠
    
69. 
    
70.     print "╲ ╱\n";
    
71.     print "╔━━╗ ╲ ╱  $top\n";
    
72. 
    
73.     # 显示当前窗口的最多4行
    
74.     for my $i (0 .. $MAX_DISPLAY_LINES - 1) {
    
75.         my $global_index = $offset + $i;
    
76.         my $dialog_line;
    
77.         if ($global_index < $total) {
    
78.             my $padded = pad_to_width($sentences[$global_index], $TEXT_AREA_WIDTH);
    
79.             $dialog_line = "┃ $padded ┃";
    
80.         } else {
    
81.             # 不足4行时，显示空行（保持边框对齐）
    
82.             my $padded = " " x $TEXT_AREA_WIDTH;
    
83.             $dialog_line = "┃ $padded ┃";
    
84.         }
    
85. 
    
86.         print $robot[$i] . $dialog_line . "\n";
    
87.     }
    
88. 
    
89.     print $robot[-1] . "$bottom\n";  # 底部用最后一行机器人对齐
    
90. 
    
91. 
    
92. 
    
93.     # 更新偏移：循环滚动
    
94.     $offset = ($offset + 1) % $total;
    
95. 
    
96.     # 暂停2秒
    
97.     sleep(2);
    
98. }
    

复制代码

zzz19760225

自修改行
（需求：用perl本身的文字处理，而不是_DATA_,将首位“a:”行，修改为“a:;print "456";”。）
百度“perl修改自身程序里的信息区”，再ai自动信息下修改。
只是启动文件和结束文件的时候，进行读取和存储，每次使用硬盘文件两次，是没有问题的，对应打开文本txt使用的反复读取修改，可以算少的。只要不是将文本当作变量往死里用，一刻不停的游戏信息存取，应该是没有问题的吧。
标签6修改文本.pl

1. 
   
2. #!/usr/bin/perl
   
3. use strict;          # 启用严格模式：强制变量声明、禁止符号引用等，提高代码健壮性
   
4. use warnings;        # 启用运行时警告：帮助发现未初始化变量、可疑语法等问题
   
5. use utf8;            # 声明源代码文件使用 UTF-8 编码（支持中文注释和字符串）
   
6. binmode(STDOUT, ":utf8");  # 设置标准输出流为 UTF-8 编码，确保打印中文或特殊字符不乱码
   
7. 
   
8. 
   
9. 
   
10. # 1，建立文件变量
    
11. # 获取当前正在执行的脚本文件路径（ $0 是 Perl 内置变量，表示脚本自身）
    
12. my $a1 =  $0;
    
13. 
    
14. 
    
15. 
    
16. # 2，读取文件
    
17. # 以只读模式打开当前脚本文件，若失败则终止程序并报错
    
18. open my $a2, '<',  $a1 or die "打不开文件:  $!";
    
19. 
    
20. # 一次性读取整个文件的所有行到数组 @a3 中（<$a2> 是 readline 操作，注意无空格！）
    
21. my @a3 = <$a2>;
    
22. 
    
23. # 关闭输入文件句柄，释放资源
    
24. close $a2;
    
25. 
    
26. 
    
27. 
    
28. # 3，寻找匹配内容，对应替换内容
    
29. # 遍历文件的每一行
    
30. for my $a4 (@a3) {
    
31.     # 如果当前行以 "a:" 开头（^ 表示行首）
    
32.     if ( $a4 =~ /^a:/) {
    
33.         # 将整行替换为新的标准内容：标签 a: 后紧跟 print "456";
    
34.          $a4 = qq{a:;print "456";\n};
    
35.     }
    
36. }
    
37. 
    
38. 
    
39. 
    
40. # 4，输出存到文件
    
41. # 以写入模式（覆盖原文件）重新打开当前脚本
    
42. open $a2, '>',  $a1 or die "写不进文件:  $!";
    
43. 
    
44. # 将修改后的所有行写回文件，实现“自我修改”
    
45. print $a2 @a3;
    
46. 
    
47. # 关闭输出文件句柄
    
48. close $a2;
    
49. 
    
50. 
    
51. 
    
52. # 打印提示信息，告知用户脚本已成功更新
    
53. print "脚本已自我更新（a: 行已标准化）。\n";
    
54. 
    
55. # 以下是在本次运行中实际执行的代码（注意：它不会被保存到文件中，因为文件已在上面被改写）
    
56. a:;print "123";
    
57. 
    
58. # 等待用户从标准输入读取一行（例如按回车），防止终端窗口立即关闭
    
59. <>;
    

复制代码

AI自动信息总是加空格，总是用中文～，而不是英文~，奇怪。
$0文件本身，$!出错错误信息，两个固定。其余a1~a4，四个随意编辑名字的变量。my局部变量

zzz19760225

换成注释行#，这样不会直接程序读取。
读取首位"#数据行:"，其后双引号里的内容为散列变量。
读取文本自身1.pl

1. 
   
2. #!/usr/bin/perl
   
3. use strict;                # 启用严格模式，强制变量声明等，提升代码安全性
   
4. use warnings;              # 启用警告，帮助发现潜在错误（如未初始化变量）
   
5. use utf8;                  # 声明源代码文件使用 UTF-8 编码，支持中文字符
   
6. binmode(STDOUT, ":utf8");  # 设置标准输出为 UTF-8 编码，确保中文正确显示
   
7. 
   
8. my $a0 = $0;               # 获取当前正在执行的脚本文件路径（ $ 0 是 Perl 内置变量）
   
9. 
   
10. open my $a1, '<:encoding(UTF-8)', $a0 or die "打不开文件:  $!";  # 以只读方式打开当前脚本文件，失败则报错退出
    
11. my @a2 = <$a1>;            # 一次性读取整个文件的所有行，存入数组 @a2
    
12. close $a1;                 # 关闭文件句柄，释放资源
    
13. 
    
14. my %a4;                    # 声明一个空的哈希（散列）%a4，用于存储解析出的键值对
    
15. 
    
16. for my $a3 (@a2) {         # 遍历脚本的每一行（ $ a3 代表当前行）
    
17.     if ($a3 =~ /^#数据行:\s*"([^"]+)"/) {# 匹配以 "#数据行:" 开头，后紧跟双引号字符串
    
18.         my $a5 =  $1;       # 提取双引号内的内容
    
19.         for my $a6 (split /,\s*/, $a5) {      # 按逗号（允许后接空格）分割成多个键值对片段
    
20.            if ($a6 =~ /^([^:]+):(.+)$/) {# 对每个片段，用冒号分割成键和值（左边是键，右边是值）
    
21.                   $a4{$1} = $2;                # 将键值对存入哈希 %a4
    
22.             }
    
23.         }
    
24.         last;              # 找到第一个匹配的 a:; 行后就停止循环，避免重复处理
    
25.     }
    
26. }
    
27. 
    
28. print "解析出的哈希:\n";   # 打印提示信息
    
29. for my $a7 (sort keys %a4) {  # 遍历哈希 %a4 的所有键（按字母顺序排序）
    
30.     print "$a7 => $a4{$a7}\n";  # 打印每个键值对，格式为 "键 => 值"
    
31. }
    
32. 
    
33. open  $a1, '>:encoding(UTF-8)',  $a0 or die "写不进文件:  $!";  # 以写入模式（覆盖）重新打开当前脚本文件
    
34. print  $a1 @a2;             # 将原始内容原样写回文件（实现“自我保留”，虽未修改但完成重写）
    
35. close  $a1;                 # 关闭文件句柄
    
36. 
    
37. #数据行:"b1:123,b2:456,b3:789";
    
38. print "按回车继续或结束\n";   # 打印提示信息
    
39. <>;                        # 等待用户输入一行（例如按回车），防止终端窗口立即关闭
    

复制代码

输出结果

1. 
   
2. 解析出的哈希:
   
3. b1 => 123
   
4. b2 => 456
   
5. b3 => 789
   
6. 按回车继续或结束
   

复制代码

zzz19760225

输入1位自动执行跳转
1跳转选择if.pl

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. END { system('stty sane'); }  # 确保程序退出时终端恢复正常
   
7. 
   
8. a0:
   
9.     print ":";
   
10.     system('stty raw -echo');   # 设置终端为 raw 模式（无缓冲、无回显）
    
11.     my $a = getc(STDIN);
    
12.     system('stty sane');    # 立即恢复终端（即使出错也要恢复！）
    
13.     exit unless defined $a;
    
14.     eval{ # eval用于没有对应跳转标签时，出错自动退出的问题。这样没有对应标签，也不会直接就退出程序。
    
15.     # 使用字符串比较（eq），不是数值比较（==）
    
16.          if ($a eq '1') { print "选择1\n"; }
    
17.          if ($a eq 'a') { print "选择a\n"; }
    
18.          if ($a eq '3') { print "选择3\n"; }
    
19.          if ($a eq '4') { goto a4; }
    
20.          if ($a eq '5') { goto a5; }
    
21.     }; #注意后面的分号别忘了，没有分号就出错。
    
22.     goto a0;
    

复制代码

输出结果

1. 
   
2. ::选择1
   
3. :选择a
   
4. :选择3
   
5. ::::::选择a
   
6. :选择1
   
7. :选择3
   
8. :
   

复制代码

两个问题，一个是直接关闭窗口x的程序接不上，另一个单字符输入的串联实现可能。

zzz19760225

2位数的输入，立刻自动执行。
1跳转选择if3.pl

1. 
   
2. #!/usr/bin/perl
   
3. use strict;        # 启用严格模式，强制声明变量等，避免低级错误
   
4. use warnings;      # 启用警告，帮助发现潜在问题
   
5. 
   
6. # 程序退出时自动恢复终端设置（防止 raw 模式残留导致终端异常）
   
7. END { system('stty sane'); }
   
8. 
   
9. # 主循环标签：程序从这里不断重复读取用户输入
   
10. a0:
    
11.     print ":";     # 打印提示符，表示等待用户输入
    
12. 
    
13.     # 调用 a1() 子程序，读取第一个按键字符（不回显、无需回车）
    
14.     my $c1 = a1();
    
15.     exit unless defined $c1;   # 如果读取失败（如 Ctrl+D），则退出程序
    
16. 
    
17.     # 判断第一个字符是否为数字字符 '0' 到 '9'
    
18.     if ( $c1 ge '0' &&  $c1 le '9') {
    
19.         # 读取第二个按键字符
    
20.         my $c2 = a1();
    
21. 
    
22.         # 检查第二个字符是否存在且也是数字
    
23.         if (defined $c2 &&  $c2 ge '0' &&  $c2 le '9') {
    
24.             # 将两个字符拼接成两位数的字符串（如 "1" + "1" → "11"）
    
25.             my $d = "$c1$c2";
    
26. 
    
27.             # 注意：这里应使用字符串比较（eq），但原代码用了数值比较（==）
    
28.             # 虽然 Perl 中 "11" == '11' 会返回真（因自动转换），但存在风险
    
29.             # 建议改为 eq，但此处按你原结构保留（已可工作）
    
30. 
    
31.             # 根据输入的两位数跳转到对应标签
    
32.             if    ( $d == '11') { goto wqd; }   # 输入 11，跳转到飞镖处理
    
33.             elsif ( $d == '22') { goto fzd; }   # 输入 22，跳转到风之刀处理
    
34.             elsif ( $d == '33') { goto spd; }   # 输入 33，跳转到闪电披风处理
    
35.             else {
    
36.                 # 未定义的选项，提示未知并返回主循环
    
37.                 print "未知选项: $d\n";
    
38.                 goto a0;
    
39.             }
    
40.         } else {
    
41.             # 第二个字符不是有效数字
    
42.             print "第二位无效\n";
    
43.             goto a0;
    
44.         }
    
45.     } else {
    
46.         # 第一个字符不是数字
    
47.         print "第一位必须是数字\n";
    
48.         goto a0;
    
49.     }
    
50. 
    
51. # ========== 各功能标签（模拟批处理中的 goto 目标） ==========
    
52. 
    
53. wqd:
    
54.     print "执行：飞镖相关操作\n";   # 处理选项 11 的逻辑
    
55.     goto a0;                      # 返回主循环，继续等待新输入
    
56. 
    
57. fzd:
    
58.     print "执行：风之刀相关操作\n"; # 处理选项 22 的逻辑
    
59.     goto a0;
    
60. 
    
61. spd:
    
62.     print "执行：闪电披风相关操作\n"; # 处理选项 33 的逻辑
    
63.     goto a0;
    
64. 
    
65. # ========== 子程序定义 ==========
    
66. 
    
67. # a1()：以原始模式（raw）读取单个字符，不回显，无需按回车
    
68. sub a1 {
    
69.     system('stty raw -echo');   # 设置终端为 raw 模式，并关闭回显
    
70.     my $b = getc(STDIN);        # 从标准输入读取一个字符
    
71.     system('stty sane');        # 立即恢复终端正常模式（重要！）
    
72.     return  $b;                  # 返回读取到的字符
    
73. }
    

复制代码

输出结果

1. 
   
2. :执行：飞镖相关操作
   
3. :执行：风之刀相关操作
   
4. :执行：闪电披风相关操作
   
5. :未知选项: 44
   
6. :未知选项: 55
   
7. :第一位必须是数字
   
8. :第一位必须是数字
   
9. :第一位必须是数字
   
10. :第一位必须是数字
    
11. :执行：飞镖相关操作
    
12. :执行：风之刀相关操作
    
13. :执行：闪电披风相关操作
    
14. :未知选项: 44
    
15. :未知选项: 77
    
16. :未知选项: 88
    
17. :
    

复制代码

zzz19760225

直接执行和回车，两种模式切换。
1跳转选择if4.pl

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. use utf8;
   
6. binmode(STDOUT, ":utf8");
   
7. 
   
8. END { system('stty sane'); }
   
9. 
   
10. # 预加载所有标签
    
11. my $valid_labels = load_labels();
    
12. my $mode = 'normal';
    
13. 
    
14. print "普通模式启动\n";
    
15. print "命令:";
    
16. print "a:普通模式,";
    
17. print "a1:单字符RAW,";
    
18. print "a2:两位数RAW,";
    
19. print "RAW模式下:";
    
20. print "a返回普通模式";
    
21. print "s切换RAW子模式 (a1 &#8596; a2)\n\n";
    
22. 
    
23. main_loop:
    
24. while (1) {
    
25.     if ( $mode eq 'raw1') {
    
26.         print "[RAW1] 按数字执行；s=切到RAW2,a=普通, [RAW1]: ";
    
27.         system('stty raw -echo');
    
28.         my $key = getc(STDIN);
    
29.         system('stty sane');
    
30.         exit unless defined  $key;
    
31. 
    
32.         if ( $key eq 'a') {
    
33.              $mode = 'normal';
    
34.             print "\n\n切换到普通模式\n";
    
35.             goto main_loop;
    
36.         }
    
37.         elsif ( $key eq 's') {
    
38.              $mode = 'raw2';
    
39.             print "\n\n切换到两位数 RAW 模式\n";
    
40.             goto main_loop;
    
41.         }
    
42.         elsif ( $key =~ /^[1-9]$/) {
    
43.             my $label = "b$key";
    
44.             if (exists  $valid_labels->{ $label}) {
    
45.                 goto  $label;
    
46.             } else {
    
47.                 print "\n标签 ' $label' 未定义\n";
    
48.                 goto main_loop;
    
49.             }
    
50.         } else {
    
51.             print "\n忽略: ' $key'\n";
    
52.             goto main_loop;
    
53.         }
    
54.     }
    
55.     elsif ( $mode eq 'raw2') {
    
56.         print "[RAW2] 输入两位数字；s=切到RAW1, a=普通, s=切到RAW1, [RAW2]: ";
    
57. 
    
58.         # --- 读第一个字符 ---
    
59.         system('stty raw -echo');
    
60.         my $k1 = getc(STDIN);
    
61.         system('stty sane');
    
62.         exit unless defined  $k1;
    
63. 
    
64.         if ( $k1 eq 'a') {
    
65.              $mode = 'normal';
    
66.             print "\n\n切换到普通模式";
    
67.             goto main_loop;
    
68.         }
    
69.         elsif ( $k1 eq 's') {
    
70.              $mode = 'raw1';
    
71.             print "\n\n切换到单字符 RAW 模式";
    
72.             goto main_loop;
    
73.         }
    
74.         elsif ( $k1 !~ /^[0-9]$/) {
    
75.             print "\n第一个字符非数字，忽略\n";
    
76.             goto main_loop;
    
77.         }
    
78. 
    
79.         # --- 读第二个字符 ---
    
80.         print "(已输  $k1) 再按数字/s/a: ";
    
81.         system('stty raw -echo');
    
82.         my $k2 = getc(STDIN);
    
83.         system('stty sane');
    
84.         exit unless defined  $k2;
    
85. 
    
86.         if ( $k2 eq 'a') {
    
87.              $mode = 'normal';
    
88.             print "\n切换到普通模式\n";
    
89.             goto main_loop;
    
90.         }
    
91.         elsif ( $k2 eq 's') {
    
92.              $mode = 'raw1';
    
93.             print "\n切换到单字符 RAW 模式\n";
    
94.             goto main_loop;
    
95.         }
    
96.         elsif ( $k2 !~ /^[0-9]$/) {
    
97.             print "\n第二个字符非数字，忽略\n";
    
98.             goto main_loop;
    
99.         }
    
100. 
     
101.         my $num =  $k1.$k2;
     
102.         my $label = "b$num";
     
103.         if (exists  $valid_labels->{ $label}) {
     
104.             goto  $label;
     
105.         } else {
     
106.             print "\n标签 ' $label' 未定义\n";
     
107.             goto main_loop;
     
108.         }
     
109.     }
     
110.     else {
     
111.         # ========== 普通模式 ==========
     
112.         print "普通模式: ";
     
113.         my $input = <STDIN>;
     
114.         last unless defined  $input;
     
115.         chomp  $input;
     
116. 
     
117.         if    ( $input eq 'a')  {  $mode = 'normal'; print "已在普通模式\n"; }
     
118.         elsif ( $input eq 'a1') {  $mode = 'raw1';   print "\n进入单字符 RAW 模式\n"; }
     
119.         elsif ( $input eq 'a2') {  $mode = 'raw2';   print "\n进入两位数 RAW 模式\n"; }
     
120.         elsif ( $input eq 'quit' ||  $input eq 'exit') { last; }
     
121.         elsif ( $input =~ /^b\d+$/ && exists  $valid_labels->{ $input}) {
     
122.             goto  $input;
     
123.         }
     
124.         elsif ( $input =~ /^\d+$/) {
     
125.             my $label = "b$input";
     
126.             if (exists  $valid_labels->{ $label}) {
     
127.                 goto  $label;
     
128.             } else {
     
129.                 print "标签 ' $label' 不存在\n";
     
130.             }
     
131.         }
     
132.         else {
     
133.             print "未知命令: ' $input'\n";
     
134.         }
     
135.         goto main_loop;
     
136.     }
     
137. }
     
138. 
     
139. print "再见！\n";
     
140. exit;
     
141. 
     
142. # ========== 加载标签 ==========
     
143. sub load_labels {
     
144.     open my $fh, '<:encoding(UTF-8)', __FILE__ or die "无法读取自身:  $!";
     
145.     my %labels;
     
146.     while (my $line = <$fh>) {
     
147.         chomp  $line;
     
148.     if ( $line =~ /^\s*([\w\x{4e00}-\x{9fff}]+)\s*:/) {
     
149.              $labels{ $1} = 1;
     
150.         }
     
151.     }
     
152.     close $fh;
     
153.     return \%labels;
     
154. }
     
155. 
     
156. # ========== 公共标签（可按需扩展）==========
     
157. b0:;print "执行: 选择0\n";   goto main_loop;
     
158. b1:;print "执行: 选择1\n";   goto main_loop;
     
159. b2:;print "执行: 选择2\n";   goto main_loop;
     
160. b3:;print "执行: 选择3\n";   goto main_loop;
     
161. b4:;print "执行: 选择4\n";   goto main_loop;
     
162. b5:;print "执行: 选择5\n";   goto main_loop;
     
163. b6:;print "执行: 选择6\n";   goto main_loop;
     
164. b7:;print "执行: 选择7\n";   goto main_loop;
     
165. b8:;print "执行: 选择8\n";   goto main_loop;
     
166. b9:;print "执行: 选择9\n";   goto main_loop;
     
167. b10:;  print "执行: 选择10\n";  goto main_loop;
     
168. b11:;  print "执行: 选择11\n";  goto main_loop;
     
169. b45:;  print "执行: 选择45\n";  goto main_loop;
     
170. b99:;  print "执行: 选择99\n";  goto main_loop;
     
171. b00:;  print "执行: 选择00\n";  goto main_loop;
     
172. b000:; print "执行: 选择000\n"; goto main_loop;
     

复制代码

输出结果

1. 
   
2. 普通模式启动
   
3. 命令:a:普通模式,a1:单字符RAW,a2:两位数RAW,RAW模式下:a返回普通模式s切换RAW子模式 (a1 &#8596; a2)
   
4. 
   
5. 普通模式: 1
   
6. 执行: 选择1
   
7. 普通模式: 2
   
8. 执行: 选择2
   
9. 普通模式: a1
   
10. 
    
11. 进入单字符 RAW 模式
    
12. [RAW1] 按数字执行；s=切到RAW2,a=普通, [RAW1]:
    
13. 
    
14. 切换到两位数 RAW 模式
    
15. [RAW2] 输入两位数字；s=切到RAW1, a=普通, s=切到RAW1, [RAW2]:
    
16. 
    
17. 切换到普通模式普通模式: 1
    
18. 执行: 选择1
    
19. 普通模式: 2
    
20. 执行: 选择2
    
21. 普通模式: a1
    
22. 
    
23. 进入单字符 RAW 模式
    
24. [RAW1] 按数字执行；s=切到RAW2,a=普通, [RAW1]: 执行: 选择1
    
25. [RAW1] 按数字执行；s=切到RAW2,a=普通, [RAW1]: 执行: 选择2
    
26. [RAW1] 按数字执行；s=切到RAW2,a=普通, [RAW1]: 执行: 选择3
    
27. [RAW1] 按数字执行；s=切到RAW2,a=普通, [RAW1]:
    
28. 
    
29. 切换到两位数 RAW 模式
    
30. [RAW2] 输入两位数字；s=切到RAW1, a=普通, s=切到RAW1, [RAW2]: (已输  1) 再按数字/s/a:
    
31. 标签 ' b12' 未定义
    
32. [RAW2] 输入两位数字；s=切到RAW1, a=普通, s=切到RAW1, [RAW2]: (已输  1) 再按数字/s/a: 执行: 选择11
    
33. [RAW2] 输入两位数字；s=切到RAW1, a=普通, s=切到RAW1, [RAW2]: (已输  4) 再按数字/s/a: 执行: 选择45
    
34. [RAW2] 输入两位数字；s=切到RAW1, a=普通, s=切到RAW1, [RAW2]: (已输  9) 再按数字/s/a: 执行: 选择99
    
35. [RAW2] 输入两位数字；s=切到RAW1, a=普通, s=切到RAW1, [RAW2]:
    
36. 
    
37. 切换到普通模式普通模式: a1
    
38. 
    
39. 进入单字符 RAW 模式
    
40. [RAW1] 按数字执行；s=切到RAW2,a=普通, [RAW1]:
    

复制代码

zzz19760225

换成~-=切换普通raw12三模式
1跳转选择if6.pl

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. use utf8;
   
6. use open ':std', ':encoding(utf8)';
   
7. 
   
8. END { system('stty sane'); }
   
9. 
   
10. my $valid_labels = load_labels();
    
11. my $mode = 'normal';
    
12. 
    
13. print "普通模式启动:\n";
    
14. print "输入'-'单字符raw1,输入'='两位数raw2,其他输入将被回显（支持中英文、数字、符号）\n";
    
15. 
    
16. main_loop:
    
17. while (1) {
    
18.     if ($mode eq 'raw1') {
    
19.         print "[RAW1]按一数字执行,空格换raw2模式,~换普通模式,[RAW1]:";
    
20.         system('stty raw -echo');
    
21.         my $key = getc(STDIN);
    
22.         system('stty sane');
    
23.         exit unless defined $key;
    
24. 
    
25.         if ($key eq '~') {
    
26.             $mode = 'normal';
    
27.             print "\n\n~回普通模式\n";
    
28.             goto main_loop;
    
29.         }
    
30.         elsif ($key eq ' ') {
    
31.             $mode = 'raw2';
    
32.             print "\n\n空格换RAW2模式\n";
    
33.             goto main_loop;
    
34.         }
    
35.         elsif ($key =~ /^[1-9]$/) {
    
36.             my $label = "b$key";
    
37.             if (exists $valid_labels->{$label}) {
    
38.                 goto $label;
    
39.             } else {
    
40.                 print "\n标签'$label' 未定义\n";
    
41.                 goto main_loop;
    
42.             }
    
43.         } else {
    
44.             print "\n忽略:'$key'\n";
    
45.             goto main_loop;
    
46.         }
    
47.     }
    
48.     elsif ($mode eq 'raw2') {
    
49.         print "[RAW2]输两数字，空格换raw1模式，~换普通模式，[RAW2]:";
    
50. 
    
51.         # --- 第一个字符 ---
    
52.         system('stty raw -echo');
    
53.         my $k1 = getc(STDIN);
    
54.         system('stty sane');
    
55.         exit unless defined $k1;
    
56. 
    
57.         if ($k1 eq '~') {
    
58.             $mode = 'normal';
    
59.             print "\n\n~返回普通模式\n";
    
60.             goto main_loop;
    
61.         }
    
62.         elsif ($k1 eq ' ') {
    
63.             $mode = 'raw1';
    
64.             print "\n\n空格换RAW1模式\n";
    
65.             goto main_loop;
    
66.         }
    
67.         elsif ($k1 !~ /^[0-9]$/) {
    
68.             print "\n第一个字符非数字，忽略\n";
    
69.             goto main_loop;
    
70.         }
    
71. 
    
72.         # --- 第二个字符 ---
    
73.         print "\n(已输$k1)再按一数字/~/空格: ";
    
74.         system('stty raw -echo');
    
75.         my $k2 = getc(STDIN);
    
76.         system('stty sane');
    
77.         exit unless defined $k2;
    
78. 
    
79.         if ($k2 eq '~') {
    
80.             $mode = 'normal';
    
81.             print "\n\n~返回普通模式\n";
    
82.             goto main_loop;
    
83.         }
    
84.         elsif ($k2 eq ' ') {
    
85.             $mode = 'raw1';
    
86.             print "\n\n空格换RAW1模式\n";
    
87.             goto main_loop;
    
88.         }
    
89.         elsif ($k2 !~ /^[0-9]$/) {
    
90.             print "\n第二个字符非数字，忽略\n";
    
91.             goto main_loop;
    
92.         }
    
93. 
    
94.         my $num = $k1 . $k2;
    
95.         my $label = "b$num";
    
96.         if (exists $valid_labels->{$label}) {
    
97.             goto $label;
    
98.         } else {
    
99.             print "\n标签 '$label' 未定义\n";
    
100.             goto main_loop;
     
101.         }
     
102.     }
     
103.     else {
     
104.         # ========== 普通模式 ==========
     
105.         print "普通模式: ";
     
106.         my $input = <STDIN>;
     
107.         last unless defined  $input;
     
108.         chomp  $input;
     
109. 
     
110.         if    ( $input eq '~')  {  $mode = 'normal'; print "已在普通模式\n"; }
     
111.         elsif ( $input eq '-') {  $mode = 'raw1';   print "\n-进RAW1模式\n"; }
     
112.         elsif ( $input eq '=') {  $mode = 'raw2';   print "\n=进RAW2模式\n"; }
     
113.         elsif ( $input eq 'quit' ||  $input eq 'exit') { last; }
     
114.         elsif ( $input =~ /^b\d+$/ && exists  $valid_labels->{ $input}) {
     
115.             goto  $input;
     
116.         }
     
117.         elsif ( $input =~ /^\d+$/) {
     
118.             my $label = "b$input";
     
119.             if (exists  $valid_labels->{ $label}) {
     
120.                 goto  $label;
     
121.             } else {
     
122.                 print "标签 ' $label' 不存在\n";
     
123.             }
     
124.         }
     
125.         else {
     
126.             print "未知命令: ' $input'\n";
     
127.         }
     
128.         goto main_loop;
     
129.     }
     
130. }
     
131. 
     
132. print "再见！\n";
     
133. exit;
     
134. 
     
135. # ========== 自动加载当前文件中的标签 ==========
     
136. sub load_labels {
     
137.     open my $fh, '<:encoding(UTF-8)', __FILE__ or die "打不开文件: $!";
     
138.     my %labels;
     
139.     while (my $line = <$fh>) {
     
140.         chomp $line;
     
141.         # 匹配行首的 "xxx:" 标签（允许后面有代码）
     
142.         if ($line =~ /^\s*([\w\x{4e00}-\x{9fff}]+)\s*:/) {
     
143.             $labels{$1} = 1;
     
144.         }
     
145.     }
     
146.     close $fh;
     
147.     return \%labels;
     
148. }
     
149. 
     
150. # ========== 公共执行标签 ==========
     
151. b0:;   print "执行: 选择0\n";   goto main_loop;
     
152. b1:;   print "执行: 选择1\n";   goto main_loop;
     
153. b2:;   print "执行: 选择2\n";   goto main_loop;
     
154. b3:;   print "执行: 选择3\n";   goto main_loop;
     
155. b4:;   print "执行: 选择4\n";   goto main_loop;
     
156. b5:;   print "执行: 选择5\n";   goto main_loop;
     
157. b6:;   print "执行: 选择6\n";   goto main_loop;
     
158. b7:;   print "执行: 选择7\n";   goto main_loop;
     
159. b8:;   print "执行: 选择8\n";   goto main_loop;
     
160. b9:;   print "执行: 选择9\n";   goto main_loop;
     
161. b10:;  print "执行: 选择10\n";  goto main_loop;
     
162. b11:;  print "执行: 选择11\n";  goto main_loop;
     
163. b45:;  print "执行: 选择45\n";  goto main_loop;
     
164. b99:;  print "执行: 选择99\n";  goto main_loop;
     
165. b00:;  print "执行: 选择00\n";  goto main_loop;
     
166. b000:; print "执行: 选择000\n"; goto main_loop;
     
167. 中文:; print "执行: 选择中文了\n"; goto main_loop;
     
168. ba:; print "执行: 选择了a\n"; goto main_loop;
     

复制代码

输出结果

1. 
   
2. 普通模式启动:
   
3. 输入'-'单字符raw1,输入'='两位数raw2,其他输入将被回显（支持中英文、数字、符号）
   
4. 普通模式: 1
   
5. 执行: 选择1
   
6. 普通模式: ~
   
7. 已在普通模式
   
8. 普通模式: -
   
9. 
   
10. -进RAW1模式
    
11. [RAW1]按一数字执行,空格换raw2模式,~换普通模式,[RAW1]:
    
12. 
    
13. ~回普通模式
    
14. 普通模式: =
    
15. 
    
16. =进RAW2模式
    
17. [RAW2]输两数字，空格换raw1模式，~换普通模式，[RAW2]:
    
18. 
    
19. ~返回普通模式
    
20. 普通模式: -
    
21. 
    
22. -进RAW1模式
    
23. [RAW1]按一数字执行,空格换raw2模式,~换普通模式,[RAW1]:
    
24. 
    
25. 空格换RAW2模式
    
26. [RAW2]输两数字，空格换raw1模式，~换普通模式，[RAW2]:
    
27. (已输1)再按一数字/~/空格: 执行: 选择11
    
28. [RAW2]输两数字，空格换raw1模式，~换普通模式，[RAW2]:
    
29. (已输9)再按一数字/~/空格: 执行: 选择99
    
30. [RAW2]输两数字，空格换raw1模式，~换普通模式，[RAW2]:
    
31. 
    
32. 空格换RAW1模式
    
33. [RAW1]按一数字执行,空格换raw2模式,~换普通模式,[RAW1]:执行: 选择1
    
34. [RAW1]按一数字执行,空格换raw2模式,~换普通模式,[RAW1]:执行: 选择2
    
35. [RAW1]按一数字执行,空格换raw2模式,~换普通模式,[RAW1]:
    

复制代码

后面程序卡死了，不知道该做什么。应该是需要结构路线循环图，这些结构路线里的剧情，进菜菜城，出菜菜城，建增减删看账户群，重复循环。
游戏开始和结束，游戏的玩家账户和角色建增减删看，游戏结构本体，本体内外交流交换易的重复循环流水线，流水线上的地图世界容器。

zzz19760225

用普通输入模式，靠近回车键的几个左手按键，避开\键，几个组合，从01～20
eval，避免没有标签出错退出。
;=0
lop[]=12345
l]o]p][]]]=678910
l]]o]]p]][]]]]]=1112131415
l]]]o]]]p]]][]]]]]]=1617181920

1. 
   
2. #!/usr/bin/perl
   
3. use utf8;
   
4. use strict;
   
5. use warnings;
   
6. use open ':std', ':encoding(utf8)';
   
7. my $a;
   
8. a0:
   
9. eval{
   
10. print "输入并回车:";$a=<STDIN>;chomp $a;
    
11. 
    
12. if ($a eq ";"){goto a0;}
    
13. if ($a eq "l"){goto a1;}
    
14. if ($a eq "o"){goto a2;}
    
15. if ($a eq "p"){goto a3;}
    
16. if ($a eq "["){goto a4;}
    
17. if ($a eq "]"){goto a5;}
    
18. if ($a eq "l]"){goto a6;}
    
19. if ($a eq "o]"){goto a7;}
    
20. if ($a eq "p]"){goto a8;}
    
21. if ($a eq "[]"){goto a9;}
    
22. if ($a eq "]]"){goto a10;}
    
23. 
    
24. if ($a eq "l]]"){goto a11;}
    
25. if ($a eq "o]]"){goto a12;}
    
26. if ($a eq "p]]"){goto a13;}
    
27. if ($a eq "[]]"){goto a14;}
    
28. if ($a eq "]]]"){goto a15;}
    
29. if ($a eq "l]]]"){goto a16;}
    
30. if ($a eq "o]]]"){goto a17;}
    
31. if ($a eq "p]]]"){goto a18;}
    
32. if ($a eq "[]]]"){goto a19;}
    
33. if ($a eq "]]]]"){goto a20;}
    
34. };
    
35. 
    
36. goto a0;
    
37. 
    
38. 
    
39. a7:
    
40. system("clear");        # 同样清空历史（取决于终端）
    
41. print "\033[H";   # 移动光标到顶部
    
42. print "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓\n";
    
43. print "▓                                  武器店                                  ▓\n";
    
44. print "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓\n";
    
45. print "昵称：%nc% 气血：%rhp%/%rhpsx% 法力：%rmp%/%rmpsx% 攻击：%rgj% 防御：%rfy%\n";
    
46. print "等级：%lv% 经验：%exp%/%sjexp% 银两：%yl% 点数：%ds% 饱食度：%bsd%/%bsdsx%\n";
    
47. print "武器：%wqmc% 攻击+%wqgj% 服装：%fzmc% 防御+%fzfy%\n";
    
48. print "腰带：%ydmc% 气血上限+%ydqx% 饰品：%mzmc% 魔法上限+%mzmf%\n";
    
49. print "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓\n";
    
50. print "╲ ╱\n";
    
51. print "╔━━╗ ╲ ╱  ╔━━━━━━━━━━━━━━━━━━━━━━━━╗\n";
    
52. print "┃小┃╔━━━━╗┃这里是武器店，武器店可以┃\n";
    
53. print "┃机┃┃∩ ∩ ┃┃购买武器来提升攻击力，打┃\n";
    
54. print "┃器┃┃ △  ┃┃怪可获得金钱！          ┃\n";
    
55. print "┃人╠╣ ┌┐ ┃╚━━━━━━━━━━━━━━━━━━━━━━━━╝\n";
    
56. print "╚━━╝╚━━━━╝\n";
    
57. print "名称 属性 价格\n";
    
58. print "1.红缨枪 攻击+10 100\n";
    
59. print "2.曲尖枪 攻击+30 100\n";
    
60. print "3.锯齿矛 攻击+60 200\n";
    
61. print "4.乌金三叉戟 攻击+100 255\n";
    
62. print "5.火焰枪 攻击+150 255\n";
    
63. print "6.墨杆金钩 攻击+200 255\n";
    
64. print "7.玄铁矛 攻击+250 255\n";
    
65. print "8.金蛇信 攻击+310 1000\n";
    
66. print "9.丈八点钢矛 攻击+380 1000\n";
    
67. print "10.暗夜 攻击+450 10000\n";
    
68. print "11.梨花 攻击+450 10000\n";
    
69. print "12.霹雳 攻击+450 10000\n";
    
70. print "0.返回\n";
    
71. print "\n";
    
72. print "请输入：";
    
73. 
    
74. 
    
75. goto a0;
    
76. 
    
77. a8:
    
78. system("clear");        # 同样清空历史（取决于终端）
    
79. print "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓\n";
    
80. print "▓                                  服装店                                  ▓\n";
    
81. print "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓\n";
    
82. print "昵称：%nc% 气血：%rhp%/%rhpsx% 法力：%rmp%/%rmpsx% 攻击：%rgj% 防御：%rfy%\n";
    
83. print "等级：%lv% 经验：%exp%/%sjexp% 银两：%yl% 点数：%ds% 饱食度：%bsd%/%bsdsx%\n";
    
84. print "武器：%wqmc% 攻击+%wqgj% 服装：%fzmc% 防御+%fzfy%\n";
    
85. print "腰带：%ydmc% 气血上限+%ydqx% 饰品：%mzmc% 魔法上限+%mzmf%\n";
    
86. print "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓\n";
    
87. print "╲ ╱\n";
    
88. print "╔━━╗ ╲ ╱  ╔━━━━━━━━━━━━━━━━━━━━━━━━╗\n";
    
89. print "┃小┃╔━━━━╗┃这里是服装店，服装店能购┃\n";
    
90. print "┃机┃┃∩ ∩ ┃┃买衣服，来提高防御力！  ┃\n";
    
91. print "┃器┃┃ △  ┃┃                        ┃\n";
    
92. print "┃人╠╣ ┌┐ ┃╚━━━━━━━━━━━━━━━━━━━━━━━━╝\n";
    
93. print "╚━━╝╚━━━━╝\n";
    
94. print "名称 属性 价格\n";
    
95. print "1.布衣 防御+10 200\n";
    
96. print "2.皮衣 防御+30 300\n";
    
97. print "3.鳞甲 防御+60 500\n";
    
98. print "4.梭子衣 防御+100 500\n";
    
99. print "5.紧身衣 防御+150 500\n";
    
100. print "6.钢甲 防御+200 600\n";
     
101. print "7.夜魔披风 防御+250 600\n";
     
102. print "8.龙骨甲 防御+310 1000\n";
     
103. print "9.死亡斗篷 防御+380 10000\n";
     
104. print "10.神谕披风 防御+450 25000\n";
     
105. print "0.返回\n";
     
106. print "\n";
     
107. print "请输入：";
     
108. 
     
109. goto a0;
     
110. 
     
111. a9:
     
112. system("clear");        # 同样清空历史（取决于终端）
     
113. print "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓\n";
     
114. print "▓                                  饰品店                                  ▓\n";
     
115. print "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓\n";
     
116. print "昵称：%nc% 气血：%rhp%/%rhpsx% 法力：%rmp%/%rmpsx% 攻击：%rgj% 防御：%rfy%\n";
     
117. print "等级：%lv% 经验：%exp%/%sjexp% 银两：%yl% 点数：%ds% 饱食度：%bsd%/%bsdsx%\n";
     
118. print "武器：%wqmc% 攻击+%wqgj% 服装：%fzmc% 防御+%fzfy%\n";
     
119. print "腰带：%ydmc% 气血上限+%ydqx% 饰品：%mzmc% 魔法上限+%mzmf%\n";
     
120. print "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓\n";
     
121. print "╲ ╱\n";
     
122. print "╔━━╗ ╲ ╱  ╔━━━━━━━━━━━━━━━━━━━━━━━━╗\n";
     
123. print "┃小┃╔━━━━╗┃这里是饰品店！在这里可以┃\n";
     
124. print "┃机┃┃∩ ∩ ┃┃购买饰品提高魔法上限！  ┃\n";
     
125. print "┃器┃┃ △  ┃┃                        ┃\n";
     
126. print "┃人╠╣ ┌┐ ┃╚━━━━━━━━━━━━━━━━━━━━━━━━╝\n";
     
127. print "╚━━╝╚━━━━╝\n";
     
128. print "名称 属性 价格\n";
     
129. print "1.迷你戒指 魔法上限+10 100\n";
     
130. print "2.铜戒指 魔法上限+20 150\n";
     
131. print "3.金戒指 魔法上限+60 200\n";
     
132. print "4.魔法指环 魔法上限+120 300\n";
     
133. print "5.魔晶指环 魔法上限+200 350\n";
     
134. print "6.元素之环 魔法上限+300 400\n";
     
135. print "7.暗魔指环 魔法上限+400 500\n";
     
136. print "8.星河指环 魔法上限+500 1000\n";
     
137. print "9.猎魔指环 魔法上限+620 1500\n";
     
138. print "10.雷霆指环 魔法上限+760 5000\n";
     
139. print "11.幻龙之心 魔法上限+900 7000\n";
     
140. print "0.返回\n";
     
141. print "\n";
     
142. print "请输入：";
     
143. 
     
144. 
     
145. goto a0;
     
146. 
     
147. a10:
     
148. system("clear");        # 同样清空历史（取决于终端）
     
149. print "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓\n";
     
150. print "▓                                   药店                                   ▓\n";
     
151. print "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓\n";
     
152. print "昵称：%nc% 气血：%rhp%/%rhpsx% 法力：%rmp%/%rmpsx% 攻击：%rgj% 防御：%rfy%\n";
     
153. print "等级：%lv% 经验：%exp%/%sjexp% 银两：%yl% 点数：%ds% 饱食度：%bsd%/%bsdsx%\n";
     
154. print "武器：%wqmc% 攻击+%wqgj% 服装：%fzmc% 防御+%fzfy%\n";
     
155. print "腰带：%ydmc% 气血上限+%ydqx% 饰品：%mzmc% 魔法上限+%mzmf%\n";
     
156. print "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓\n";
     
157. print "╲ ╱\n";
     
158. print "╔━━╗ ╲ ╱  ╔━━━━━━━━━━━━━━━━━━━━━━━━╗\n";
     
159. print "┃小┃╔━━━━╗┃这里是药店！这里购买的道┃\n";
     
160. print "┃机┃┃∩ ∩ ┃┃具可在战斗使用！不过很贵┃\n";
     
161. print "┃器┃┃ △  ┃┃......                  ┃\n";
     
162. print "┃人╠╣ ┌┐ ┃╚━━━━━━━━━━━━━━━━━━━━━━━━╝\n";
     
163. print "╚━━╝╚━━━━╝\n";
     
164. print "\n";
     
165. print "1.购买金疮药 恢复气血200点 价格：500 剩余数量：%jcy%\n";
     
166. print "\n";
     
167. print "2.购买仙狐延 恢复法力200点 价格：500 剩余数量：%xhy%\n";
     
168. print "\n";
     
169. print "       ╔\n";
     
170. print "dragon.  购买龙魂丹    拥有龙的力量  价格:100000  拥有数量：%lhd%\n";
     
171. print "                   ╝\n";
     
172. print "\n";
     
173. print "3.免费恢复气血，魔力（剩余次数：%mfhf%）\n";
     
174. print "\n";
     
175. print "4.返回\n";
     
176. print "\n";
     
177. print "请输入：";
     
178. 
     
179. 
     
180. goto a0;
     
181. 
     
182. a11:
     
183. system("clear");        # 同样清空历史（取决于终端）
     
184. print "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓\n";
     
185. print "▓                                   酒店                                   ▓\n";
     
186. print "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓\n";
     
187. print "昵称：%nc% 气血：%rhp%/%rhpsx% 法力：%rmp%/%rmpsx% 攻击：%rgj% 防御：%rfy%\n";
     
188. print "等级：%lv% 经验：%exp%/%sjexp% 银两：%yl% 点数：%ds% 饱食度：%bsd%/%bsdsx%\n";
     
189. print "武器：%wqmc% 攻击+%wqgj% 服装：%fzmc% 防御+%fzfy%\n";
     
190. print "腰带：%ydmc% 气血上限+%ydqx% 饰品：%mzmc% 魔法上限+%mzmf%\n";
     
191. print "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓\n";
     
192. print "\n";
     
193. print "1.吃包子 恢复气血100点 饱食度100点 价格：50\n";
     
194. print "\n";
     
195. print "2.住店（恢复气血，魔法，但需要耗费20秒时间） 价格：200\n";
     
196. print "\n";
     
197. print "3.返回\n";
     
198. print "\n";
     
199. print "请输入：";
     
200. 
     
201. 
     
202. goto a0;
     
203. 
     

复制代码

zzz19760225

用户信息
用户信息变量1.pl

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. use utf8;
   
6. binmode(STDOUT, ":utf8");
   
7. binmode(STDIN, ":utf8");
   
8. use Term::ANSIColor;
   
9. 
   
10. my %hash;
    
11. a00:
    
12. %hash = (
    
13.     nc      => '昵称1',
    
14.     lv      => 1,           # 等级
    
15.     ds      => 0,           # 充值点数
    
16.     yl      => 0,           # 银两
    
17.     suiyin  => 0,           # 碎银（不是整银，需要一个操作合成银两）
    
18.     exp     => 0,           # 经验
    
19.     sjexp   => 20,          # 最大升级经验值
    
20.     sjexpdz => 10,          # 最大升级经验值
    
21.     bsd     => 1000,        # 饱食度
    
22.     bsdsx   => 1000,        # 最大饱食值
    
23.     rgj     => 20,          # 攻击
    
24.     rfy     => 10,          # 防御
    
25.     rhp     => 30,          # 气血值
    
26.     rhpsx   => 30,          # 最大气血值
    
27.     rmp     => 30,          # 魔法值
    
28.     rmpsx   => 30,          # 最大魔法值
    
29.     wqmc    => '无',        # 武器
    
30.     wqgj    => 0,           # 武器攻击
    
31.     fzmc    => '无',        # 服装
    
32.     fzfy    => 0,           # 服装防御
    
33.     ydmc    => '无',        # 腰带
    
34.     ydqx    => 0,           # 腰带加气血
    
35.     mzmc    => '无',        # 戒指
    
36.     mzmf    => 0,           # 戒指加魔法
    
37.     xixue   => 0,           # 吸血
    
38.     mfhf    => 3,           # 免费恢复气血和魔法的次数
    
39.     hh      => 1,           # 回合
    
40.     mb      => 0,           # 面包
    
41.     bg      => 0,           # 饼干
    
42.     jcy     => 0,           # 金创药
    
43.     xhy     => 0,           # 仙狐延
    
44.     lhd     => 0,           # 龙魂丹
    
45.     jnl1    => '空卡槽',    # 技能1
    
46.     jnl2    => '空卡槽',    # 技能2
    
47.     jnl3    => '空卡槽',    # 技能3
    
48.     qnfyj   => 0,           # 劝降翻译机
    
49. 
    
50.     js      => 0,           # 击杀数
    
51.     bosszgr => int(rand(10)) + 1, # 怪老大装备暴率 (1-10)
    
52. );
    
53. 
    
54. print "\n";
    
55. print "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓\n";
    
56. print "▓";
    
57. print color('black on_black'), "一二三四五六七八九十壹贰叁肆伍陆柒", color('reset');
    
58. print "菜菜城";
    
59. print color('black on_black'), "一二三四五六七八九十壹贰叁肆伍陆柒", color('reset');
    
60. print "▓\n";
    
61. print "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓00▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓\n";
    
62. print "昵称：$hash{nc}  气血：$hash{rhp}/$hash{rhpsx}  法力：$hash{rmp}/$hash{rmpsx}  攻击：$hash{rgj}  防御：$hash{rfy}\n";
    
63. print "等级：$hash{lv}  经验：$hash{exp}/$hash{sjexp}  银两：$hash{yl}  点数：$hash{ds}  饱食度：$hash{bsd}/$hash{bsdsx}\n";
    
64. print "武器：$hash{wqmc}  攻击+$hash{wqgj}  服装：$hash{fzmc}  防御+$hash{fzfy}\n";
    
65. print "腰带：$hash{ydmc}  气血上限+$hash{ydqx}  饰品：$hash{mzmc}  魔法上限+$hash{mzmf}\n";
    
66. print "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓\n";
    
67. 
    
68. <>;
    
69. goto a00;
    

复制代码

输出

1. 
   
2. ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
   
3. ▓一二三四五六七八九十壹贰叁肆伍陆柒菜菜城一二三四五六七八九十壹贰叁肆伍陆柒▓
   
4. ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓00▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
   
5. 昵称：昵称1  气血：30/30  法力：30/30  攻击：20  防御：10
   
6. 等级：1  经验：0/20  银两：0  点数：0  饱食度：1000/1000
   
7. 武器：无  攻击+0  服装：无  防御+0
   
8. 腰带：无  气血上限+0  饰品：无  魔法上限+0
   
9. ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
   

复制代码

点数可以无限，巨大数量值，也可以每天设置一个定量，点数用光了就下机，不给再玩了，除非修改这个设置，否则自愿自限的游戏数量养成习惯。家长自制给孩子玩的游戏这个概念空间，而不是接受市场给予的游戏。家长与孩子的PK挑战竞赛互动，将网吧的人群互动气氛，带到家庭。
彩色字，换掉空格计数的中文计数数字，和背景都是黑色的，与背景同色，是看不到的。

zzz19760225

游戏开始画面色彩条，用简化的8色。
开始画面.pl

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. use utf8;
   
6. 
   
7. # 设置 UTF-8 输出，支持中文和方块
   
8. binmode(STDOUT, ':utf8');
   
9. $| = 1; # 关闭缓冲
   
10. 
    
11. # --- 配置区域 ---
    
12. my $delay = 0.001; # 基本色比较鲜艳，稍微慢一点(0.15s)看得更清楚
    
13. 
    
14. # 【修改点】颜色映射改为 8 基本色 (0-7)
    
15. # 顺序：黑 -> 红 -> 绿 -> 黄 -> 蓝 -> 紫 -> 青 -> 白
    
16. my @color_codes = (0, 1, 2, 3, 4, 5, 6, 7);
    
17. my @color_names = ('黑', '红', '绿', '黄', '蓝', '紫', '青', '白');
    
18. 
    
19. # 长条方块
    
20. my $blocks = "■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■";
    
21. a0:
    
22. print "开始执行 8 基本色动画...\n";
    
23. 
    
24. for my $i (1 .. 100) {
    
25.     # 遍历 8 种颜色
    
26.     for my $idx (0 .. $#color_codes) {
    
27.         my $code = $color_codes[$idx];
    
28.         my $name = $color_names[$idx];
    
29.         
    
30.         # 使用 sprintf 构造前景色 (38;5;N)
    
31.         my $start = sprintf("\e[38;5;%dm", $code);
    
32.         my $reset = "\e[0m";
    
33.         
    
34.         # 打印：[颜色][方块][重置]
    
35.         # 为了调试，你可以在方块后加上颜色名称，这里为了美观只打印方块
    
36.         print "${start}${blocks}${reset}\n";
    
37.         
    
38.         # 延时
    
39.         select(undef, undef, undef, $delay);
    
40.     }
    
41. }
    
42. 
    
43. print sprintf("\e[1;38;5;15m%s\e[0m\n", "完成。");
    
44. goto a1; a3:;  # 停留等待执行，按任意键继续。
    
45. goto a0;
    
46. 
    
47. a1:
    
48.     print "\n> 按任意键继续...";
    
49.     my $old_stty = `stty -g`;    # 保存当前终端设置
    
50.     chomp $old_stty;
    
51.     system("stty raw -echo");    # 设置为 raw 模式：关闭回显、关闭行缓冲
    
52.     my $key = getc(STDIN);    # 读取一个字符（阻塞）
    
53.     system("stty $old_stty");    # 恢复原始终端设置
    
54.     print "\n";  # 换行，让后续输出整洁
    
55. goto a2;
    
56. 
    
57. a2:
    
58. print "\033[2J\033[H";  # 清屏并光标归位&&
    
59. goto a3;
    

复制代码

输出

1. 
   
2. 开始执行 8 基本色动画...
   
3. ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
   
4. ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
   
5. ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
   
6. ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
   
7. ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
   
8. ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
   
9. ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
   
10. ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
    
11. ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
    
12. ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
    
13. ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
    
14. .........................
    
15. ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
    
16. ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
    
17. ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
    
18. ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
    
19. ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
    
20. 完成。
    
21. 
    

复制代码

8种色条

zzz19760225

散列存到最后一行注释行（排序不能加非数字，否则会提出警示）
散列排序.pl

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. use utf8;                  # 声明源代码文件使用 UTF-8 编码，支持中文字符
   
6. binmode(STDOUT, ":utf8");  # 设置标准输出使用UTF-8编码
   
7. 
   
8. # 定义一个哈希表，存储数字和对应的字符串值
   
9. my %numbers = (
   
10.     '1'      => '昵称1',
    
11.     '2'      => 1,           # 等级
    
12.     '3'      => 0,           # 充值点数
    
13.     '4'      => 0,           # 银两
    
14.     '5'      => 0,           # 碎银（不是整银，需要一个操作合成银两）
    
15.     '6'      => 0,           # 经验
    
16.     '7'      => 20,          # 最大升级经验值
    
17.     '8'      => 10,          # 最大升级经验值
    
18.     '9'      => 1000,        # 饱食度
    
19.     '10'     => 1000,        # 最大饱食值
    
20.     '11'     => 20,          # 攻击
    
21.     '12'     => 10,          # 防御
    
22.     '13'     => 30,          # 气血值
    
23.     '14'     => 30,          # 最大气血值
    
24.     '15'     => 30,          # 魔法值
    
25.     '16'     => 30,          # 最大魔法值
    
26.     '17'     => '无',        # 武器
    
27.     '18'     => 0,           # 武器攻击
    
28.     '19'     => '无',        # 服装
    
29.     '20'     => 0,           # 服装防御
    
30.     '21'     => '无',        # 腰带
    
31.     '22'     => 0,           # 腰带加气血
    
32.     '23'     => '无',        # 戒指
    
33.     '24'     => 0,           # 戒指加魔法
    
34.     '25'     => 0,           # 吸血
    
35.     '26'     => 3,           # 免费恢复气血和魔法的次数
    
36.     '27'     => 1,           # 回合
    
37.     '28'     => 0,           # 面包
    
38.     '29'     => 0,           # 饼干
    
39.     '30'     => 0,           # 金创药
    
40.     '31'     => 0,           # 仙狐延
    
41.     '32'     => 0,           # 龙魂丹
    
42.     '33'     => '空卡槽',    # 技能1
    
43.     '34'     => '空卡槽',    # 技能2
    
44.     '35'     => '空卡槽',    # 技能3
    
45.     '36'     => 0,           # 劝降翻译机
    
46. 
    
47.     '37'     => 0,           # 击杀数
    
48.     '38'     => int(rand(10)) + 1, # 怪老大装备暴率 (1-10)
    
49. );
    
50. 
    
51. # 以追加模式打开脚本自身文件
    
52. open(my $fh, '>>:encoding(UTF-8)', $0) or die "无法打开自身文件: $!";
    
53. 
    
54. # 向文件写入 "#0:" 前缀
    
55. print $fh "#0:";
    
56. 
    
57. # 对哈希表的键进行数字排序（0,1,2,10,11,20），并输出对应的值
    
58. foreach my $key (sort { $a <=> $b } keys %numbers) {
    
59.     print $fh "$numbers{$key},";
    
60. }
    
61. 
    
62. # 写入换行符并关闭文件
    
63. print $fh "\n";
    
64. close($fh);
    
65. <>;
    
66. #0:昵称1,1,0,0,0,0,20,10,1000,1000,20,10,30,30,30,30,无,0,无,0,无,0,无,0,0,3,1,0,0,0,0,0,空卡槽,空卡槽,空卡槽,0,0,10,
    
67. #0:昵称1,1,0,0,0,0,20,10,1000,1000,20,10,30,30,30,30,无,0,无,0,无,0,无,0,0,3,1,0,0,0,0,0,空卡槽,空卡槽,空卡槽,0,0,3,
    
68. #0:昵称1,1,0,0,0,0,20,10,1000,1000,20,10,30,30,30,30,无,0,无,0,无,0,无,0,0,3,1,0,0,0,0,0,空卡槽,空卡槽,空卡槽,0,0,1,
    

复制代码

这里有个需求如何定义的问题，老板与执行员工如何做事，购买方甲方需求与工程劳动乙方的描述事对接。需要什么样的用户信息，以什么形式去过程，取得结果。开始单是用户名，执行接触的地图区域，就染上了信息影子色彩。这个信息染色应该怎么做。AI自动信息的说法是数据分阶段添加，这样从数据分阶段添加去考虑。

zzz19760225

散列键排序4.pl

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. use utf8;                  # 声明源代码文件使用 UTF-8 编码，支持中文字符
   
6. binmode(STDOUT, ":utf8");  # 设置标准输出使用UTF-8编码
   
7. 
   
8. # 定义一个哈希表，存储数字和对应的字符串值
   
9. my %a1 = (
   
10.     "1"   => "无名勇士",
    
11.     "2"    => int(rand(10)) + 1,
    
12. );
    
13. 
    
14. # 先读取当前文件的所有行
    
15. open(my $a123, '<:utf8', $0) or die "无法读取自身文件: $!";
    
16. my @b1 = <$a123>;
    
17. close($a123);
    
18. 
    
19. # 过滤掉以#开头且后面紧跟着"无名勇士"的行
    
20. my $c1 = $a1{'1'};
    
21. @b1 = grep { !/^#$c1/ } @b1;
    
22. 
    
23. # 以写入模式重新打开文件
    
24. open($a123, '>:utf8', $0) or die "无法写入自身文件: $!";
    
25. 
    
26. # 写回过滤后的内容
    
27. print $a123 @b1;
    
28. 
    
29. # 向文件写入新的 "#无名勇士:" 前缀
    
30. print $a123 "#$a1{'1'}:";
    
31. 
    
32. # 对哈希表的键进行数字排序，并输出对应的值,sort { $a <=> $b }是内置变量处理，不能修改。
    
33. foreach my $d1 (sort { $a <=> $b } keys %a1) {
    
34.     print $a123 "$a1{$d1},";
    
35. }
    
36. 
    
37. # 写入换行符并关闭文件
    
38. print $a123 "\n";
    
39. close($a123);
    
40. 
    
41. <>;
    
42. #无名勇士:无名勇士,1,
    

复制代码

zzz19760225

散列增减
散列2键增减.pl

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. # 假设$a1从某处获取值
   
7. my $a1 = 1;  # 示例赋值
   
8. my %a0 = (a => 1, b => 2);  # 正确初始化哈希
   
9. 
   
10. print "前哈希内容:\n";
    
11. foreach my $key (keys %a0) {print "$key => $a0{$key}\n";}
    
12. 
    
13. if ($a1 == 1) { goto A2;  }# 跳转到A2标签
    
14. 
    
15. A2:
    
16. if ($a1 == 1) {$a0{c} = 3; } # 正确添加元素到哈希
    
17. 
    
18. print "后哈希内容:\n";
    
19. foreach my $key (keys %a0) {print "$key => $a0{$key}\n";}
    
20. <>;
    

复制代码

输出

1. 
   
2. 前哈希内容:
   
3. a => 1
   
4. b => 2
   
5. 后哈希内容:
   
6. c => 3
   
7. a => 1
   
8. b => 2
   

复制代码