perl og system

[Michael Rasmussen <sslug@sslug>]

Hej alle,

Følgende kommando fra bash virker efter hensigten: mysql < test.sql.
mysql startes, og scriptet test.sql afvikles, hvorefter mysql stopper.
Mit problem er, at jeg vil udføre tilsvarende inde fra et perl script,
men det giver problemer, da mysql ikke afslutter - manuelt via \q!

Min kode ser ud på følgende måde:
if (system ("mysql") != 0) {
	print "Need password for root account in MySQL: "; system "stty -echo";
	$token = gets(); #egen sub til indlæsning system "stty echo";
	system ("mysql", "-P".$token, "< postfix.sql") == 0 or die "Error in
	<mysql>: $!";
}
else {
	system ("mysql", "< postfix.sql");
}

-- 
Hilsen/Sincerely, Michael Rasmussen

En windows admin er en person, for hvem den største bedrift er, at
lave konfiguration af serveren med trial and error via en gui.