16 |
my $page; |
my $page; |
17 |
my $page_date; |
my $page_date; |
18 |
|
|
19 |
|
my @page_names; |
20 |
|
|
21 |
find({ |
find({ |
22 |
wanted => sub { |
wanted => sub { |
23 |
my $path = $File::Find::name; |
my $path = $File::Find::name; |
88 |
$body =~ s/'''(.+?)'''/surround('*',$1)/gse; |
$body =~ s/'''(.+?)'''/surround('*',$1)/gse; |
89 |
$body =~ s/''(.+?)''/surround('_',$1)/gse; |
$body =~ s/''(.+?)''/surround('_',$1)/gse; |
90 |
|
|
91 |
|
# fix bullets |
92 |
$body =~ s/^\s+([\*])/$1/gm; |
$body =~ s/^\s+([\*])/$1/gm; |
93 |
|
|
94 |
|
# fix links |
95 |
|
$body =~ s/\["([^"]+)"\]/[$1]/gs; |
96 |
|
|
97 |
Encode::_utf8_off( $body ); |
Encode::_utf8_off( $body ); |
98 |
|
|
99 |
my @tags = ( 'TamTam' ); |
my @tags = ( 'TamTam' ); |