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

zzz19760225

一个游戏玩家信息主容器%a，对这个散列的聚散，清空，增减，修改等。
散列2键增减散列合并.pl

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my %a = ();                # 清空散列a
   
7. my %b = ();
   
8. %a = (a1 => 1, a2 => 2);   # 重新赋值
   
9. %b = (b3 => 3, b4 => 4);   # 定义散列b
   
10. 
    
11. # 打印原始散列
    
12. print "散列a:\n";
    
13. foreach my $c (keys %a) {  print " $c => $a{$c} ,";}
    
14. print "\n";
    
15. print "散列b:\n";
    
16. foreach my $c (keys %b) {  print " $c => $b{$c} ,";}
    
17. print "\n";
    
18. # 合并散列b到散列a（使用散列切片）
    
19. @a{keys %b} = values %b; # 这里的@a不是指数组，是指散列切片，容易混淆！keys键名复数，values值复数
    
20. 
    
21. # 遍历并打印合并后的散列a
    
22. print "\n合并后的结果,合并散列a:\n";
    
23. foreach my $c (keys %a) {  print "$c => $a{$c} ,";}
    
24. 
    
25. <>;  # 等待用户输入，相当于暂停
    

复制代码

输出

1. 
   
2. 散列a:
   
3. a1 => 1 , a2 => 2 ,
   
4. 散列b:
   
5. b3 => 3 , b4 => 4 ,
   
6. 
   
7. 合并后的结果,合并散列a:
   
8. b3 => 3 ,b4 => 4 ,a1 => 1 ,a2 => 2 ,
   
9. 
   

复制代码

zzz19760225

输入实现散列合并处理
散列2键增减散列合并输入.pl

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. a0:
   
6. my %a = (a1 => 1, a2 => 2);
   
7. my %b = (b3 => 3, b4 => 4);
   
8. 
   
9. # 打印原始散列
   
10. print "散列a:\n";
    
11. foreach my $c (keys %a) {  print " $c => $a{$c} ,";}
    
12. print "\n";
    
13. print "散列b:\n";
    
14. foreach my $c (keys %b) {  print " $c => $b{$c} ,";}
    
15. print "\n";
    
16. 
    
17. print "请输入: ";
    
18. my $input = <STDIN>;
    
19. chomp $input;
    
20. 
    
21. if ($input eq '123') {
    
22.     @a{keys %b} = values %b;
    
23.     print "执行合并。\n";
    
24.     goto a1;  # 跳转到显示标签
    
25. }
    
26. # 如果输入错误，也执行到这里
    
27. a1:
    
28.     print "a1标签下的散列a：";
    
29.     foreach my $c (keys %a) {  
    
30.                   print "$c => $a{$c} ,";
    
31.     }
    
32. print "\n";
    
33. 
    
34. <>;
    
35. goto a0;
    

复制代码

输出

1. 
   
2. 散列a:
   
3. a2 => 2 , a1 => 1 ,
   
4. 散列b:
   
5. b4 => 4 , b3 => 3 ,
   
6. 请输入: 789
   
7. a1标签下的散列a：a2 => 2 ,a1 => 1 ,
   
8. 
   
9. 散列a:
   
10. a2 => 2 , a1 => 1 ,
    
11. 散列b:
    
12. b4 => 4 , b3 => 3 ,
    
13. 请输入: 123
    
14. 执行合并。
    
15. a1标签下的散列a：a2 => 2 ,b4 => 4 ,a1 => 1 ,b3 => 3 ,
    
16. 
    
17. 散列a:
    
18. a1 => 1 , a2 => 2 ,
    
19. 散列b:
    
20. b3 => 3 , b4 => 4 ,
    
21. 请输入: 456
    
22. a1标签下的散列a：a1 => 1 ,a2 => 2 ,
    
23. 
    
24. 散列a:
    
25. a1 => 1 , a2 => 2 ,
    
26. 散列b:
    
27. b3 => 3 , b4 => 4 ,
    
28. 请输入: 123
    
29. 执行合并。
    
30. a1标签下的散列a：b3 => 3 ,a1 => 1 ,a2 => 2 ,b4 => 4 ,
    
31. 
    

复制代码

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. 
   
9. # 文件名
   
10. my $filename = $0;  # 当前脚本文件名
    
11. 
    
12. # 读取文件中的注释数据
    
13. my @nicknames = read_nicknames_from_file($filename);
    
14. 
    
15. # 第一次使用，没有昵称
    
