Perl编程实践问题解析

75、编写一个正则表达式，匹配由 $what 变量所代表的模式重复 3 次的情况，思考括号的作用

正则表达式可写为 /^($what){3}$/ 。括号的作用是将 $what 代表的模式作为一个整体，确保该整体重复 3 次。若没有括号，可能只对 $what 中的部分元素重复计数，无法准确匹配 $what 模式整体重复 3 次的情况。

76、编写一个程序，从命令行接收一个文件名，将文件中所有的 Fred 替换为 Larry，并将结果保存到一个新文件中，新文件的扩展名改为 .out，思考 /g 和 /i 选项在 Perl 替换操作中的作用

以下是实现该功能的 Perl 程序示例：

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

# 检查命令行是否提供了文件名
if (@ARGV != 1) {
    die "请在命令行提供一个文件名。\n";
}

# 获取输入文件名
my $input_file = $ARGV[0];

# 生成输出文件名
(my $output_file = $input_file) =~ s/\.[^.]+$/.out/;

# 打开输入文件
open(my $in_fh, '<', $input_file) or die "无法打开文件 $input_file: $!\n";

# 打开输出文件
open(my $out_fh, '>', $output_file) or die "无法打开文件 $output_file: $!\n";

# 逐行读取输入文件
while (my $line = <$in_fh>) {
    # 使用替换操作将 Fred 替换为 Larry
    $line =~ s/Fred/Larry/g;
    # 将修改后的行写入输出文件
    print $out_fh $line;
}

# 关闭文件
close($in_fh);
close($out_fh);

print "文件处理完成，结果已保存到 $output_file\n";

/g 和 /i 选项的作用

• /g 选项 ：全局替换选项。如果没有 /g 选项，替换操作只会替换每行中首次出现的匹配项；而使用 /g 选项后，替换操作会替换每行中所有出现的匹配项。在上述程序中，如果不使用 /g ，则每行中只有第一个 Fred 会被替换为 Larry ；使用 /g 后，每行中所有的 Fred 都会被替换。

• /i 选项 ：忽略大小写选项。如果在替换操作中使用 /i 选项，如 $line =~ s/Fred/Larry/gi; ，则匹配时会忽略大小写，即 Fred 、 fred 、 FRED 等都会被匹配并替换为 Larry 。

77、编写一个程序，将文件中所有的 Fred 和 Wilma 进行交换，需要使用一个占位符，并思考占位符的选择。

编写程序交换文件中的 Fred 和 Wilma

要编写程序交换文件里所有的 Fred 和 Wilma ，可使用占位符来避免替换冲突。占位符需是文件中不会出现的字符串，例如使用 'TEMP_PLACEHOLDER' 。

以下是示例代码：

use strict;
use warnings;

# 从命令行获取输入文件名
my $input_file = $ARGV[0] or die "请提供输入文件名作为命令行参数\n";

# 生成输出文件名
my $output_file = $input_file . ".out";

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

# 打开输出文件
open(my $out_fh, '>', $output_file) or die "无法打开输出文件 '$output_file': $!";

while (my $line = <$in_fh>) {
    # 先将 Fred 替换为占位符
    $line =~ s/Fred/TEMP_PLACEHOLDER/gi;

    # 再将 Wilma 替换为 Fred
    $line =~ s/Wilma/Fred/gi;

    # 最后将占位符替换为 Wilma
    $line =~ s/TEMP_PLACEHOLDER/Wilma/gi;

    # 输出处理后的行
    print $out_fh $line;
}

# 关闭文件句柄
close($in_fh);
close($out_fh);

此代码从命令行获取输入文件名，生成对应的输出文件名。读取输入文件的每一行，先用占位符替换 Fred </