Как запустить набор файлов .exe в папке через .bat-файл с использованием perl-скрипта

Question

Я начинаю с Perl, и мне нужно создать файл .pl, и у меня есть папка, содержащая около 30 EXE-файлов (внутри Folder1 in G: \ Folder1). Все они должны быть выполнены нажатием на файл .pl.

Моя попытка является:

use strict; use warnings; 
use autodie; # automatic error handling 

while (defined(my $file = glob 'C:\shekhar_Axestrack_Intern*.exe')) 
{ 
    open my $fh, "<", $file; # lexical file handles, automatic error handling 

    while (defined(my $line = <$fh>)) { 
    do system $fh ; 

    } 
    close $fh; 
} 

Пожалуйста, дайте мне знать, если моя логика правильная? Может кто-нибудь, пожалуйста, поправьте меня, если я ошибаюсь?

Answer 1

Использование system выполнить ЕХ:

while (my $file = glob 'C:\shekhar_Axestrack_Intern\*.exe') { 
    system $file; 
} 

Кроме того, у меня есть ощущение, что вы имели в виду, чтобы написать 'C: \ shekhar_Axestrack_Intern * .exe' вместо «C: \ shekhar_Axestrack_Intern * .exe ».

Answer 2

Я думаю, pl2bat может вам помочь. Это позволяет обернуть Perl-код в пакетный файл.

BTW Почему вы используете echo в своем Perl скрипте? Вы должны использовать print.

Редактировать: Вы отредактировали свой вопрос, и теперь вы хотите знать, как запускать все файлы exe из папки с помощью Perl?

Используйте команду system для запуска exe-файлов, обеспечивающих полный путь.

См: How to run an executable file using Perl on Windows XP?

Edit 2:do system $fh ; Это не то, как вы это делаете, пожалуйста, книгу (я бы предложил, начиная Perl Овидия) и начать обучение Perl.