💾 Archived View for blinkyshark.chickenkiller.com › webstuff.pm captured on 2023-06-16 at 16:24:34. Gemini links have been rewritten to link to archived content

View Raw

More Information

-=-=-=-=-=-=-

package webstuff;

require Exporter;

@ISA = qw(Exporter);

@EXPORT = qw(slurp spit insertio);

sub slurp {

my $file = shift;

open my $fh, '<', $file or die;

local $/ = undef;

my $cont = <$fh>;

close $fh;

return $cont;

}

sub spit {

my ($fname, $contents) = @_;

open my $fh, '>', $fname or die;

print $fh $contents;

close $fh;

}

sub insertio {

my ($line, $fname) = @_;

my $contents = slurp($fname);

my ($before, $after) = split(/---/, $contents, 2);

$contents = "$before---\n$line$after";

spit $fname, $contents;

}

1;