1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
use Exporter;
use Scriptalicious;
use vars qw(@EXPORT $testfile $pid);
BEGIN {
@EXPORT = qw($testfile);
$pid = $$;
}
$testfile = "/tmp/testfile.$$";
sub slurp {
my $fn = shift;
open X, "<$fn" or barf "failed to open $fn for slurping; $!";
my @x = <X>;
close X;
return join "", @x;
}
sub slop {
my $fn = shift;
open X, ">$fn" or barf "failed to slop to $fn; $!";
while ( @_ ) {
my $l = shift;
$l .= "\n" unless $l =~ /\n/;
print X $l;
}
close X;
}
END {
unlink($testfile) if $testfile and $$ == $pid;
}
|
