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

7
Translator/read.pl
View file

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