mirror of
https://github.com/fsr/ese-spiel
synced 2025-01-19 00:21:39 +01:00
18 lines
341 B
Perl
18 lines
341 B
Perl
|
#!/usr/bin/perl -w
|
||
|
|
|
||
|
|
@capt=('Wohnungsamt', 'BAfoeG-Amt', 'Arbeitsamt', 'SLUB', 'StuWe', 'FSR', 'Pruefungsamt');
|
||
|
|
$oe='\"o';
|
||
|
|
$ue='\"u';
|
||
|
|
|
||
|
|
for (@capt) {
|
||
|
|
($c=$_)=~s/oe/$oe/geo;
|
||
|
|
$c=~s/ue/$ue/geo;
|
||
|
|
|
||
|
|
print `echo $c > caption.tex`;
|
||
|
|
print `latex punkte.tex`;
|
||
|
|
print `dvips punkte.dvi -o punkte_$_.ps`;
|
||
|
|
}
|
||
|
|
|
||
|
|
# ***** end of source *****
|
||
|
|
|