Select Code to Download

Filesystem          kbytes    used   avail %used Mounted on
/dev/vg00/lvol3     143360   45210   92038   33% /
/dev/vg00/lvol1      83733   29494   45865   39% /stand
/dev/vg00/lvol8    2048000  820619 1150910   42% /var

Filesystem          kbytes    used   avail %used Mounted on
i47ebfl2:/mnt/home2
...
i47ebfl1:/mnt/home1
                   51249152 27468376 23595000   54% /nfs/home1
i47ebfl1:/mnt/home  262144    1496  244640    1% /nfs/home

# pipe output from bdf through this script for a surprise
@lines = <>; 
...
    redo if @lines; 
} 
print @csv;

@lines = <>; { (scalar(@tokens = split /\s+/, (shift @lines)) > 1) || 
+push @tokens, (grep /./, (split /\s+/, (shift @lines))); push @csv, (
+(join ',', @tokens) . "\n"); redo if @lines; } print @csv;

@lines = <>; { (@tokens = split /\s+/, shift @lines) > 1 or push @toke
+ns, grep /./, split /\s+/, shift @lines; push @csv, (join ',', @token
+s) . "\n"; redo if @lines; } print @csv;

@i=<>;{(@w=split /\s+/,shift @i)>1 or push @w,grep /./,split /\s+/,shi
+ft @i; push @c,(join q;,;,@w).qq.\n.;redo if @i;}print @c

/dev/vg01/lvol2,8257536,158029,7593289,2%,/mnt/ims_logs
/dev/vg01/lvol1,16384000,13542344,2755462,83%,/mnt/ims
i47ebfl2:/mnt/home2,51249152,34196640,16919376,67%,/nfs/home2
i47ebfl1:/mnt/home1,51249152,27468600,23594776,54%,/nfs/home1