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

##</code><code>##

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

##</code><code>##

# pipe output from bdf through this script for a surprise
@lines = <>; 
{ 
    if (scalar(@tokens = split /\s+/, (shift @lines)) > 1) {
    } else { 
        push @tokens, (grep /./, (split /\s+/, (shift @lines))); 
    } 
    push @csv, ((join ',', @tokens) . "\n"); 
    redo if @lines; 
} 
print @csv;

##</code><code>##

@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;

##</code><code>##

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

##</code><code>##

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

##</code><code>##

/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