comparison paper/md2tex.pl @ 16:586757336bdd

...
author anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Sat, 02 May 2020 14:39:45 +0900
parents 875bf4bc5059
children 099e7864ee79
comparison
equal deleted inserted replaced
15:875bf4bc5059 16:586757336bdd
26 } 26 }
27 27
28 if ($line =~ /`([\w_\-\\]+)`/) { 28 if ($line =~ /`([\w_\-\\]+)`/) {
29 my $codeBlock = $1; 29 my $codeBlock = $1;
30 $codeBlock =~ s/_/\\_/g; 30 $codeBlock =~ s/_/\\_/g;
31 print "$codeBlock\n";
32 $line =~ s/`([\w_\-\\]+)`/\\texttt{$codeBlock}/; 31 $line =~ s/`([\w_\-\\]+)`/\\texttt{$codeBlock}/;
33 } 32 }
34 33
35 if ($line =~ /```/) { 34 if ($line =~ /```/) {
36 $in_codeblock = !$in_codeblock; 35 $in_codeblock = !$in_codeblock;