Ищете способ запуска командного файла, если в текстовом файле существует определенная строка

Question

Я ищу способ запуска командного файла, если в текстовом файле есть определенная строка. Например - я хочу проверить file.txt для строки 'working'. если он существует - я хотел бы запустить командный файл.

Answer 1

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);

Answer 2

Вы можете сделать что-то вроде этого:

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

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