Linux::Mounts - perl module providing object oriented interface to /proc/mounts
use Linux::Mounts;
my $mtd = Linux::Mounts->new();
my $list = $mtd->list_mounts();
print "Number of mounted file systems : ", $mtd->num_mounts(), "\n\n";
print "List of mounted file systems :\n";
for (my $i = 0; $i < $mtd->num_mounts(); $i++) {
for (my $j = 0; $j < $#{ $list }; $j++) {
printf("%-15s", $list->[$i][$j]);
}
print "\n";
}
### or simplier ...
print "\nList of mounted file systems :\n";
$mtd->show_mount();
This module provides an interface to the file /proc/mounts. The implementation attempts to resemble to the "mount" linux command.
Display the number of mounted file systems.
Provide a double array of the /proc/mounts parameters.
Show all the mounted file systems.
Stephane Chmielewski <snck@free.fr>
Copyright (C) 2004 Stephane Chmielewski. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
