автор
#!/opt/perl-5.6.1/bin/perl
$sid="US21";
my $a =`tnsping ${sid} | grep Attempting |awk -F')' '{ print \$2} '|awk -F'=' '{ print \$2}'`;
chomp($a);
my @b = `ssh $a "df -k | grep ${sid}"`;
my $n = 1;
for my $line (@b) {
printf "%5d: %s", $n++, $line;
}

Poluchaju Rezultat:
автор
oracle@zvora1:/home/bandriyu/themen/perl $ df.pl
1: /dev/vx/dsk/uspuadbdg/uspua_orus21_eddix 51380224 43058983 7801229 85% /db/US21/data/eddix
2: /dev/vx/dsk/uspuadbdg/uspua_orus21_accusageix 9437184 6165902 3066833 67% /db/US21/data/accusageix
3: /dev/vx/dsk/uspuadbdg/uspua_orus21_accusage 22020096 15955482 5685580 74% /db/US21/data/accusage
4: /dev/vx/dsk/uspuadbdg/uspua_orus21_eddi 81788928 65605908 15171644 82% /db/US21/data/eddi
5: /dev/vx/dsk/uspuadg/uspua_orus21 4194304 101940 3836645 3% /opt/oracle/US21
6: /dev/vx/dsk/uspuadbdg/uspua_orus21_usageix55 5242880 1042794 3937587 21% /db/US21/data/usageix55
7: /dev/vx/dsk/uspuadbdg/uspua_orus21_users 5242880 4603474 599445 89% /db/US21/data/users
8: /dev/vx/dsk/uspuadbdg/uspua_orus21_usageix51 25165824 18464061 6282908 75% /db/US21/data/usageix51


kak poluchit teper chsti stroki v peremenyje?