Select Code to Download

C:\Old_Data\perlp>perl try3.pl
>>> prd1702
...
>>> prd1701
Filesystem                                  Size  Used Avail Use% Moun
+ted on
/workspace                                  3.9T  887G  3.0T  13% /wor
+kspace/data

#!/usr/bin/perl
use strict;
...
          sort {$b->[1] <=> $a->[1]}
           map {[$_, /\s(\d+)%/]} split(/(?<=workspace\/data)/, $s);

C:\Old_Data\perlp>perl try3.pl
Use of uninitialized value in numeric comparison (<=>) at try3.pl line
+ 23.
Use of uninitialized value in numeric comparison (<=>) at try3.pl line
+ 23.