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
|
#!/usr/bin/perl
opendir D, ".";
foreach $f (readdir(D)) {
if ($f !~ /\.html$/) { next; }
$content = `cat $f`;
$content =~ s/<pre class="code" file="([^"]+?)">([^<]*?)<\/pre>/"<pre class=\"code\" file=\"$1\">" . GetFile($1, $2) . "<\/pre>"/egi;
open F, ">$f";
print F $content;
close F;
}
closedir D;
sub GetFile {
print "$f <-- $_[0]\n";
if (!-e $_[0]) { warn "File not found: $_[0]"; return $_[1]; }
my $d = `cat $_[0]`;
$d =~ s/\&/\&/g;
$d =~ s/</\</g;
$d =~ s/>/\>/g;
$d =~ s/\t/ /g;
return $d;
}
|
