Below is a small Perl example how to check for NFS mounted shares on a Linux host. The script does not need any specific modules, and makes use of the /etc/mtab file.
|
1 2 3 4 5 6 7 8 9 |
#!/usr/bin/perl use strict; use warnings; my @mount_points = do {local @ARGV = '/etc/mtab'; <>}; foreach my $mnt (@mount_points){ next unless $mnt =~ /nfs/; my ($node, $mnt_point, $fs, $options, $dump, $fsck) = split /\s+/, $mnt; print "Found NFS share $node mounted on $mnt_point\n"; } |