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.