Shell Programming and Scripting

#!//opt/perl/bin/perl
use strict;
use warnings;
my ($filesystem);
foreach (qx(bdf)) { ##executing bdf command here
 next if/^Filesystem/; ##Skip the header line
 if(!/%/) { ##remember on next line if no percentage on this line
  chomp; ##clean up the new line
  $filesystem = $_; ## remember
  next;
 }
 $_ = $filesystem . $_ if /^\s/; ## add filesystem for wrapped lines  
 #next if /^\w+:/; #skip NFS mount with ":" in first word ##To skip the NFS mount 
 #chomp;
 s/% / /; ## strip percentage sign
 s/\s+/ /g; ## replace all tabs and spaces with just 1 space
 my ($fs, $kbytes, $used, $avail, $pct_used, $mount) = split; ## now have each column in a variable
 ## do anything you like with the columns (like preparing an oracle insert)
 ##print $_, "\n" ; # just to prove new glued line
 ##print qq(fs=$fs used=$pct_used \n);
 print qq($fs $kbytes $used $avail $pct_used $mount\n);
}

INSERT INTO "table_name" ("column1", "column2", ...)
VALUES ("value1", "value2", ...)

BEGIN { chop($hostname = `hostname`); }
 print qq($hostname $fs $kbytes $used $avail $pct_used $mount\n);