NAME
File::Unsaved - Check whether file has unsaved modification in an editor
VERSION
This document describes version 0.070 of File::Unsaved (from Perl distribution File-Unsaved), released on 2020-09-30.
SYNOPSIS
use File::Unsaved qw(check_unsaved_file);
die "Can't modify foo.txt because it is being opened and modified in an editor"
if check_unsaved_file(path => "foo.txt");
DESCRIPTION
FUNCTIONS
check_unsaved_file
Usage:
check_unsaved_file(%args) -> bool|hash
Check whether file has unsaved modification in an editor.
This function tries, using some heuristics, to find out if a file is being opened and has unsaved modification in an editor. Currently the supported editors are: Emacs, joe, vim.
The heuristics are as folow:
Emacs, joe, mc: check whether
.#<name>
symlink exists. Emacs targets the symlink to<user>@<host>.<PID>:<timestamp>
while joe and mc to<user>@<host>.<PID>
. Caveat: Unix only.vim: check whether
.<name>.swp
file exists, not older than file, and its 0x03ef-th byte has the value ofU
(which vim uses to mark the file as unsaved). Caveat: vim can be instructed to put swap file somewhere else or not create swap file at all, so in those cases unsaved data will not be detected.
This function is not exported by default, but exportable.
Arguments ('*' denotes required arguments):
check_pid => bool (default: 1)
Whether to check that PID is actually an editor.
A temporary file might be stale, so checking the existence of temporary file is not enough. If the temporary file provides pointer to a PID, and this setting is set to true, will actually check that the PID exists.
check_proc_name => bool (default: 1)
Whether to check that process name is actually the corresponding editor.
Is activated only
check_pid
is also 1 and ifProc::Find
(and thusProc::ProcessTable
) is available.Might produce a false negative if you happen to rename the editor or use a differently-named fork/derivative of said editor, although this should be rare.
path* => str
Return value: (bool|hash)
Return false if no unsaved data is detected, or else a hash structure. Hash will contain these keys: editor
(kind of editor, possible values: emacs
, joe/mc
, joe
, mc
, vim
) and might contain these keys: pid
(PID of editor), user
, host
, timestamp
.
HOMEPAGE
Please visit the project's homepage at https://metacpan.org/release/File-Unsaved.
SOURCE
Source repository is at https://github.com/perlancar/perl-File-Unsaved.
BUGS
Please report any bugs or feature requests on the bugtracker website https://rt.cpan.org/Public/Dist/Display.html?Name=File-Unsaved
When submitting a bug or request, please include a test-file or a patch to an existing test-file that illustrates the bug or desired feature.
SEE ALSO
AUTHOR
perlancar <perlancar@cpan.org>
COPYRIGHT AND LICENSE
This software is copyright (c) 2020, 2017, 2015, 2014 by perlancar@cpan.org.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.