Perl module for in-place editing of files
use File::Inplace;
my $editor = new File::Inplace(file => "file.txt");
while (my ($line) = $editor->next_line) {
$editor->replace_line(reverse $line);
}
$editor->commit;
File::Inplace is a perl module intended to ease the common task of editing a file in-place. Inspired by variations of perl's -i option, this module is intended for somewhat more structured and reusable editing than command line perl typically allows. File::Inplace endeavors to guarantee file integrity; that is, either all of the changes made will be saved to the file, or none will. It also offers functionality such as backup creation, automatic field splitting per-line, automatic chomping/unchomping, and aborting edits partially through without affecting the original file.
File::Inplace offers one constructor that accepts a number of parameters, one of which is required.
The one required parameter. This is the name of the file to edit.
The suffix for backup files. If not specified, no backups are made.
If set to zero, then automatic chomping will not be performed. Newlines (actually, the contents of $/) will remain in strings returned from \*(C`next_line\*(C'. Additionally, the contents of $/ will not be appended when replacing lines.
If specified, then each line will be split by this parameter when using \*(C`next_line_split\*(C' method. If unspecified, then this defaults to \s+.
The default character used to join each line when replace_line is invoked with a list instead of a single value. Defaults to a single space.
In scalar context, it returns the next line of the input file, or undef if there is no line. In an array context, it returns a single value of the line, or an empty list if there is no line. Replaces the current line in the output file with the specified value. If passed a list, then each valie is joined by the \*(C`separator\*(C' specified at construction time. Line \*(C`next_line\*(C', except splits based on the \*(C`regex\*(C' specified in the constructor. Returns true if the file contains any further lines. Returns an array of all lines in the file being edited. Replaces all remaining lines in the file with the specified @lines. Completes the edit operation and saves the changes to the edited file. Aborts the edit process. Saves edits to the backup file instead of the original file.
Chip Turner, <[email protected]>
Copyright (C) 2005 by Chip Turner
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.6.0 or, at your option, any later version of Perl 5 you may have available.