blob: 5d14e9d457746df1a55b227785cb501ad694e212 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
package Utils;
@ISA = qw(Exporter);
@EXPORT = qw(slurp spew cmp);
sub slurp {
my $path = shift;
open IN, "<$path"; my $data = join('',<IN>); close IN; $data;
}
sub spew {
my ($path, $data) = @_;
open OUT, ">$path"; print OUT $data; close OUT;
}
sub cmp {
my ($a, $b) = @_;
$a =~ s/\r//g;
$b =~ s/\r//g;
return ($a eq $b);
}
1;
|
