如果文本文件中存在特定字符串，则寻找启动批处理文件的方法

Question

如果文本文件中存在特定字符串，我正在寻找一种启动批处理文件的方法。例如 - 我想检查file.txt中的字符串'working'。如果它存在 - 我想启动一个批处理文件。

Answer 1

您可以这样做：

my $data = do {
    open my $in, "<", "file.txt" or die "Could not open: $!";
    local $/;
    <$in>
};

if($data =~ /working/) {
    system("cmd", "/c batch.cmd");
}

Answer 2

use strict;
use warnings;

open my $fh, '<', $file or die "unable to open '$file' for reading :$!";

while(my $line = <$fh>){
    chomp($line);
    if($line =~ /working/){
       my $result = qx/some.bat/;  # use backtick or system()
       last;
    }
}

close($fh);