Perl程序执行加密后无法正确保存文件数据问题求助

嘿，看你这段Perl代码写到一半就卡住了（最后是s...），从目前的片段来看，我能找出几个导致保存数据失败的关键问题，咱们来逐个解决：

1. 只读取了文件的第一行 #

你现在用$userinput= <$fh>;只能读取文件的第一行内容，如果你的目标文件有多行，后面的内容都会被直接忽略，加密后自然只保存了一小部分数据。要读取整个文件有两种常用方式：

• 一次性读入全部内容（适合小文件）：

local $/; # 临时取消输入记录分隔符，让<>读取整个文件
my $userinput = <$fh>;

• 逐行读取处理（适合大文件，避免内存占用过高）：

while (my $line = <$fh>) {
    # 对当前行执行加密操作
    my $encrypted_line = your_encrypt_function($line);
    # 立即写入输出文件
    print $oh $encrypted_line;
}

2. 加密逻辑缺失且未写入输出 #

你代码里的s...应该是加密的替换操作，但这部分没写完。不管你用哪种加密方式（简单字符替换或者专业加密模块），一定要确保加密后的内容被写入输出文件句柄$oh。比如用简单的ROT13加密示例：

# 对读取到的内容执行ROT13加密
$userinput =~ tr/A-Za-z/N-ZA-Mn-za-m/;
# 把加密后的内容写入输出文件
print $oh $userinput;

3. 建议显式关闭文件句柄 #

虽然Perl会在程序结束时自动关闭文件句柄，但显式关闭可以避免缓冲区数据未刷新的问题，确保所有内容都写入文件：

close $fh;
close $oh;

完整可运行示例代码 #

这里给你一个完整的例子，包含参数检查、完整读写和加密逻辑：

#!/usr/bin/perl
use strict;
use warnings;

# 检查是否传入了文件名参数
die "用法：$0 <要加密的文件名>\n" unless @ARGV == 1;

my $filename = $ARGV[0];

# 打开输入文件（UTF-8编码）
open(my $fh, '<:encoding(UTF-8)', $filename) 
    or die "无法打开文件 '$filename'：$!";

# 打开输出文件（这里你用了.dec后缀，通常加密后用.enc，可根据需求修改）
open(my $oh, '>:encoding(UTF-8)', "$filename.dec") 
    or die "无法保存到文件 '$filename.dec'：$!";

# 一次性读取整个文件内容
local $/;
my $content = <$fh>;

# 替换成你的加密逻辑，这里用ROT13作为示例
$content =~ tr/A-Za-z/N-ZA-Mn-za-m/;

# 写入加密后的内容
print $oh $content;

# 关闭文件句柄
close $fh;
close $oh;

print "加密完成！输出文件：$filename.dec\n";

如果需要更安全的加密方式，比如对称加密，可以使用Crypt::CBC模块，先通过cpan Crypt::CBC安装，然后在代码中引入并使用，比如：

use Crypt::CBC;
my $cipher = Crypt::CBC->new(
    -key    => 'your_secret_key',
    -cipher => 'Blowfish'
);
my $encrypted_content = $cipher->encrypt($content);
print $oh $encrypted_content;

内容的提问来源于stack exchange，提问作者masral