[Chicago-talk] testing exit status of external program

[Dooley, Michael]

If I have a program like below how can I test the return value of the
external program?

open (FILE, "./test.file");
open (ES_CLIENT, "|shell_program");
while (<FILE>) {
print ES_CLIENT $_;"\n";
}
close (ES_CLIENT);
close (FILE);

[qgatu003]/export/home/mxdooley/mbi_script$cat test.file |shell_program
16:06:32: info: broker_path=qgatu003
16:06:32: warning: connect=10.40.11.28:9701 (Connection refused, tcp)
16:06:33: warning: broker_malfunction=10.40.11.28:9701
(reason=no_broker_reply, service=brokerService)
16:07:02: fatal: unable_to_resolve_or_connect_to_sclient=ES_MSGIN_RR

[qgatu003]/export/home/mxdooley/mbi_script$print $?
1