How do I convert this perl regexp to include all file systems?

Question

Okay geniuses, help me out here... Basically I have a script monitoring my file systems for utilization over X percent. Right now, I think it only monitor "/" and not any other filesystem. How do I convert the following script to also monitor (for example) /mnt/nas or /home?
---- code ---
open(DF, $df . '|') or die "Can't read from Disk Free command '$df': $!&#92;n";
my ($buf, $add);
while (<DF>) {
  $buf .= $_;
  if ( /.*&#92;s.*&#92;s.*&#92;s.*&#92;s(.*)%&#92;s&#92;/$/ ) {
    if ( $1 >= $maxdiskutil ) {
      $add++;
    }
  }
}#while
close(DF);
--- /code ---

martinthurn · Answer

You'll have to show us the output of your df command in order for us to help you...

But perhaps if you just delete the $ from the regexp it will do what you want...

Jeff · Answer

if ( /(&#92;/dev&#92;/.*)&#92;s.*&#92;s.*&#92;s.*&#92;s(.*)%&#92;s(&#92;/.*$)/ ) {

But to make it work the way you want I would add more checks like this:
open(DF, $df . '|') or die "Can't read from Disk Free command '$df': $!&#92;n";
my ($buf, $add);
while (<DF>) {
#$1 = filesystem ie /dev/md1
#$2 = use %
#$3 = mount point
  if ( /(&#92;/dev&#92;/.*)&#92;s.*&#92;s.*&#92;s.*&#92;s(.*)%&#92;s(&#92;/.*$)/ ) {
    # check only these mount points
    if ( $3 =~ /(&#92;/|&#92;/boot)$/ ) {
      $buf .= $_;
        if ( $2 >= $maxdiskutil ) {
            $add = 1;
        }
    }
  }
}
close(DF);

Trending News

How do I convert this perl regexp to include all file systems?

2 Answers