source: soft/build_system/build_system/upload/robot/trunk/topbastards @ 1

Last change on this file since 1 was 1, checked in by fasma, 13 years ago

Initial Import from Mandriva's soft revision 224062 and package revision 45733

File size: 277 bytes
Line 
1#!/usr/bin/perl
2
3use strict;
4
5my @m;
6local *A; 
7
8for my $h (qw(n1 n2 n3 n4 n5)){
9        open A, qq{ssh $h du -sm "/export/home/[^0-9]*" |};
10        while (<A>){chomp;  push @m,  [$h, split]}
11}
12
13my @n = sort { $b->[1] <=> $a->[1] } @m;
14foreach (@n){
15        print "$_->[1] -- $_->[2] ($_->[0])\n"}
Note: See TracBrowser for help on using the repository browser.