Perl如何使模式匹配等于文件上的grep -e [！] [关闭]

Question

    #!/usr/bin/perl

    use strict;
    use warnings;

    main(@ARGV);

    sub main
    {

        open(FH,"<", 'thefile.txt') or die;
        my $filTMP=undef;
        while(<FH>){
            chomp();
            $filTMP=<FH>;
            if( $filTMP=~ /\!/){ # extracting all exclamation marks. 
        print $filTMP;

    }
    }
}

我的新手代码的问题是列表中的第一个匹配单词被显示，但之后出现了愤怒的红色文本“模式匹配中的未初始化值 $filetmp (m//)”。据我所见， $filTMP 已初始化。需要帮助:)。

Answer 1

尝试将您的代码更改为：

sub main {
    open my $file, '<', 'thefile.txt' or die;
        while(<$file>){
            chomp;
            print "$_\n" if /\!/; 
        }
}