16. if (scalar(@nicknames) == 0) {
    
17.     print "首次使用，请输入您的昵称（直接回车将使用'无名勇士'）：";
    
18.     my $input = <STDIN>;
    
19.     chomp $input;
    
20.    
    
21.     my $nickname = $input ne "" ? $input : "无名勇士";
    
22.    
    
23.     # 将昵称保存到文件
    
24.     add_nickname_to_file($filename, $nickname);
    
25.    
    
26.     print "昵称已设置为：$nickname\n";
    
27.     @nicknames = ($nickname);  # 更新内存中的昵称列表
    
28. }
    
29. 
    
30. # 显示管理表
    
31. while (1) {
    
32.     print "\n" . "=" x 40 . "\n";
    
33.     print "          昵称管理表\n";
    
34.     print "=" x 40 . "\n";
    
35.    
    
36.     # 显示所有昵称
    
37.     if (scalar(@nicknames) > 0) {
    
38.         foreach my $i (0 .. $#nicknames) {
    
39.             printf "%d. %s\n", $i + 1, $nicknames[$i];
    
40.         }
    
41.     } else {
    
42.         print "暂无昵称\n";
    
43.     }
    
44.    
    
45.     print "-" x 40 . "\n";
    
46.     print "操作选项：\n";
    
47.     print "a. 新增昵称\n";
    
48.     print "d. 删除昵称（输入序号）\n";
    
49.     print "q. 退出\n";
    
50.     print "请选择操作（a/d/q）：";
    
51.    
    
52.     my $choice = <STDIN>;
    
53.     chomp $choice;
    
54.    
    
55.     if ($choice eq 'a') {
    
56.         # 新增昵称
    
57.         print "请输入新昵称（直接回车将使用'无名勇士'）：";
    
58.         my $new_nickname = <STDIN>;
    
59.         chomp $new_nickname;
    
60.         $new_nickname = "无名勇士" if $new_nickname eq "";
    
61.         
    
62.         add_nickname_to_file($filename, $new_nickname);
    
63.         print "已添加昵称：$new_nickname\n";
    
64.         
    
65.         # 重新读取昵称列表
    
66.         @nicknames = read_nicknames_from_file($filename);
    
67.     }
    
68.     elsif ($choice eq 'd') {
    
69.         # 删除昵称
    
70.         if (scalar(@nicknames) == 0) {
    
71.             print "没有可删除的昵称！\n";
    
72.             next;
    
73.         }
    
74.         
    
75.         print "请输入要删除的序号（1-" . scalar(@nicknames) . "）：";
    
76.         my $num = <STDIN>;
    
77.         chomp $num;
    
78.         
    
79.         if ($num =~ /^\d+$/ && $num >= 1 && $num <= scalar(@nicknames)) {
    
80.             my $deleted_nickname = $nicknames[$num - 1];
    
81.             # 从数组中删除
    
82.             splice(@nicknames, $num - 1, 1);
    
83.             # 保存到文件
    
84.             save_nicknames_to_file($filename, @nicknames);
    
85.             print "已删除昵称：$deleted_nickname\n";
    
86.             
    
87.             # 删除后继续循环，不会退出程序
    
88.             # 重新读取文件以确保数据一致
    
89.             @nicknames = read_nicknames_from_file($filename);
    
90.         } else {
    
91.             print "无效的序号！\n";
    
92.         }
    
93.     }
    
94.     elsif ($choice eq 'q') {
    
95.         print "退出程序。\n";
    
96.         last;  # 退出while循环
    
97.     }
    
98.     else {
    
99.         print "无效的选择，请重新输入！\n";
    
100.     }
     
101. }
     
102. 
     
103. # 等待用户输入后退出
     
104. print "\n按回车键退出...";
     
105. <>;
     
106. 
     
107. # ==================== 子函数 ====================
     
108. 
     
109. # 从文件中读取所有昵称
     
110. sub read_nicknames_from_file {
     
111.     my ($file) = @_;
     
112.     my @nicknames;
     
113.    
     
114.     open my $fh, '<:utf8', $file or die "无法打开文件 $file: $!";
     
115.     while (my $line = <$fh>) {
     
116.         # 查找注释行： #0 或 #1 等开头的行，后跟 nickname: 值
     
117.         if ($line =~ /^#\d+\s+.*nickname:\s*(\S[^\n]*)/) {
     
118.             push @nicknames, $1;
     
119.         }
     
120.     }
     
121.     close $fh;
     
122.    
     
123.     return @nicknames;
     
124. }
     
