Shell Programming and Scripting

tgdhipa2@usoadm01:~$ cat getinfo.pl 
#!/usr/bin/perl
############################################################################
############################################################################
##                                                                        ##
##  Collect information from a list of machines                           ##
##  *******************************************                           ##
##                                                                        ##
##  Copyright (C) 2010  Patrick Hirt (patrick.hirt/at/gmail/dot/com)      ##
##                                                                        ##
##  This program is free software: you can redistribute it and/or modify  ##
##  it under the terms of the GNU General Public License as published by  ##
##  the Free Software Foundation, either version 3 of the License, or     ##
##  (at your option) any later version.                                   ##
##                                                                        ##
##  This program is distributed in the hope that it will be useful,       ##
##  but WITHOUT ANY WARRANTY; without even the implied warranty of        ##
##  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         ##
##  GNU General Public License for more details.                          ##
##                                                                        ##
############################################################################
############################################################################


use strict;
use warnings;

# **************************************************************************#
#   Configure program here                                                  #
#       Command to send to the machine.                                     #
#       The resulting string of this command                                #
#       will be displayed per hostname (if any)                             #
# **************************************************************************#
open(C, "<command");
my $command = <C>;
close(C);

# **************************************************************************#
#       Machines to check, seperate with a whitespace                       #
# **************************************************************************#
my @serverlist = qw( usoadm01 msunadm01 );

# **************************************************************************#
#   SSH command used to connect to the machines,                            #
#   in most cases does not need to be modified                              #
# **************************************************************************#
#my $sshcmd = "ssh -t -q -o " . "\"Batchmode yes\" " . "-o " . "\"ConnectTimeout 5\" " . "-l root ";
my $sshcmd = "ssh -t -q -o " . "\"Batchmode yes\" " . "-l root ";


# **************************************************************************#
# Don't modify program below here (unless necessary)                        # 
# **************************************************************************#
# Declare some stuff
my $sshreturn;
my %output;
my $k;
my @v;
my $count = 0;
my $pointcount = 0;
my $percentage;
my $p1 = 0;
my $p2 = 0;
my $p3 = 0;
my $total = @serverlist;

# Inform the use we're about to start working
print("Collecting information...\n");
# Iterate server list
foreach(@serverlist) {
        $count++;
        $pointcount++;
        if($pointcount == 3){
                print(".");
                $pointcount = 0;
        }
        $percentage = ($total / 100) * $count;
        if($percentage > 18 and $percentage < 22 and $p1 == 0){
                print(" 20% ");
                $p1 = 1;
        }
        if($percentage > 48 and $percentage < 52 and $p2 == 0){
                print(" 50% ");
                $p2 = 1;
        }
        if($percentage > 78 and $percentage < 82 and $p3 == 0){
                print(" 80% ");
                $p3 = 1;
        }
        $sshreturn = `$sshcmd $_ '$command'`;
        unless(!defined($sshreturn) or $sshreturn eq ''){
                $output{"$_"} = "$sshreturn";
        }
        undef($sshreturn);
}
print("\n\nDone!\n");
print "\n";

foreach $k (sort(keys(%output))){
        @v = sort(lc($output{"$k"}));
        foreach(@v){
                s/\n/ /g;
        }
        print("$k:\n@v\n\n");
}
exit(0);

perl -e 'my $keyf; my $foo; my $bar; my $comment; my @output; open(F, "</etc/ssh/sshd_config"); \\
while(<F>){ if(m/AuthorizedKeysFile/){s/%u/root/; s/AuthorizedKeysFile //; $keyf = $_;}} close(F); open(K, "<$keyf"); \\
while(<K>){chomp; ($foo, $bar, $comment) = split(/ /); $comment = $comment . " "; push(@output, $comment); $foo = undef; $bar = undef;} close(K);foreach(@output){print;}'

bash: -c: line 0: syntax error near unexpected token `F,'

scp myperl.pl me@remotehost; ssh 'me@remotehost ; chmod +x myperl.pl; ./myperl.pl'