Leser: 18
2015-08-05T03:34:57 mikaich hoffe du nimmst mich nicht auf den Arm ;-)
1 2 3 4 5 6 7 8 9 10
... LOCKFILE => File::Spec->catdir( ( Glib::get_tmp_dir(), sprintf( "%s-%s.lock", NAME, Glib::get_user_name() ) ) ), ...
2017-01-19T19:16:54 mikaMeine Frage ist, gibt es Perl-Distributions-Module, um an das System TMPDIR und USERNAME zu kommen.
/tmp, C:\TEMP usw. je-nach-dem auf welchem System das Programm läuft?
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
# temp dir sub TEMPDIR { return $ENV{ TMP } # Linux || $ENV{ TEMP } # Windows || $ENV{ TEMPDIR } # ??? || $ENV{ TMPDIR } # Mac || undef; } # Get User sub USERNAME { return getlogin || getpwuid( $< ) || $ENV{ LOGNAME } || $ENV{ USER } || $ENV{ USERNAME } || 'unknown'; }
2017-01-20T09:53:33 rostiSetze doch ein LOCK_EX auf $0; fertig (Handle mit O_RDONLY öffnen).