But does someone have a proposal how to capture the STDERR output of the batch script, too? Up to now, I only could capture the STDOUT output via @Result=`command line` and I would like to capture both, ideally in the same array to get the correct order...
Kind regards Ekbert Mertens > > Hi List, > > > > I have a script which is running another batch script on a > NT machine. > > During the perl script execution, I am not seeing the > output of the dos > > batch script on the screen. Some how its getting lost. Any > Idea as how can > I > > change my script to display the dos script output as well?? > > > > The requirement is to get the details such as hostname and > NT user login > by > > the ip and update a database. Is there any perl modules > available to that. > I > > always have the IP and would like to know what's the > hostname and the NT > > user logged in to that host. > > > > The script is as below > > > > #!/usr/local/ActivePerl-5.6/bin/perl > > use Sybase::CTlib; > > > > > > $dbh = Sybase::CTlib->ct_connect('user','pwd','server'); > > if($dbh eq undef) > > { > > print "Connection Failed to Server\n"; > > } > > else > > { > > print "Connection OK to Server\n"; > > $sql = "select ipaddr from db..Logins where loggedindatetime >= > > dateadd(hour,-1,getdate())"; > > $data = $dbh->ct_sql("$sql"); > > foreach $r (@$data) > > { > > foreach $c (@$r) > > { > > print "$c \t"; > > `c:/tmp/test.cmd /i $c`; > > } > > print "\n"; > > } > > } > > Try capturing the results of the command. Add this line after the use > statement: > > my @Results = (); > > The change your: > > `c:/tmp/test.cmd /i $c`; > > To: > > @Results = `c:/tmp/test.cmd /i $c`; > > Then you can access and parse the results contained in the array. > > Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St. Peters > USA Central Time Zone > 636-922-9158 ext. 8652 fax 636-447-4471 > > [EMAIL PROTECTED] > www.nisc.cc > > _______________________________________________ > ActivePerl mailing list > [EMAIL PROTECTED] > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs > _______________________________________________ ActivePerl mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs