Perl-скрипт, который обеспечивает ввод в пакетный файл

Question

У меня есть пакетный файл «Sample.bat», который я бегу с помощью Perl: system("Sample.bat");

Sample.bat запрашивает имя пользователя и пароль, эти имя пользователя и пароль, я хочу дать с помощью Perl-скрипт. Например, когда я запускаю этот командный файл с помощью Perl:

Enter username: 
Enter password: 

Эти две вещи, которые я должен предоставить, используя скрипт Perl.

Пакетный файл:

@echo off 
set /p username=Enter your username:%1 
set /p password=Enter your password:%2 

Perl скрипт:

my $username="Shaggy"; 
my $password="shaggy"; 

my $setup = "C:/sample.bat"; 
system("$setup $username $password"); 

Answer 1

Try:

my $username = 'yourusername'; 
my $password = 'yourpassword'; 
system("Sample.bat $username $password"); 

Затем в пакетном файле, вы будете использовать %1 для имени пользователя и пароля %2 ,

Для получения дополнительной информации об использовании параметров в пакетном файле, см: How do I pass command line parameters to a batch file?

Answer 2

Использование Win32::GuiTest Модуль

use strict; 
use warnings; 
use Win32::GuiTest qw[ SendKeys ]; 

system 1, q["start sample.bat"]; 

SendKeys('username~'); 

SendKeys('password~'); 

Обратите внимание, что ~ знак для Enter ключа т.е. вы не должны использовать клавишу Enter во время исполнения. Используйте ~ вход в SendKeys метод.
Обновление: Удалить %1 и %2 и попробовать выполнить сценарий.