zyppe/tools
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add condition for common markdown.

Browse source
This commit is contained in:
zyppe 2025-03-01 19:55:07 +08:00
parent 80e3c8cc3a
commit e1f43095ea
1 changed files with 11 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
Translator/read.pl
View file

@ -46,13 +46,18 @@ for my $d (@data) {
my %info;
my $content;
open my $file, "< :encoding(UTF-8)", $d;
<$file>;
while (<$file>) {
chomp;
if (/^([^:]+):\s+(.+)/) {
$info{$1} = $2;
my $line = <$file>;
if ( $line eq '---' ) {
while (<$file>) {
chomp;
if (/^([^:]+):\s+(.+)/) {
$info{$1} = $2;
}
last if /---/;
}
last if /---/;
}
else {
$content = $line;
}
while (<$file>) {
$content .= $_;