#!/usr/bin/perl

use strict;
use warnings;

# (...) gekürzt ...

                # Ob's gemounted hat testen

                local *ISMOUNTED;

                my $mount_point_found = 0;
                
                # mount Befehl (/sbin/mount) ausführen -->
                # ergibt Liste
                my $mount_pid = open(ISMOUNTED, "$mount 2>&1 |");

                WHILE_ISMOUNTED:   while(<ISMOUNTED>) {

                                #
                                # Regex mit mountpoint z.B. 
                                # " /home/daten ".
                                # die \s habe ich angehängt damit nicht auch noch z.B. ("/home/datenXY") gefunden wird.

                                if ( /(\s$mount_point\s)/) {
                                        $mount_point_found = 1;
                                        last;
                                }
                        }
                close(ISMOUNTED);

                waitpid($mount_pid, 0);

#!/usr/bin/perl

use strict;
use warnings;

my $mount_point = '/home';

               local *ISMOUNTED;

               my $mount_point_found = 0;

               my $mount_pid = open(ISMOUNTED, '/proc/mounts') or die ("Muuuuuuuuuuuh !\n");

               WHILE_ISMOUNTED:   while(<ISMOUNTED>) {

                if ( /(\s$mount_point\s)/) {
                        $mount_point_found = 1;
                        last;
                }
                                                                                                  }
                                                                                                                                                              close(ISMOUNTED);

waitpid($mount_pid, 0);