|
|
楼主 |
发表于 2026-3-8 17:11:41
|
显示全部楼层
本帖最后由 zzz19760225 于 2026-3-8 17:24 编辑
输入实现散列合并处理
散列2键增减散列合并输入.pl
- #!/usr/bin/perl
- use strict;
- use warnings;
- a0:
- my %a = (a1 => 1, a2 => 2);
- my %b = (b3 => 3, b4 => 4);
- # 打印原始散列
- print "散列a:\n";
- foreach my $c (keys %a) { print " $c => $a{$c} ,";}
- print "\n";
- print "散列b:\n";
- foreach my $c (keys %b) { print " $c => $b{$c} ,";}
- print "\n";
- print "请输入: ";
- my $input = <STDIN>;
- chomp $input;
- if ($input eq '123') {
- @a{keys %b} = values %b;
- print "执行合并。\n";
- goto a1; # 跳转到显示标签
- }
- # 如果输入错误，也执行到这里
- a1:
- print "a1标签下的散列a：";
- foreach my $c (keys %a) {
- print "$c => $a{$c} ,";
- }
- print "\n";
- <>;
- goto a0;
- 散列a:
- a2 => 2 , a1 => 1 ,
- 散列b:
- b4 => 4 , b3 => 3 ,
- 请输入: 789
- a1标签下的散列a：a2 => 2 ,a1 => 1 ,
- 散列a:
- a2 => 2 , a1 => 1 ,
- 散列b:
- b4 => 4 , b3 => 3 ,
- 请输入: 123
- 执行合并。
- a1标签下的散列a：a2 => 2 ,b4 => 4 ,a1 => 1 ,b3 => 3 ,
- 散列a:
- a1 => 1 , a2 => 2 ,
- 散列b:
- b3 => 3 , b4 => 4 ,
- 请输入: 456
- a1标签下的散列a：a1 => 1 ,a2 => 2 ,
- 散列a:
- a1 => 1 , a2 => 2 ,
- 散列b:
- b3 => 3 , b4 => 4 ,
- 请输入: 123
- 执行合并。
- a1标签下的散列a：b3 => 3 ,a1 => 1 ,a2 => 2 ,b4 => 4 ,
|
|
