用perl将fw文件转换为txt，txt的每行只保留一个字节的十进制数

你可以使用以下 Perl 代码将 fw 文件转换为 txt 文件，其中 txt 文件的每一行只保留一个字节的十进制数：

#!/usr/bin/perl

use strict;
use warnings;

# 输入文件路径
my $fw_file = 'input.fw';

# 输出文件路径
my $txt_file = 'output.txt';

open(my $fw_fh, '<', $fw_file) or die "Cannot open input file: $!";
open(my $txt_fh, '>', $txt_file) or die "Cannot open output file: $!";

binmode($fw_fh);

while (read($fw_fh, my $byte, 1)) {
    my $decimal = ord($byte);
    print $txt_fh "$decimal\n";
}

close($fw_fh);
close($txt_fh);

print "Conversion completed successfully!\n";

在上面的代码中，你需要将 `input.fw` 替换为你的 fw 文件的路径，将 `output.txt` 替换为你希望生成的 txt 文件的路径。

运行上述代码后，它将逐字节读取 fw 文件，将每个字节转换为十进制数，并将其写入 txt 文件的每一行。最后会输出 "Conversion completed successfully!" 表示转换成功。

请确保在运行代码之前，你已经正确安装了 Perl，并且将 fw 文件放置在正确的路径下。