Skip to content
Snippets Groups Projects

Resolve "Synopse wird nicht korrekt dargestellt"

Merged Simon Sendler requested to merge 224-synopse-wird-nicht-korrekt-dargestellt into master
Files
4
+ 35
0
# A#!/usr/bin/env perl
=begin comment
Copyright (c) 2015 Hannes Riebl
Copyright (c) 2015–2019 Michelle Weidling
Copyright (c) 2020 Stefan Hynek
This file is part of bdnPrint.
bdnPrint is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.
bdnPrint is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with bdnPrint. If not, see <https://www.gnu.org/licenses/>.
=cut
use autodie;
use strict;
use utf8;
use warnings;
use File::Slurp;
my $tmp = read_file("tmp/" . $ARGV[0] . "_tmp-3.tex");
# $tmp =~ s/(\\margindata\[inouter\]\{\w\d{1,3}\*?([,;] \w\d{1,3}\*?)?)\}\\margindata\[inouter\]\{(\w\d{1,3}\*?([,;] \w\d{1,3}\*?)?\})/$1, $3/g;
print $tmp;
Loading