125. 
     
126. # 添加新昵称到文件
     
127. sub add_nickname_to_file {
     
128.     my ($file, $new_nickname) = @_;
     
129.    
     
130.     # 先读取现有内容
     
131.     open my $fh, '<:utf8', $file or die "无法打开文件 $file: $!";
     
132.     my @lines = <$fh>;
     
133.     close $fh;
     
134.    
     
135.     # 查找最后一个注释行的编号
     
136.     my $last_num = -1;
     
137.     foreach my $line (@lines) {
     
138.         if ($line =~ /^#(\d+)\s+/) {
     
139.             $last_num = $1 if $1 > $last_num;
     
140.         }
     
141.     }
     
142.    
     
143.     # 生成新注释行
     
144.     my $new_num = $last_num + 1;
     
145.     my $new_line = "#$new_num nickname: $new_nickname\n";
     
146.    
     
147.     # 在文件末尾添加新行
     
148.     push @lines, $new_line;
     
149.    
     
150.     # 写回文件
     
151.     open $fh, '>:utf8', $file or die "无法写入文件 $file: $!";
     
152.     print $fh @lines;
     
153.     close $fh;
     
154. }
     
155. 
     
156. # 保存所有昵称到文件（替换原有）
     
157. sub save_nicknames_to_file {
     
158.     my ($file, @nicknames) = @_;
     
159.    
     
160.     # 读取现有内容
     
161.     open my $fh, '<:utf8', $file or die "无法打开文件 $file: $!";
     
162.     my @lines = <$fh>;
     
163.     close $fh;
     
164.    
     
165.     # 过滤掉所有 nickname 注释行
     
166.     my @new_lines;
     
167.     foreach my $line (@lines) {
     
168.         # 如果不是 nickname 注释行，保留
     
169.         if ($line !~ /^#\d+\s+.*nickname:/) {
     
170.             push @new_lines, $line;
     
171.         }
     
172.     }
     
173.    
     
174.     # 添加新的 nickname 注释行
     
175.     foreach my $i (0 .. $#nicknames) {
     
176.         push @new_lines, "#$i nickname: $nicknames[$i]\n";
     
177.     }
     
178.    
     
179.     # 写回文件
     
180.     open $fh, '>:utf8', $file or die "无法写入文件 $file: $!";
     
181.     print $fh @new_lines;
     
182.     close $fh;
     
183. }
     

复制代码

输出

1. 
   
2. 首次使用，请输入您的昵称（直接回车将使用'无名勇士'）：
   
3. 昵称已设置为：无名勇士
   
4. 
   
5. ========================================
   
6.           昵称管理表
   
7. ========================================
   
8. 1. 无名勇士
   
9. ----------------------------------------
   
10. 操作选项：
    
11. a. 新增昵称
    
12. d. 删除昵称（输入序号）
    
13. q. 退出
    
14. 请选择操作（a/d/q）：a
    
15. 请输入新昵称（直接回车将使用'无名勇士'）：123
    
16. 已添加昵称：123
    
17. 
    
18. ========================================
    
19.           昵称管理表
    
20. ========================================
    
21. 1. 无名勇士
    
22. 2. 123
    
23. ----------------------------------------
    
24. 操作选项：
    
25. a. 新增昵称
    
26. d. 删除昵称（输入序号）
    
27. q. 退出
    
28. 请选择操作（a/d/q）：a
    
29. 请输入新昵称（直接回车将使用'无名勇士'）：123
    
30. 已添加昵称：123
    
31. 
    
32. ========================================
    
33.           昵称管理表
    
34. ========================================
    
35. 1. 无名勇士
    
36. 2. 123
    
37. 3. 123
    
38. ----------------------------------------
    
39. 操作选项：
    
40. a. 新增昵称
    
41. d. 删除昵称（输入序号）
    
42. q. 退出
    
43. 请选择操作（a/d/q）：d
    
44. 请输入要删除的序号（1-3）：2
    
45. 已删除昵称：123
    
46. 
    
47. ========================================
    
48.           昵称管理表
    
49. ========================================
    
50. 1. 无名勇士
    
51. 2. 123
    
52. ----------------------------------------
    
53. 操作选项：
    
54. a. 新增昵称
    
55. d. 删除昵称（输入序号）
    
56. q. 退出
    
57. 请选择操作（a/d/q）：
    
58. 
    

复制代码