Perl文件处理示例：逐行读取文件并查找关键词

这个Perl示例演示了如何逐行读取文件，并在每行中查找指定的关键词。它展示了文件处理、字符串匹配和简单输出的基本用法，有助于Perl初学者理解文件操作和基本文本处理。

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

# 打开文件
my $file = 'example.txt';
open(my $fh, '<', $file) or die "无法打开文件 '$file' $!";

# 逐行读取文件并查找关键词
while (my $line = <$fh>) {
    chomp $line; # 去除行尾换行符
    if ($line =~ /关键词/) {
        print "文件中找到关键词：$line\n";
    }
}

# 关闭文件
close($fh);

代码解释： - use strict; 和 use warnings; 帮助提高代码质量和安全性。 - open(my $fh, '<', $file) or die "无法打开文件 '$file' $!"; 打开指定文件进行读取。 - while (my $line = <$fh>) { ... } 循环逐行读取文件内容。 - chomp $line; 去除每行末尾的换行符。 - if ($line =~ /关键词/) { ... } 在每行中查找是否包含指定的关键词。 - print "文件中找到关键词：$line\n"; 如果找到关键词，打印包含关键词的行。

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com