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