lib/PXElator/file.pm

package file;

use File::Slurp;
use autodie;
use Carp qw/carp confess/;
use File::Path qw//;

sub mkpath {
        my $file = shift;
        my $dir = $1 if $file =~ s{^.+/[^/]+}{};
        File::Path::mkpath $dir unless -e $dir;
}

sub append {
        my ( $file, $content ) = @_;

        if ( ! -e $file ) {
                mkpath $file;
                write_file $file, $content;
                my $size = -s $file;
                carp "append created $size bytes in $file";
                return $size;
        }

        my $on_disk = read_file $file;

        my $relaxed_content =~ s{\s+}{\\s+}gs;

        if ( $on_disk !~ m{$relaxed_content} ) {

#               $content =~ s{^[\n\r]+}{\n}s;
#               $content =~ s{[\n\r]*$}{\n}s;

                open($fh, '>>', $file);
                print $fh $content;
                close($fh);

                my $size = length($content);

                carp "append $size bytes to $file";
                warn $content;
                return $size;
        }
}

sub change {
        my ( $file, $from, $to ) = @_;

        my $content = read_file $file;
        if ( $content =~ s{$from}{$to}s ) {
                write_file $file, $content;
                carp "change $file $from => $to";
                return 1;
        } elsif ( $content !~ m{$to}s ) {
                confess "can't find $from to change into $to in $file";
        }
}

sub replace {
        my ( $file, $content ) = @_;
        mkpath $file;
        write_file $file, $content;
}

1;
1	dpavlin	271	package file;
2
3			use File::Slurp;
4			use autodie;
5			use Carp qw/carp confess/;
6			use File::Path qw//;
7
8			sub mkpath {
9			my $file = shift;
10			my $dir = $1 if $file =~ s{^.+/[^/]+}{};
11			File::Path::mkpath $dir unless -e $dir;
12			}
13
14			sub append {
15			my ( $file, $content ) = @_;
16
17			if ( ! -e $file ) {
18			mkpath $file;
19			write_file $file, $content;
20			my $size = -s $file;
21			carp "append created $size bytes in $file";
22			return $size;
23			}
24
25			my $on_disk = read_file $file;
26
27			my $relaxed_content =~ s{\s+}{\\s+}gs;
28
29			if ( $on_disk !~ m{$relaxed_content} ) {
30
31			# $content =~ s{^[\n\r]+}{\n}s;
32			# $content =~ s{[\n\r]*$}{\n}s;
33
34			open($fh, '>>', $file);
35			print $fh $content;
36			close($fh);
37
38			my $size = length($content);
39
40			carp "append $size bytes to $file";
41			warn $content;
42			return $size;
43			}
44			}
45
46			sub change {
47			my ( $file, $from, $to ) = @_;
48
49			my $content = read_file $file;
50			if ( $content =~ s{$from}{$to}s ) {
51			write_file $file, $content;
52			carp "change $file $from => $to";
53			return 1;
54			} elsif ( $content !~ m{$to}s ) {
55			confess "can't find $from to change into $to in $file";
56			}
57			}
58
59	dpavlin	277	sub replace {
60			my ( $file, $content ) = @_;
61			mkpath $file;
62			write_file $file, $content;
63			}
64	dpavlin	271
65			1;