使用Perl脚本将大写字母更改为小写

#!/usr/bin/perl

use strict;
use warnings;

# 读取输入文件路径
print "请输入要转换的文件路径：";
my $file_path = <STDIN>;
chomp $file_path;

# 打开输入文件
open(my $input_file, '<', $file_path) or die "无法打开文件 '$file_path'：$!";

# 读取文件内容并将大写字母转换为小写
my $output = '';
while (my $line = <$input_file>) {
    $line =~ tr/A-Z/a-z/;
    $output .= $line;
}

# 关闭输入文件
close($input_file);

# 将转换后的内容写入新文件
my $output_file_path = $file_path . "_converted";
open(my $output_file, '>', $output_file_path) or die "无法创建文件 '$output_file_path'：$!";
print $output_file $output;
close($output_file);

print "转换完成，结果已保存到文件 '$output_file_path'。\n";

perl convert_case.pl