#!/usr/bin/perl -w

use Net::OpenSSH;
use strict;
use warnings;

#connection:
  my $ssh2convey99 = Net::OpenSSH->new('...');
  $ssh2convey99->error and
    die "Couldn't establish SSH connection: ". $ssh2convey99->error;


#get some date from remote host and fill array	
  
my @ls = $ssh2convey99->capture("disptest | grep -E ' 900 ' | grep -v 1900 | grep -E -v '0 RE' | grep -E -v '0 WE' | grep -E -v '0 WAV' | grep -E -v '0 WA'  | awk '{print \$3\";\", \$6\";\" }'");
	  $ssh2convey99->error and
		die "remote ls command failed: " . $ssh2convey99->error;
	
	
# include variables and arrays for  data preparation
	my @split_array;
	my @matrix_array;
	my $mitzl = 0; 
	
#	prepare the data an store in the matrix
	foreach my $el (@ls){
		$mitzl ++; 
		@split_array = split(/;/,$el);
		$matrix_array[$mitzl] = [@split_array];
	}
	


#including variables and arrays for getting the needed data for all list elements

	my @bt; 
	my @bt_matrix_array;
	my $length_matrix_array = @matrix_array;	

	

#running thru the list and send commando to remote host  for every element. 
	#store all input  in new matrix
	 
for(my $i = 2;$i <= $length_matrix_array;$i++) { 
		@bt = $ssh2convey99->capture("bt $matrix_array[$i][0]");
		$bt_matrix_array[$i-1]=[@bt];

	 }

##</code><code>##

Welcome to lemans1  (LINUX)

 Order: 967065/1  Box 282477
            Zeit |    Stat | Info                              |  Soll |   Ist
 ----------------+---------+-----------------------------------+-------+-------
  20140328090153 |     AV2 | TLJ3,gerade                       |       |
  20140328090155 |   ER01A | TS01,gerade                       |       |
  20140328090204 |     LJ7 | TS01,gerade                       |       |
  20140328090213 |     S01 | TK1,gerade                        |       |
  20140328090305 |      K1 | TS03,gerade                       |       |
  20140328090353 |     S03 | TS04,gerade                       |       |
  20140328090415 |     S04 | TS06,gerade                       |     0 |   230
  20140328090438 |     S06 | TS08,gerade                       |       |
  20140328090459 |     S08 | TS11,gerade                       |       |
  20140328090522 |     S11 | TS12,gerade                       |     0 |   220
  20140328090624 |     S12 | TS14,gerade                       |       |
  20140328090645 |     S14 | TS16,gerade                       |       |
  20140328090707 |     S16 | TS19,gerade                       |       |
  20140328090730 |     S19 | TS19,gerade                       |       |
  20140328090911 |     S19 | TK3,gerade                        |   284 |   310
  20140328090954 |      K3 | TK5,gerade                        |       |
  20140328091001 |      K5 | TK1,gerade                        |       |
  20140328091023 |      K1 | TK2,gerade                        |       |
  20140328091033 |      K2 | TS28,gerade                       |       |
  20140328091129 |     S28 | TS28,gerade                       |     0 |   320
  20140328091514 |     S28 | TS30,gerade                       |   414 |   410
  20140328091537 |     S30 | TS32,gerade                       |       |
  20140328091557 |     S32 | TS33,gerade                       |       |
  20140328093457 |     S32 | TS35,gerade                       |       |
  20140328093520 |     S35 | TER05,weight                      |   618 |   550
  20140328095704 |     S35 | TS20,gerade                       |     0 |   580
  20140328095806 |     S20 | TS22,gerade                       |       |
  20140328095830 |     S22 | TS24,gerade                       |       |
  20140328095849 |     S24 | TS27,gerade                       |       |
  20140328095912 |     S27 | TS27,gerade                       |       |
  20140328100053 |     S27 | TK3,gerade                        |   703 |   680
  20140328100100 |      K3 | TWG07,gerade                      |       |
  20140328100201 |    WG07 | TSK1,gerade                       |     0 |   680
  20140328100208 |     SK1 | TSK1,gerade                       |       |
  20140328105059 |    ESM1 | TERR,lost                         |       |
  20140328110542 |    ESM1 | TERR,gerade                       |       |