Re^4: Get remote file TimeStamp

[Saved]

This works well, and since I cannot add modules, it is preferred. My last problem which I am still working on is that the "aimuat" in the name argument of the ssh, and farther on in the file name needs to be a variable.

foreach $SYSTEM (ifeuu1, ifcau1, ifcaa1, mifuat, aimuat, timeuat) {
my $cmd = q|ssh -q $SYSTEM perl -e \'print +\( stat \( \"Envs_$SYSTEM.
+xml\" \)\)\[9\]\;\'|;
print `$cmd`;
}

Thanx for all your help, it is much appreciated

[Eliya]

There are several ways to solve this.  For one, you could use the interpolating qq operator (acts like double quotes), but then you'd have to double escape things...  Personally, I would rather use concatenation, which isn't pretty either, but somewhat easier to read (IMHO):

foreach my $SYSTEM (qw(ifeuu1 ifcau1 ifcaa1 mifuat aimuat timeuat)) {
    my $cmd = 'ssh -q '.$SYSTEM.q| perl -e \'print +\( stat \( \"Envs_
+|.$SYSTEM.q|.xml\" \)\)\[9\]\;\'|;
    print `$cmd`;
}

Also note that I used qw() for the hostname list, because what you had were barewords, usage of which is generally discouraged.  qw(foo bar baz) is just a short form of saying 'foo', 'bar', 'baz'.

[Saved]

Thank You. Having these alternatives in my toolbox is comforting, and useful. I tried putting a Place Holder SYSTEM in the cmd , and then doing a substitution. It seems to work also. Your help is valuable.

foreach my $SYS (qw(ifeuu1 ifcau1 ifcaa1 mifuat aimuat timeuat)) {
$cmd=q|ssh -q SYSTEM perl -e \'print +\( stat \( \"Envs_SYSTEM.xml\" \
+)\)\[9\]\;\'|;
$cmd =~ s/SYSTEM/$SYS/g ;
print "$SYS:" . `$cmd` . "\n";
}