मैं अगले पर्ल स्क्रिप्ट की जाँच करने के लिए निम्न पर्ल स्क्रिप्ट का उपयोग करता हूँ:
#!/usr/bin/perl -w
use strict;
my $mountcount = 0;
my $maxmount = 0;
my $dev;
my $mountpoint;
my $fstype;
my $debug = 0;
my $cmd = "mount";
open MOUNT, sprintf ( "%s |", $cmd ) or die sprintf ( "ERROR: Cannot execute %s - %s\n", $cmd, $! );
while ( <MOUNT> ) {
chomp;
( $dev, undef, $mountpoint, undef, $fstype, undef ) = split;
printf "Found device %s\n", $dev if ( $debug > 0 );
if ( $fstype =~ /^ext/i ) {
$cmd = sprintf "dumpe2fs -h %s 2>&1", $dev;
open DUMPE2FS, sprintf ( "%s |", $cmd ) or die sprintf ( "ERROR: Unable to execute %s - %s\n", $cmd, $! );
while ( <DUMPE2FS> ) {
chomp;
if ( /^Mount count:/ ) {
( undef, $mountcount ) = split /:/;
$mountcount =~ s/\s*//g;
printf "Mount count = %s\n", $mountcount if ( $debug > 0 );
}
if ( /^Maximum mount count:/ ) {
( undef, $maxmount ) = split /:/;
$maxmount =~ s/\s*//g;
printf "Maximum mount count = %s\n", $maxmount if ( $debug > 0 );
}
}
close DUMPE2FS;
printf "Filesystem %s, mounted on %s will be checked in %s mounts\n", $dev, $mountpoint, $maxmount - $mountcount;
}
}
close MOUNT;
मैंने इसे अपने ~ / .bashrc में चलाया है इसलिए मुझे हमेशा पता है कि मेरे फाइलसिस्टम की जाँच कब होगी, हालांकि मैं अब ext4 का उपयोग करता हूं जो विस्तारित fsck समय से ग्रस्त नहीं है, यह जानना अभी भी अच्छा है।
विशिष्ट उत्पादन कुछ इस तरह है:
Filesystem /dev/sda1, mounted on / will be checked in 5 mounts
user@localhost ~ $