如何用Perl统计行中重复字符串？新手统计host次数遇阻求助

首先，咱们先梳理下你的核心需求：统计file1每行中"host"关键词的出现次数，但你的脚本里有几个关键问题导致无法正常运行，咱们一步步来拆解修复：

1. 核心逻辑错误：不必要的嵌套文件读取 #

你现在嵌套了两个while循环同时读取SOURCE和DESTINATION，但你的需求只需要处理file1（也就是SOURCE）的内容，完全不需要读取file2——这会直接打乱脚本逻辑。另外你给DESTINATION用了读模式(<)，如果是要把统计结果写入file2，应该用写模式(>覆盖写入或>>追加写入)。

2. 统计次数的方法错误 #

你尝试的几种写法都存在问题：

• grep {host} $line：Perl的grep用于处理列表，直接这么用不符合语法，而且host没加引号会被当作变量，不是你要匹配的字符串。
• 调用sed/perl -pi -e等外部命令：这些命令是用来处理文件的，但你传给它们的$line1是文件里的一行内容，不是文件名，所以根本无法正确执行。另外sed的语法也有误，{}是多余的，-i是原地修改文件的参数，不适合处理变量内容。

正确的实现方式 #

Perl本身就可以轻松完成字符串子串计数，完全不需要调用外部命令，这里给你两种常用的简洁写法：

方法一：正则全局匹配计数 #

利用Perl正则的g修饰符（全局匹配），结合scalar获取匹配次数：

#!/usr/bin/perl
use strict;
use warnings; # 强烈建议开启，帮你捕获新手常见的语法/变量错误

# 打开源文件，处理打开失败的情况
open(my $source_fh, '<', '/home/amp/surevy01/file1') or die "无法打开file1: $!";
# 如果要把结果写入file2，打开写模式
open(my $dest_fh, '>', '/home/amp/surevy01/file2') or die "无法打开file2: $!";

while(my $line = <$source_fh>) {
    chomp($line); # 可选：去掉行尾的换行符，方便输出展示
    # \b是单词边界，避免匹配包含host的其他单词（比如hostname），不需要的话可以去掉
    my $count = () = $line =~ /\bhost\b/g;
    
    print "当前行: '$line' → host出现了 $count 次\n";
    # 如果要写入file2
    print $dest_fh "当前行: '$line' → host出现了 $count 次\n";
}

# 关闭文件句柄
close($source_fh);
close($dest_fh);

方法二：split分割计数 #

把字符串按"host"分割，分割后的元素个数减1就是出现次数：

# 替换上面的计数行即可
my $count = split(/\bhost\b/, $line) - 1;

额外新手建议 #

• 始终开启use strict;和use warnings;：这两个语法检查工具能帮你快速发现未声明变量、语法错误等问题，避免踩很多坑。
• 使用词法文件句柄（my $source_fh）代替旧式裸句柄（SOURCE）：词法句柄更安全，会在超出作用域时自动关闭，减少资源泄漏风险。
• 处理文件打开失败的情况：用or die输出错误信息，能快速定位是文件路径错了还是权限问题。

针对你的测试文件file1内容abc def host 123 host 869 host，运行修正后的脚本会输出：

当前行: 'abc def host 123 host 869 host' → host出现了 3 次

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