Shell Programming and Scripting

ssh $USER@$HOST "grep -n \"$PATTERN\" $RDIR/$RFILE | awk -F":" '{print \$1}'|tr '\n' ':'|sed 's/:$//g'" > /tmp/_log_out
VAR=`cat /tmp/_log_out`

ssh user@host "VAR=`grep -n \"$PATTERN\" $RDIR/$RFILE | awk -F":" '{print \$1}'|tr '\n' ':'|sed 's/:$//g'"`; if [ -z "$VAR" ];then VAR="0";fi"

ssh $USER@$HOST "cat $RDIR/$RFILE | grep -v '^$' | head -1 |wc -c;ls -li $RDIR/$RFILE|awk '{print \$1}'" |xargs -n 2 | awk '
{ print $1":"$2":" }' > /tmp/_log-chk-output_$$

ssh -T > local_file hostname <<\!
perl -nle'BEGIN {
  $ino = (stat $ARGV[0])[1];
    }
  $. == 1 and $fl = length;
  /pattern/ and $ln = $.;
  END {
    print join ":", $ln ? $ln : 0, $fl ? $fl : 0, 
      $ino;
    }'  remote_file
!

#! /usr/bin/perl

use strict;
use warnings;
use Net::SSH::Perl;

my $user = '';
my $pass = '';
my $host = '';
my $port = 22;
my $DEBUG = 0;
my $attr = { debug => $DEBUG, port => $port, protocol => '2,1'};

my $cmd = qq~perl -lne 'if ( /(PAT_HERE)/ ) { printf "PATTERN: %s LINE: %d FILE: %s INODE %s", \$1, \$., \$ARGV, (stat \$ARGV)[1]; }' *~;
my $ssh = Net::SSH::Perl->new($host, %$attr);
$ssh->login($user, $pass);
my ($stdout, $stderr, $exit) = $ssh->cmd($cmd);
print $stdout, "\n";

my $cmd = qq~perl -lne 'if ( /(PAT_HERE)/ ) { printf "PATTERN: %s LINE: %d FILE: %s INODE %s", \$1, \$., \$ARGV, (stat \$ARGV)[1]; }' \/some\/dir\/*~;