21 |
my $path = $_; |
my $path = $_; |
22 |
|
|
23 |
open(F,"$path") || die "can't open file: $path"; |
open(F,"$path") || die "can't open file: $path"; |
24 |
# print STDERR "$path"; |
# print STDERR "$path\n"; |
25 |
my $contents; |
my $contents; |
26 |
while(<F>) { |
while(<F>) { |
|
# chomp; |
|
|
# chomp; |
|
|
# $contents .= " ".$_; |
|
27 |
$contents .= $_; |
$contents .= $_; |
28 |
} |
} |
29 |
|
|
|
# $contents =~ s/<(\/*\w+)\s+>/<$1>/g; |
|
|
|
|
30 |
$contents = filter($contents); |
$contents = filter($contents); |
31 |
|
|
32 |
|
# die "zero size content in '$path'" if (! $contents); |
33 |
|
return if (! $contents); # don't die on empty files |
34 |
|
|
35 |
my $mtime = time; |
my $mtime = time; |
36 |
my $size = length $contents; |
my $size = length $contents; |
37 |
|
|